(Delphi DLL) Yet Another SOAP MTOM POST Example

Demonstrates how to sending a SOAP request with an MTOM/XOP attachment...

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, Http, HttpRequest, HttpResponse, Xml;

...

procedure TForm1.Button1Click(Sender: TObject);
var
http: HCkHttp;
success: Boolean;
xml: HCkXml;
req: HCkHttpRequest;
useTls: Boolean;
resp: HCkHttpResponse;
xmlResponse: HCkXml;

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

http := CkHttp_Create();

// First build the following XML:

// 	<soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" 
// 	    xmlns:imp="http://www.yourdomain.it/ImportMultiploWorkflowPAWS/">
// 	   <soapenv:Header/>
// 	   <soapenv:Body>
// 	      <imp:InputImportMultiploWorkflowPA>
// 	         <usernameEis>MyUsername</usernameEis>
// 	         <passwordEis>MyPassword</passwordEis>
// 	         <postazioneEis>COSO00</postazioneEis>
// 	         <istitutoEis>COSO</istitutoEis>
// 	         <codiceAzienda>COSO0000</codiceAzienda>
// 	         <fileZip><inc:Include href="cid:780931946797" xmlns:inc="http://www.w3.org/2004/08/xop/include"/></fileZip>
// 	         <fileZipName>IT04769180151_00044.zip</fileZipName>
// 	         <workflow>carica</workflow>
// 	      </imp:InputImportMultiploWorkflowPA>
// 	   </soapenv:Body>
// 	</soapenv:Envelope>

xml := CkXml_Create();
CkXml_putTag(xml,'soapenv:Envelope');
CkXml_AddAttribute(xml,'xmlns:soapenv','http://schemas.xmlsoap.org/soap/envelope/');
CkXml_AddAttribute(xml,'xmlns:imp','http://www.yourdomain.it/ImportMultiploWorkflowPAWS/');
CkXml_UpdateChildContent(xml,'soapenv:Header','');
CkXml_UpdateChildContent(xml,'soapenv:Body|imp:InputImportMultiploWorkflowPA|usernameEis','MyUsername');
CkXml_UpdateChildContent(xml,'soapenv:Body|imp:InputImportMultiploWorkflowPA|passwordEis','MyPassword');
CkXml_UpdateChildContent(xml,'soapenv:Body|imp:InputImportMultiploWorkflowPA|postazioneEis','COSO00');
CkXml_UpdateChildContent(xml,'soapenv:Body|imp:InputImportMultiploWorkflowPA|istitutoEis','COSO');
CkXml_UpdateChildContent(xml,'soapenv:Body|imp:InputImportMultiploWorkflowPA|codiceAzienda','COSO0000');
CkXml_UpdateAttrAt(xml,'soapenv:Body|imp:InputImportMultiploWorkflowPA|fileZip|inc:Include',True,'href','cid:780931946797');
CkXml_UpdateAttrAt(xml,'soapenv:Body|imp:InputImportMultiploWorkflowPA|fileZip|inc:Include',True,'xmlns:inc','http://www.w3.org/2004/08/xop/include');
CkXml_UpdateChildContent(xml,'soapenv:Body|imp:InputImportMultiploWorkflowPA|fileZipName','IT04769180151_00044.zip');
CkXml_UpdateChildContent(xml,'soapenv:Body|imp:InputImportMultiploWorkflowPA|workflow','carica');

// We want our top-level HTTP request header to look like this:

// POST /http-router-softwarehubsystem/webservices/importMultiploWorkflowPA HTTP/1.1
// Accept-Encoding: gzip,deflate
// Content-Type: multipart/related; type="application/xop+xml"; start="<rootpart@soapui.org>"; start-info="text/xml"; boundary="----=_Part_0_1353857996.1546013984933"
// SOAPAction: "http://www.yourdomain.it/ImportMultiploWorkflowPAWS/importMultiploWorkflowPA"
// MIME-Version: 1.0
// Content-Length: <chilkat will add this header>
// Host: <chilkat will add this header>
// Connection: Keep-Alive
// User-Agent: Apache-HttpClient/4.1.1 (java 1.5)

req := CkHttpRequest_Create();
CkHttpRequest_putHttpVerb(req,'POST');
CkHttpRequest_putPath(req,'/http-router-softwarehubsystem/webservices/importMultiploWorkflowPA');
CkHttpRequest_putContentType(req,'multipart/related; type="application/xop+xml"; start="<rootpart@soapui.org>"; start-info="text/xml"');
CkHttpRequest_AddHeader(req,'SOAPAction','"http://www.yourdomain.it/ImportMultiploWorkflowPAWS/importMultiploWorkflowPA"');
CkHttpRequest_AddHeader(req,'Accept-Encoding','gzip,deflate');
CkHttpRequest_AddHeader(req,'Mime-Version','1.0');
CkHttpRequest_AddHeader(req,'Connection','Keep-Alive');
CkHttpRequest_AddHeader(req,'User-Agent','Apache-HttpClient/4.1.1 (java 1.5)');

// Add the XML content for the 1st MIME sub-part.
CkXml_putEmitXmlDecl(xml,False);
CkXml_putEmitCompact(xml,False);
success := CkHttpRequest_AddStringForUpload2(req,'','',CkXml__getXml(xml),'utf-8','application/xop+xml; charset=UTF-8; type="text/xml"');

// We want the 1st sub-header (the sub-part containing the XML) to look like this:

// Content-Type: application/xop+xml; charset=UTF-8; type="text/xml"
// Content-Transfer-Encoding: 8bit
// Content-ID: <rootpart@soapui.org>

// Make sure we set sub-headers *after* calling AddStringForUpload2, otherwise AddStringForUpload2 might change these explicitly set headers.
success := CkHttpRequest_AddSubHeader(req,0,'Content-Transfer-Encoding','8bit');
success := CkHttpRequest_AddSubHeader(req,0,'Content-ID','<rootpart@soapui.org>');

// Add a reference to the local file for the file data for the 2nd MIME sub-part.
success := CkHttpRequest_AddFileForUpload2(req,'','qa_data/zips/helloWorld.zip','application/zip; name=IT04769180151_00044.zip');

// We want the 2nd sub-header (for the MIME sub-part containing a .zip file) to look like this:
// Content-Type: application/zip; name=IT04769180151_00044.zip
// Content-Transfer-Encoding: binary
// Content-ID: <IT04769180151_00044.zip>
// Content-Disposition: attachment; name="IT04769180151_00044.zip"; filename="IT04769180151_00044.zip"

// Make sure we set sub-headers *after* calling AddFileForUpload2, otherwise AddFileForUpload2 might change these explicitly set headers.
success := CkHttpRequest_AddSubHeader(req,1,'Content-Transfer-Encoding','binary');
success := CkHttpRequest_AddSubHeader(req,1,'Content-ID','<IT04769180151_00044.zip>');
success := CkHttpRequest_AddSubHeader(req,1,'Content-Disposition','attachment; name="IT04769180151_00044.zip"; filename="IT04769180151_00044.zip"');

// Keep a session log so we can examine the exact request/response.
// Remove this line when finished with debugging.
CkHttp_putSessionLogFilename(http,'qa_output/mtom_sessionLog.txt');

useTls := False;
// Note: Please don't run this example without changing the domain to your own domain...
resp := CkHttp_SynchronousRequest(http,'www.yourdomain.it',80,useTls,req);
if (CkHttp_getLastMethodSuccess(http) <> True) then
  begin
    Memo1.Lines.Add(CkHttp__lastErrorText(http));
    Exit;
  end;

xmlResponse := CkXml_Create();
success := CkXml_LoadXml(xmlResponse,CkHttpResponse__bodyStr(resp));
// println xmlResponse.GetXml();
CkHttpResponse_Dispose(resp);

Memo1.Lines.Add('OK.');

CkHttp_Dispose(http);
CkXml_Dispose(xml);
CkHttpRequest_Dispose(req);
CkXml_Dispose(xmlResponse);

end;