(Delphi ActiveX) Asynchronous HTTP SOAP 1.2 Request and Response using POST

Demonstrates a working asynchronous SOAP 1.2 request and response using POST with a live server. You may try running this example with the URLs and data provided. See http://wsf.cdyne.com/WeatherWS/Weather.asmx?op=GetCityWeatherByZIP for details.

Note: This example is correct in theory, but no longer works for live testing because the SOAP service provider (cdyne.com) has made changes or discontinued the free service.

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.httpTaskCompleted(ASender: TObject;  const completedTask: IChilkatTask);
var
      resp: TChilkatHttpResponse;
xmlResponse: TChilkatXml;
begin
    // TThread.Synchronize provides safety for callbacks that occur in a background thread..
    TThread.Synchronize(nil, procedure begin
      // A finished task could be one that was canceled, aborted, or truly finished.  

      // If the task was "canceled", it was canceled prior to actually starting.  This could
      // happen if the task was canceled while waiting in a thread pool queue to be scheduled by Chilkat's
      // background thread pool scheduler.  

      // If the task was "aborted", it indicates that it was canceled while running in a background thread.  
      // The ResultErrorText will likely indicate that the task was aborted.

      // If the task "completed", then it ran to completion, but the actual success/failure of the method
      // is determined by the result obtained via a GetResult* method.  (A "completed" task will
      // have a StatusInt equal to 7.   If the task finished, but was not completed, then it must've
      // been aborted or canceled:
      if (completedTask.StatusInt <> 7) then
        begin
          Memo1.Lines.Add('Task did not complete.');
          Memo1.Lines.Add('task status: ' + completedTask.Status);
          Exit;
        end;

      // The synchronous call to SynchronousRequest would return an HTTP response object.  To get this 
      // response object for the async call, we instantiate a new/empty HTTP response object,
      // and then load it from the completed task.
      resp := TChilkatHttpResponse.Create(Self);

      success := resp.LoadTaskResult(completedTask.ControlInterface);
      if (success = 0) then
        begin
          Memo1.Lines.Add(resp.LastErrorText);
          Exit;
        end;

      // Now that we have the response, we can get all of the information:

      Memo1.Lines.Add('status code: ' + IntToStr(resp.StatusCode));
      Memo1.Lines.Add('response header: ' + resp.Header);

      xmlResponse := TChilkatXml.Create(Self);
      xmlResponse.LoadXml(resp.BodyStr);
      Memo1.Lines.Add(xmlResponse.GetXml());
      end);
end;


procedure TForm1.Button1Click(Sender: TObject);
var
success: Integer;
http: TChilkatHttp;
soapXml: TChilkatXml;
req: TChilkatHttpRequest;
task: IChilkatTask;

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);
    http.OnTaskCompleted := httpTaskCompleted;

    soapXml := TChilkatXml.Create(Self);

    soapXml.Tag := 'soap12:Envelope';
    soapXml.AddAttribute('xmlns:xsi','http://www.w3.org/2001/XMLSchema-instance');
    soapXml.AddAttribute('xmlns:xsd','http://www.w3.org/2001/XMLSchema');
    soapXml.AddAttribute('xmlns:soap12','http://www.w3.org/2003/05/soap-envelope');

    soapXml.NewChild2('soap12:Body','');
    soapXml.GetChild2(0);
    soapXml.NewChild2('GetCityWeatherByZIP','');
    soapXml.GetChild2(0);
    soapXml.AddAttribute('xmlns','http://ws.cdyne.com/WeatherWS/');
    soapXml.NewChild2('ZIP','60187');
    soapXml.GetRoot2();

    Memo1.Lines.Add(soapXml.GetXml());

    req := TChilkatHttpRequest.Create(Self);
    req.HttpVerb := 'POST';
    req.SendCharset := 0;
    req.AddHeader('Content-Type','application/soap+xml; charset=utf-8');
    req.AddHeader('SOAPAction','http://ws.cdyne.com/WeatherWS/GetCityWeatherByZIP');
    req.Path := '/WeatherWS/Weather.asmx';
    req.LoadBodyFromString(soapXml.GetXml(),'utf-8');

    http.FollowRedirects := 1;

    task := http.SynchronousRequestAsync('wsf.cdyne.com',80,0,req.ControlInterface);
    if (http.LastMethodSuccess = 0) then
      begin
        Memo1.Lines.Add(http.LastErrorText);
        Exit;
      end;

    // Schedule the task for running on the thread pool.  This changes the task's state
    // from Inert to Live.
    success := task.Run();
    if (success <> 1) then
      begin
        Memo1.Lines.Add(task.LastErrorText);

        Exit;
      end;

    // The application is now free to do anything else
    // while the HTTP request is in progress.  When the task
    // is completed, the TaskCompleted method is called.

    // -------------------------------------------------------------------------------
    // The following is a general note that applies to all programming languages:
    // -------------------------------------------------------------------------------

    // NOTE: This is very important:  The TaskCompleted callback runs in the background thread.  
    // (All callbacks from an async task, such as AbortCheck, PercentDone, ProgressInfo, etc. are in the background thread.) 
    // An application that uses TaskCompleted must be very careful.  
    // For example, user interface elements (such as labels, text boxes, etc.) may not be directly
    // accessible from a background thread, and could crash the application if directly accessed.  Also, attempting to debug
    // code running in a background thread from an IDE, especially an older IDE (such as VB6) is likely to crash the IDE.
end;