> how can I find out the local IP Adress that is used by the
> HttpAppServer?
In event BeforeProcessRequest:
var
SocketServer: TWSocketServer;
ListenItem: TWSocketMultiListenItem;
begin
xx
SocketServer := TWSocketServer ((Sender as THttpServer).WSocketServer);
if SocketServer.MultiListenIndex = -1 then begin
RemoteClient.CServerAddr := SocketServer.GetXAddr ;
RemoteClient.CServerPort := SocketServer.Port ;
end
else begin
ListenItem := SocketServer.MultiListenSockets
[SocketServer.MultiListenIndex] ;
RemoteClient.CServerAddr := ListenItem.Addr ;
RemoteClient.CServerPort := ListenItem.Port ;
end ;
If you are not using Multilisten, ignore that code.
Angus
--
To unsubscribe or change your settings for TWSocket mailing list
please goto http://lists.elists.org/cgi-bin/mailman/listinfo/twsocket
Visit our website at http://www.overbyte.be
