20. Januar 2010 17:02
CLEAR(lAuXmlDoc); // 'Microsoft XML, v6.0'.DOMDocument
CLEAR(lAuXmlHttp); // 'Microsoft XML, v6.0'.XMLHTTP
IF ISCLEAR(lAuXmlDoc) THEN
IF NOT CREATE(lAuXmlDoc) THEN
ERROR('Keine Instanze');
lAuXmlDoc.async := FALSE;
lAuXmlDoc.load('C:\header.xml');
CREATE(lAuXmlHttp);
lAuXmlHttp.open('POST','http://ssl.ibanrechner.de/Riban/http.html?'
+ 'function=calculate_iban&country=AT&bankcode=34000&account=0123456&user=*********&password=********',0);
lAuXmlHttp.setRequestHeader('Content-type','text/xml');
//lAuXmlHttp.setRequestHeader('SOAPAction',Text001);
lAuXmlHttp.send(lAuXmlDoc);
lAuXmlDoc.load(lAuXmlHttp.responseBody);
lAuXmlDoc.save('C:\temp.xml');
21. Januar 2010 16:17
21. Januar 2010 18:21
22. Januar 2010 10:24
...
...
CREATE(lAuXmlHttp);
lAuXmlHttp.open('GET','http://ssl.ibanrechner.de/Riban/http.html?'
+ 'function=calculate_iban&country=AT&bankcode=34000&account=016617350&user=*******&password=********',0);
lAuXmlHttp.setRequestHeader('Content-type','text/xml');
lAuXmlHttp.setRequestHeader('SOAPAction',Text001);
lAuXmlHttp.send(lAuXmlDoc);
IF lAuXmlHttp.status = 200 THEN BEGIN
lAuXmlDoc.load(lAuXmlHttp.responseXML);
lAuXmlDoc.save('C:\temp.xml');
END ELSE
ERROR(TextErr001,lAuXmlHttp.status,lAuXmlHttp.statusText);
<div id="c2202" class="csc-default" ><?xml version="1.0" encoding="UTF-8"?>
<result><iban>AT643400001661735</iban><result>passed</result><checks-list><checks>length</checks><checks>bank_code</checks></checks-list><bic_candidates-list><bic_candidates><bic>RZOOAT2L</bic><city>Linz/Donau</city><wwwcount>0</wwwcount><sampleurl></sampleurl></bic_candidates></bic_candidates-list><country>AT</country><bank_code>34000</bank_code><alternative_bank_code></alternative_bank_code><bank>Raiffeisenlandesbank Oberoesterreich AG</bank><bank_address></bank_address><bank_url>http://www.rlbooe.at</bank_url><branch></branch><branch_code></branch_code><account_number>016617350</account_number><alternative_account_number></alternative_account_number><account_validation_method></account_validation_method><account_validation></account_validation><length_check>passed</length_check><account_check></account_check><bank_code_check>passed</bank_code_check><bic_plausibility_check></bic_plausibility_check><data_age>20100121</data_age><IBANformat>ATkk BBBB BCCC CCCC CCCC</IBANformat><formatcomment>B = bank code, C = account No.</formatcomment><balance>1</balance></result>
</div>
26. Januar 2010 12:39
GetSetup;
IF ISCLEAR(XMLDoc) THEN
CREATE(XMLDoc);
IF ISCLEAR(XMLHttpConn) THEN
CREATE(XMLHttpConn);
URLString := GSetup.RequestURL;
XMLHttpConn.open('GET',URLString,FALSE);
XMLHttpConn.setRequestHeader('Authorization',GSetup.RequestHeaderAuth);
XMLHttpConn.send();
IF XMLHttpConn.status = 200 THEN BEGIN
XMLDoc.load(XMLHttpConn.responseXML);
XMLDoc.save(GSetup."xml filepath returnrequest");
END ELSE
ERROR(LError100,XMLHttpConn.status,XMLHttpConn.statusText);