paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki 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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
wst/trunk/base_service_intf.pas
View File

@ -62,8 +62,8 @@ const
type
EServiceException = class(Exception)
End;
EServiceException = class(Exception) end;
ETransportExecption = class(EServiceException) end;
EBaseRemoteException = class(EServiceException)
private

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}

3
wst/trunk/wst_consts.pas
View File

@ -21,6 +21,7 @@ resourcestring
SERR_CannotResolveNamespace = 'Unable to resolve this namespace : "%s".';
SERR_DuplicateBindingName = 'Duplicated binding : "%s".';
SERR_ExpectingRemotableObjectClass = 'Expecting remotable object class but found "%s".';
SERR_FailedTransportRequest = '%s Request to %s failed.';
SERR_HeaderNotUnderstood = 'Header "%s" not Understood.';
SERR_IllegalChar = 'Illegal character for that encoding : "%s".';
SERR_IndexOutOfBound = 'Index out of bound : %d.';
@ -36,6 +37,7 @@ resourcestring
SERR_InvalidMinuteOffetValue = '"%d" is not a valid minute offset value.';
SERR_InvalidEmbeddedScopeOperation = 'Invalid opération on scope, their are no embedded scope.';
SERR_InvalidParameter = 'Invalid parameter : "%s".';
SERR_InvalidPropertyValue = 'Invalid property ("%s") value : "%s".';
SERR_InvalidParameterProc = 'Invalid parameter : "%s"; Procedure = "%s".';
SERR_InvalidParameters = 'Invalid parameters.';
SERR_InvalidPoolParametersArgs = 'Invalid pool arguments Min = %d; Max = %d .';
@ -55,6 +57,7 @@ resourcestring
SERR_ScopeNotFound = 'Scope not found : "%s".';
SERR_TypeNotRegistered = 'Type not registered : "%s".';
SERR_UnexpectedEndOfData = 'Unexpected end of data.';
SERR_UnknownProperty = 'Unknown property : "%s".';
implementation