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

"Address" spelling

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2143 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
inoussa
2011-11-15 19:06:36 +00:00
parent 653b385d69
commit 03b5e24fc4
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
wst/trunk/same_process_protocol.pas
View File

@ -32,7 +32,7 @@ Type
TInProcessTransport = class(TBaseTransport,ITransport) TInProcessTransport = class(TBaseTransport,ITransport)
Private Private
FAdress: string; FAddress: string;
FContentType: string; FContentType: string;
FFormat : string; FFormat : string;
Public Public
@ -40,7 +40,7 @@ Type
procedure SendAndReceive(ARequest,AResponse:TStream); override; procedure SendAndReceive(ARequest,AResponse:TStream); override;
Published Published
property ContentType : string Read FContentType Write FContentType; property ContentType : string Read FContentType Write FContentType;
property Adress : string Read FAdress Write FAdress; property Address : string Read FAddress Write FAddress;
property Format : string read FFormat write FFormat; property Format : string read FFormat write FFormat;
End; End;
{$M+} {$M+}
@ -64,7 +64,7 @@ Var
i : Int64; i : Int64;
{$ENDIF WST_DBG} {$ENDIF WST_DBG}
begin begin
bffr := TRequestBuffer.Create(Adress,ContentType,ARequest,AResponse,Format); bffr := TRequestBuffer.Create(Address,ContentType,ARequest,AResponse,Format);
HandleServiceRequest(bffr); HandleServiceRequest(bffr);
{$IFDEF WST_DBG} {$IFDEF WST_DBG}
i := AResponse.Position; i := AResponse.Position;