pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

Patch from Michael Van Canneyt : check for error in synapse http requesting.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@916 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
inoussa
2009-07-17 17:15:19 +00:00
parent 8bdfcc9df7
commit 8206c61bd6
3 changed files with 9 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
wst/trunk/synapse_http_protocol.pas
View File

@ -69,6 +69,8 @@ Type
procedure SYNAPSE_RegisterHTTP_Transport();
implementation
uses
wst_consts;
{ THTTPTransport }
@ -169,7 +171,8 @@ begin
FConnection.Document.Size := 0;
FConnection.Headers.Add('soapAction:' + SoapAction);
FConnection.Document.CopyFrom(ARequest,0);
FConnection.HTTPMethod('POST',FAddress);
if not FConnection.HTTPMethod('POST',FAddress) then
raise ETransportExecption.CreateFmt(SERR_FailedTransportRequest,[sTRANSPORT_NAME,FAddress]);
AResponse.CopyFrom(FConnection.Document,0);
FConnection.Clear();
{$IFDEF WST_DBG}