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

Better transport error reporting : ETransportExecption.ExtendedErrorInfo (Thanks to Michael Van Canneyt)

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3023 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
inoussa
2014-05-08 14:15:38 +00:00
parent 8656e66511
commit ab38ec3c50
2 changed files with 29 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
wst/trunk/base_service_intf.pas
View File

@ -65,7 +65,14 @@ type
EServiceException = class(Exception) end;
EServiceExtensionException = class(Exception) end;
ETransportExecption = class(EServiceException) end;
ETransportExecption = class(EServiceException)
private
FExtendedErrorInfo : string;
public
property ExtendedErrorInfo : string
read FExtendedErrorInfo write FExtendedErrorInfo;
end;
EBaseRemoteException = class(EServiceException)
private

23
wst/trunk/synapse_http_protocol.pas
View File

@ -203,11 +203,30 @@ begin
end;
procedure THTTPTransport.DoSendAndReceive(ARequest, AResponse : TStream);
var
s, s2 : string;
ans : AnsiString;
e : ETransportExecption;
begin
FConnection.Document.Clear();
FConnection.Document.CopyFrom(ARequest,0);
if not FConnection.HTTPMethod('POST',FAddress) then
raise ETransportExecption.CreateFmt(SERR_FailedTransportRequest,[sTRANSPORT_NAME,FAddress]);
if not FConnection.HTTPMethod('POST',FAddress) then begin
s := sysutils.Format(SERR_FailedTransportRequest,[sTRANSPORT_NAME,FAddress]);
s := s+sysutils.Format('Result code: %d, message: "%s"',[FConnection.ResultCode,Fconnection.ResultString]);
s2 := '';
if (FConnection.Document.Size > 0) then begin
SetLength(ans,FConnection.Document.Size);
Move(FConnection.Document.Memory^,ans[1],FConnection.Document.Size);
try
s2 := ans;
except
s2 := '';
end;
end;
e := ETransportExecption.Create(s);
e.ExtendedErrorInfo := s2;
raise e;
end;
AResponse.CopyFrom(FConnection.Document,0);
FConnection.Document.Clear();
end;