18. Januar 2010 11:18
// lAuSoapConnector = Automation 'Microsoft Soap Type Library v3.0'.HttpConnector30
// lAuSoapSerializer = Automation 'Microsoft Soap Type Library v3.0'.SoapSerializer30
// lAuXMLDoc = Automation 'Microsoft XML, v6.0'.DOMDocument60
CREATE(lAuSoapConnector);
lAuSoapConnector.Property('EndPointURL','https://ssl.ibanrechner.de:443/soap/index.php');
lAuSoapConnector.Connect;
lAuSoapConnector.Property('AuthUser','********');
lAuSoapConnector.Property('AuthPassword','******');
lAuSoapConnector.Property('Timeout',5*100);
lAuSoapConnector.Property('SoapAction','calculate_iban');
lAuSoapConnector.BeginMessage;
CREATE(lAuSoapSerializer);
lAuSoapSerializer.Init(lAuSoapConnector.InputStream);
lAuSoapSerializer.StartEnvelope('SOAP','STANDARD');
//lAuSoapSerializer.StartEnvelope('SOAP','RPC');
lAuSoapSerializer.StartHeader;
lAuSoapSerializer.EndHeader;
lAuSoapSerializer.StartBody;
lAuSoapSerializer.StartElement('calculate_iban');
lAuSoapSerializer.StartElement('country');
lAuSoapSerializer.WriteString('AT');
lAuSoapSerializer.EndElement;
lAuSoapSerializer.StartElement('bankcode');
lAuSoapSerializer.WriteString('34000');
lAuSoapSerializer.EndElement;
lAuSoapSerializer.StartElement('account');
lAuSoapSerializer.WriteString('123456');
lAuSoapSerializer.EndElement;
lAuSoapSerializer.StartElement('country');
lAuSoapSerializer.WriteString('AT');
lAuSoapSerializer.EndElement;
lAuSoapSerializer.StartElement('user');
lAuSoapSerializer.WriteString('*****'); // ausgeblendet
lAuSoapSerializer.EndElement;
lAuSoapSerializer.StartElement('password');
lAuSoapSerializer.WriteString('******'); // ausgeblender
lAuSoapSerializer.EndElement;
lAuSoapSerializer.EndElement;
lAuSoapSerializer.EndBody;
lAuSoapSerializer.EndEnvelope;
lAuSoapConnector.EndMessage;
CREATE(lAuXMLDoc);
lAuXMLDoc.load(lAuSoapConnector.OutputStream);
lAuXMLDoc.save('c:\output.xml');
29. Juni 2010 16:19
30. Juni 2010 01:48
rom hat geschrieben:Hat jemand eine Idee, warum XML nicht befüllt wird?
lAuSoapSerializer.StartHeader;
lAuSoapSerializer.EndHeader;