Pascal (Lazarus/Delphi)

Send XMLHttpRequest using PUT, GET, DELETE, or any HTTP Request Method

See more HTTP Examples

The PostXml method is the easiest way to send an XMLHttpRequest using the POST HTTP verb (which is by far the most common). To use a different HTTP request method (such as PUT, GET, DELETE, etc.), the SynchronousRequest method should be called. It provides more flexibility in constructing the exact HTTP request desired. Pascal (Lazarus/Delphi)

program ChilkatDemo;

// Demonstrates using the Chilkat Pascal wrapper via the C bridge DLL.
// Builds as a console application under Lazarus (FPC) or Delphi.

{$IFDEF FPC}
  {$MODE DELPHI}
{$ENDIF}
{$APPTYPE CONSOLE}

uses
  {$IFDEF UNIX}
  cthreads,
  {$ENDIF}
  SysUtils,
  CkDllLoader,
  Chilkat.Http,
  Chilkat.HttpRequest,
  Chilkat.HttpResponse;

// ---------------------------------------------------------------------------

procedure RunDemo;
var
  success: Boolean;
  http: THttp;
  xmlStr: string;
  endpointDomain: string;
  endpointPort: Integer;
  endpointSsl: Boolean;
  req: THttpRequest;
  resp: THttpResponse;

begin
  success := False;

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

  http := THttp.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>';

  //  If the service endpoint is  "http://www.chilkatsoft.com/xmlEcho.asp",
  //  then we have the following arguments to be passed to
  //  HttpSReq:
  endpointDomain := 'www.chilkatsoft.com';
  endpointPort := 443;
  endpointSsl := True;

  //  Prepare the HTTP request object:
  req := THttpRequest.Create;
  req.Path := '/xmlEcho.asp';

  //  This example will use the "PUT" HTTP request method
  //  (also known as HTTP verb)
  req.HttpVerb := 'PUT';
  req.ContentType := 'text/xml';
  req.Charset := 'utf-8';
  success := req.LoadBodyFromString(xmlStr,'utf-8');

  resp := THttpResponse.Create;
  success := http.HttpSReq(endpointDomain,endpointPort,endpointSsl,req,resp);
  if (success = False) then
    begin
      WriteLn(http.LastErrorText);
      Exit;
    end;

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

  //  PUT /xmlEcho.asp HTTP/1.1
  //  Content-Type: text/xml
  //  Host: www.chilkatsoft.com
  //  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.
  WriteLn(resp.BodyStr);


  http.Free;
  req.Free;
  resp.Free;

end;

// ---------------------------------------------------------------------------

begin

  try
    RunDemo;
  except
    on E: Exception do
      WriteLn('Unhandled exception: ', E.ClassName, ': ', E.Message);
  end;

  WriteLn;
  {$IFDEF MSWINDOWS}
  WriteLn('Press Enter to exit...');
  ReadLn;
  {$ENDIF}
end.