(Delphi ActiveX) 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 ActiveX DLL for Delphi Chilkat non-ActiveX DLL for Delphi * The examples here use the ActiveX DLL.

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

...

procedure TForm1.Button1Click(Sender: TObject);
var
success: Integer;
http: TChilkatHttp;
xmlStr: WideString;
urlEndpoint: WideString;
xmlCharset: WideString;
resp: TChilkatHttpResponse;

begin
success := 0;

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

http := TChilkatHttp.Create(Self);

// 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 := TChilkatHttpResponse.Create(Self);
success := http.HttpStr('POST',urlEndpoint,xmlStr,xmlCharset,'application/xml',resp.ControlInterface);
if (success = 0) then
  begin
    Memo1.Lines.Add(http.LastErrorText);
    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(resp.BodyStr);
end;