Soap klient hænger
HejJeg bruger følgende kodestump til Soap kommunikation mod SAP:
try
HTTP := TIdTCPClient.Create(Self);
HTTP.Host := aHost;
HTTP.Port := aPort;
HTTP.Connect(10000);
Password := 'Authorization: Basic '+StrTobase64(aUserName+':'+aPassword)+#13#10;
Request :=
'POST '+aPage+' HTTP/1.1'+#13#10+
'Host: '+aHost+#13#10+
Password+
'Content-Type: application/soap+xml; charset=utf-8'+#13#10+
'Content-Length: '+IntToStr(Length(aXML))+#13#10+
#13#10+
XML;
HTTP.Write(Request);
try
Response := HTTP.WaitFor('</SOAP:Envelope>');
except
messagebox('Error- Incomplete server response: ');
end;
finally
http.free;
end;
Koden har fungeret fint i flere år, men nu klager kunden over, at systemet ofte hænger efter et Soap kald.
Loggen på serveren melder ikke nogen fejl, så det ser ud til, at det er min Soapklient der har et problem,
- som om at WaitFor aldrig finder slutmarkøren '/SOAP:Envelope>'
Er der nogen er har forslag til, hvad der kan gøres?
mvh Thomas Riedel