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

ICallContext now has a property manager ( GetPropertyManager() ). At server side the so got property manager can be used to query the remote client informations such as its IP address ( RemoteIP )

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@573 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
inoussa
2008-09-25 02:24:25 +00:00
parent d80a5005f6
commit 6f801dd3f8
9 changed files with 43 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
wst/trunk/synapse_tcp_server.pas
View File

@@ -202,6 +202,8 @@ begin
FInputStream.Write(buff[1],Length(buff));
FInputStream.Position := 0;
rqst := TRequestBuffer.Create(trgt,ctntyp,FInputStream,FOutputStream,frmt);
rqst.GetPropertyManager().SetProperty(sREMOTE_IP,FSocketObject.GetRemoteSinIP());
rqst.GetPropertyManager().SetProperty(sREMOTE_PORT,IntToStr(FSocketObject.GetRemoteSinPort()));
HandleServiceRequest(rqst);
i := FOutputStream.Size;
SetLength(buff,i);