How to get IP-Addr. of caller of an Interface based service method

martin.suer · 2014-05-29 09:12:55

Hi,

in an interface based service method I can access the ServiceContext with the Request and the Factory. I can get access to all sort of information, however I haven't found out how to get the IP-Address of the caller of the method.

Is that possible?

Martin

ab · 2014-05-29 10:59:39

You have the RemoteIP property in TAuthSession.

Or just call

IP := FindIniNameValue(pointer(ServiceContext.Request.Call.InHead),'REMOTEIP: ')

martin.suer · 2014-05-29 12:07:37

well, in my case that returns an empty RawUTF8
(XE5, Win8.1)

and InHead contains:
'Cache-Control: no-cache'#$D#$A'Connection: Keep-Alive'#$D#$A'Pragma: no-cache'#$D#$A'Content-Length: 3'#$D#$A'Content-Type: application/json; charset=UTF-8'#$D#$A'Accept: */*'#$D#$A'Accept-Encoding: synlz'#$D#$A'Host: localhost:888'#$D#$A'User-Agent: Mozilla/4.0 (compatible; MSIE 5.5; Windows; Synopse mORMot 1.18 TWinHTTP)'#$D#$A'ConnectionID: FD00000060000009'#$D#$A

ab · 2014-05-29 13:33:04

Are you using the latest 1.18 version of the source code tree?

Which server class do you use?
Normally, THttpServer.Process() will put the 'RemoteIP: ' header via THttpServerSocket.HeaderGetText.
And THttpAPIServer.Execute should call RetrieveHeaders() which should set the 'RemoteIP: ' header...

martin.suer · 2014-05-29 14:52:06

I am using the latest nightly build and register the server with the following code:

    fServer := TSQLRestServerDB.Create(FModel, ChangeFileExt(paramstr(0), '.db3'),True);
    fServer.CreateMissingTables;
    fServer.ServiceRegister(TAuftragsbearbeitung,[TypeInfo(IFuseAuftragsbearbeitung)],sicSingle);
    fHTTPServer := TSQLHttpServer.Create(PORT_NAME,[fServer],'+',useHttpApiRegisteringURI);

The client is created as follows:

  fClient := TSQLHttpClient.Create('localhost', PORT_NAME, FModel);
  fClient.SetUser('User', 'synopse');
  fClient.ServiceRegister([TypeInfo(IFuseAuftragsbearbeitung)], sicSingle);

martin.suer · 2014-05-30 19:27:08

solved....

just found out that if I use the IP-Address instead of 'localhost' while creating the client, everything works like expected and I can see the REMOTEIP

ab · 2014-05-30 19:39:26

So it sounds like a socket feature... not a mORMot bug...

In fact, if you connected at localhost, there is no "remote" IP, but only a "local" IP...

houdw2006 · 2015-06-22 00:47:17

Is this a bug? RemoteIP is NOT the server's IP.

I am using the Synopse Framework 1.18.1500 under XE7. I called the service by Firefox.

RemoteIP in THttpServerRequest and TServiceRunningContext is not the expected.

when the next line of code is called from the context of implementation of the service function:

RemoteIP := FindIniNameValue(pointer(ServiceContext.Request.Call.InHead),'REMOTEIP: ');

I get the Callee's IP instead of the Caller's IP! ( to call a service deployed in a remote server from another client machine, the RemoteIP is the server's IP, not the client IP).

================================ Details ==============================
In function TCustomHttpServer.Request(Ctxt: THttpServerRequest): cardinal;

Ctxt.Method: GET
Ctxt.URL: /root/AddService/Add?A=30&B=45
Ctxt.InHeaders: Param:

InHeader:
Host: 103.30.231.6:9800
User-Agent: Mozilla/5.0 (Windows NT 6.1; WOW64; rv:38.0) Gecko/20100101 Firefox/38.0
Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8
Accept-Language: zh-CN,zh;q=0.8,en-US;q=0.5,en;q=0.3
Accept-Encoding: gzip, deflate
Connection: keep-alive
RemoteIP: 103.30.231.6

In the Service function Add, I Called:
RemoteIP := := FindIniNameValue(pointer(ServiceContext.Request.Call.InHead),'REMOTEIP: ');

And I get 103.30.231.6 (Synopse Framework Version: 1.18.1500, Delphi XE7)

The REMOTEIP is the Callee's IP, not the Caller's IP.

ab · 2015-06-22 05:46:42

Which HTTP server class did you test?

Sockets or HTTP.sys?

houdw2006 · 2015-06-22 10:45:23

Thanks for you reply, ab.

I registered the Service function in the client side by means of the TSQLRestServerDB, and the client which connect to another remote AppServer through TSQLHttpClient, and runs in still another remote server.

When the AppServer and Client both are running, I call the service function by entering the GET command in the Address box of Firefox which running in my laptop.

//code fragments of the client side:

TCustomHttpServer = class(TSQLHttpServer)
protected
/// override the server response - must be thread-safe
function Request(Ctxt: THttpServerRequest): cardinal; override;
end;

....................

Model: TSQLModel;
AppServer: TSQLHttpClient;
RestServer: TSQLRestServerRemoteDB;
HttpServer: TCustomHttpServer;

.......................
Model := CreateDataModel(AppServerHttpRoot); // AppServerHttpRoot, AppServerIP, AppServerPort and HttpServicePort are Properties.

AppServer := TSQLHttpClient.Create(AppServerIP, AppServerPort, aModel);

RestServer := TSQLRestServerRemoteDB.Create(AppServer);
RestServer.ServiceRegister(TAddService, [TypeInfo(IAddService)], sicShared);

HttpServer := TCustomHttpServer.Create(HttpServicePort, [RestServer], '+', useHttpApiRegisteringURI);
HttpServer.AccessControlAllowOrigin := '*'; // allow cross-site AJAX queries

ab · 2015-06-22 14:16:52

Did you register the URI for http.sys?

houdw2006 · 2015-06-22 21:30:39

Thank you so much, ab!

That's the answer! The real problem is that I did NOT register the URI. This puzzled me more than one week and I couldn't find the reason by myself!

After I run the server (which runs the service) with administrator user rights once, after that the RemoteIP is correct now.

Last edited by houdw2006 (2015-06-25 09:10:21)

ab · 2015-06-23 08:39:23

There was a problem with the socket-based server.
Should be fixed by http://synopse.info/fossil/info/534c00dae4

Note that running the server ONCE with admin rights is enough, since you used useHttpApiRegisteringURI option.
See http://synopse.info/files/html/Synopse% … #TITLE_250

mORMot Open Source

#1 2014-05-29 09:12:55

How to get IP-Addr. of caller of an Interface based service method

#2 2014-05-29 10:59:39

Re: How to get IP-Addr. of caller of an Interface based service method

#3 2014-05-29 12:07:37

Re: How to get IP-Addr. of caller of an Interface based service method

#4 2014-05-29 13:33:04

Re: How to get IP-Addr. of caller of an Interface based service method

#5 2014-05-29 14:52:06

Re: How to get IP-Addr. of caller of an Interface based service method

#6 2014-05-30 19:27:08

Re: How to get IP-Addr. of caller of an Interface based service method

#7 2014-05-30 19:39:26

Re: How to get IP-Addr. of caller of an Interface based service method

#8 2015-06-22 00:47:17

Re: How to get IP-Addr. of caller of an Interface based service method

#9 2015-06-22 05:46:42

Re: How to get IP-Addr. of caller of an Interface based service method

#10 2015-06-22 10:45:23

Re: How to get IP-Addr. of caller of an Interface based service method

#11 2015-06-22 14:16:52

Re: How to get IP-Addr. of caller of an Interface based service method

#12 2015-06-22 21:30:39

Re: How to get IP-Addr. of caller of an Interface based service method

#13 2015-06-23 08:39:23

Re: How to get IP-Addr. of caller of an Interface based service method

Board footer