Pascal (Lazarus/Delphi)
Pascal (Lazarus/Delphi)
Yet Another SOAP MTOM POST Example
See more HTTP Misc Examples
Demonstrates how to sending a SOAP request with an MTOM/XOP attachment...Chilkat Pascal (Lazarus/Delphi) Downloads
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,
Chilkat.Xml;
// ---------------------------------------------------------------------------
procedure RunDemo;
var
success: Boolean;
http: THttp;
xml: TXml;
req: THttpRequest;
useTls: Boolean;
resp: THttpResponse;
xmlResponse: TXml;
begin
success := False;
// This example requires the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.
http := THttp.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 := TXml.Create;
xml.Tag := 'soapenv:Envelope';
xml.AddAttribute('xmlns:soapenv','http://schemas.xmlsoap.org/soap/envelope/');
xml.AddAttribute('xmlns:imp','http://www.yourdomain.it/ImportMultiploWorkflowPAWS/');
xml.UpdateChildContent('soapenv:Header','');
xml.UpdateChildContent('soapenv:Body|imp:InputImportMultiploWorkflowPA|usernameEis','MyUsername');
xml.UpdateChildContent('soapenv:Body|imp:InputImportMultiploWorkflowPA|passwordEis','MyPassword');
xml.UpdateChildContent('soapenv:Body|imp:InputImportMultiploWorkflowPA|postazioneEis','COSO00');
xml.UpdateChildContent('soapenv:Body|imp:InputImportMultiploWorkflowPA|istitutoEis','COSO');
xml.UpdateChildContent('soapenv:Body|imp:InputImportMultiploWorkflowPA|codiceAzienda','COSO0000');
xml.UpdateAttrAt('soapenv:Body|imp:InputImportMultiploWorkflowPA|fileZip|inc:Include',True,'href','cid:780931946797');
xml.UpdateAttrAt('soapenv:Body|imp:InputImportMultiploWorkflowPA|fileZip|inc:Include',True,'xmlns:inc','http://www.w3.org/2004/08/xop/include');
xml.UpdateChildContent('soapenv:Body|imp:InputImportMultiploWorkflowPA|fileZipName','IT04769180151_00044.zip');
xml.UpdateChildContent('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 := THttpRequest.Create;
req.HttpVerb := 'POST';
req.Path := '/http-router-softwarehubsystem/webservices/importMultiploWorkflowPA';
req.ContentType := 'multipart/related; type="application/xop+xml"; start="<rootpart@soapui.org>"; start-info="text/xml"';
req.AddHeader('SOAPAction','"http://www.yourdomain.it/ImportMultiploWorkflowPAWS/importMultiploWorkflowPA"');
req.AddHeader('Accept-Encoding','gzip,deflate');
req.AddHeader('Mime-Version','1.0');
req.AddHeader('Connection','Keep-Alive');
req.AddHeader('User-Agent','Apache-HttpClient/4.1.1 (java 1.5)');
// Add the XML content for the 1st MIME sub-part.
xml.EmitXmlDecl := False;
xml.EmitCompact := False;
success := req.AddStringForUpload2('','',xml.GetXml(),'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 := req.AddSubHeader(0,'Content-Transfer-Encoding','8bit');
success := req.AddSubHeader(0,'Content-ID','<rootpart@soapui.org>');
// Add a reference to the local file for the file data for the 2nd MIME sub-part.
success := req.AddFileForUpload2('','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 := req.AddSubHeader(1,'Content-Transfer-Encoding','binary');
success := req.AddSubHeader(1,'Content-ID','<IT04769180151_00044.zip>');
success := req.AddSubHeader(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.
http.SessionLogFilename := 'qa_output/mtom_sessionLog.txt';
useTls := False;
// Note: Please don't run this example without changing the domain to your own domain...
resp := THttpResponse.Create;
success := http.HttpSReq('www.yourdomain.it',80,useTls,req,resp);
if (success = False) then
begin
WriteLn(http.LastErrorText);
Exit;
end;
xmlResponse := TXml.Create;
success := xmlResponse.LoadXml(resp.BodyStr);
// println xmlResponse.GetXml();
WriteLn('OK.');
http.Free;
xml.Free;
req.Free;
resp.Free;
xmlResponse.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.