Add(VBJScript,4005745,175,119)
{
 WorkPoints=#6:DoWork|
 DataPoints=#3:Url|8:FileName|
 Script=#23:Sub doWork(Data, Index)|11:Url=sys.Url|21:FileName=sys.FileName|56:dim xHttp: Set xHttp = createobject("Microsoft.XMLHTTP")|51:dim bStrm: Set bStrm = createobject("Adodb.Stream")|28:xHttp.Open "GET", Url, False|10:xHttp.Send|0:|10:with bStrm|23:    .type = 1 '//binary|9:    .open|29:    .write xHttp.responseBody|28:    .savetofile FileName, 2 |8:end with|8:End Sub |
 UseName=0
}

#pas
uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, StdCtrls,
    CHILKATHTTPLib_TLB,
    OleCtrls;

...

procedure TForm1.Button1Click(Sender: TObject);
var
http: TChilkatHttp;
success: Integer;
xmlStr: String;
endpointDomain: String;
endpointPort: Integer;
endpointSsl: Integer;
request: TChilkatHttpRequest;
response: IChilkatHttpResponse;

begin
http := TChilkatHttp.Create(Self);

//  Any string unlocks the component for the 1st 30-days.
success := http.UnlockComponent('Anything for 30-day trial');
if (success <> 1) then
  begin
    Memo1.Lines.Add(http.LastErrorText);
    Exit;
  end;

//  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
//  SynchronousRequest:
endpointDomain := 'www.chilkatsoft.com';
endpointPort := 80;
endpointSsl := 0;

//  Prepare the HTTP request object:
request := TChilkatHttpRequest.Create(Self);
request.Path := '/xmlEcho.asp';

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

response := http.SynchronousRequest(endpointDomain,endpointPort,endpointSsl,request.DefaultInterface);
if (response = nil ) then
  begin
    Memo1.Lines.Add(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.
Memo1.Lines.Add(response.BodyStr);


end;