(Delphi DLL) Send XMLHttpRequest and Get Response

Demonstrates how to send an HTTP XML request and retrieve the response.

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

Chilkat for Delphi Downloads Chilkat non-ActiveX DLL for Delphi Chilkat ActiveX DLL for Delphi * The examples here use the non-ActiveX DLL.

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, HttpResponse, Http;

...

procedure TForm1.Button1Click(Sender: TObject);
var
success: Boolean;
http: HCkHttp;
xmlStr: PWideChar;
urlEndpoint: PWideChar;
xmlCharset: PWideChar;
resp: HCkHttpResponse;

begin
success := False;

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

http := CkHttp_Create();

// The XML sent in the body of the request is application
// specified -- it should contain whatever the server-side
// application is expecting..
xmlStr := '<?xml version="1.0" encoding="UTF-8"?><appXml><something>123</something></appXml>';

urlEndpoint := 'http://www.chilkatsoft.com/xmlEcho.asp';
xmlCharset := 'utf-8';

resp := CkHttpResponse_Create();
success := CkHttp_HttpStr(http,'POST',urlEndpoint,xmlStr,xmlCharset,'application/xml',resp);
if (success = False) then
  begin
    Memo1.Lines.Add(CkHttp__lastErrorText(http));
    Exit;
  end;

// The raw HTTP request sent by the above call is:

// POST /xmlEcho.asp HTTP/1.1
// Content-Type: text/xml
// Host: www.chilkatsoft.com
// Accept: */*
// Accept-Charset: ISO-8859-1,utf-8;q=0.7,*; q=0.7
// Accept-Language: en-us,en;q=0.5
// Accept-Encoding: gzip
// Content-Length: 81
// 
// <?xml version="1.0" encoding="UTF-8"?><appXml><something>123</something></appXml>

// Examine the Body of the HTTP response
// This would be the XML response sent by the server.
Memo1.Lines.Add(CkHttpResponse__bodyStr(resp));

CkHttp_Dispose(http);
CkHttpResponse_Dispose(resp);

end;