(PHP ActiveX) HTTP PUT JSON

Demonstrates how to send a JSON PUT and get the JSON response body.

Note: This example requires Chilkat v11.0.0 or greater.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows Note: The php_com_dotnet.dll may need to be enabled inside of php.ini.

<?php

$success = 0;

// This example assumes the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.

$req = new COM("Chilkat.HttpRequest");
$http = new COM("Chilkat.Http");

// The PUT request to be sent will look like this:

// PUT /request HTTP/1.1
// Content-Type: application/jsonrequest
// Cookie: JSESSIONID=1234
// Content-Encoding: identity
// Host: json.penzance.org
// Accept: application/jsonrequest
// Accept-Encoding:
// Content-Length: 72
// 
// {"user":"doctoravatar@penzance.com","forecast":7,"t":"vlIj","zip":94089}

// First, remove default header fields that would be automatically
// sent.  (These headers are harmless, and shouldn't need to 
// be suppressed, but just in case...)
$http->AcceptCharset = '';
$http->UserAgent = '';
$http->AcceptLanguage = '';

// Suppress the Accept-Encoding header by disallowing 
// a gzip response:
$http->AllowGzip = 0;

// If a Cookie needs to be added...
$http->SetRequestHeader('Cookie','JSESSIONID=1234');

// Add the Content-Encoding: identity header.
$http->SetRequestHeader('Content-Encoding','identity');

// Modify the default "Accept" header:
$http->Accept = 'application/jsonrequest';

$jsonText = '{\'user\':\'doctoravatar@penzance.com\',\'forecast\':7,\'t\':\'vlIj\',\'zip\':94089}';

// IMPORTANT: Make sure to change the URL, JSON text,
// and other data items to your own values.  The URL used
// in this example will not actually work.

$resp = new COM("Chilkat.HttpResponse");
$success = $http->HttpStr('PUT','http://json.penzance.org/request',$jsonText,'utf-8','application/jsonrequest',$resp);
if ($success == 0) {
    print $http->LastErrorText . "\n";
    exit;
}

print 'Response status code: ' . $resp->StatusCode . "\n";
print 'Response JSON:' . "\n";
print $resp->BodyStr . "\n";

?>