OK!
Walkthrough:
Datei - Neu - weitere - Web Server Anwendung
ISAPI*.*
ObjektInspector (
OI) : Actions Klick - Neu
OI: Pathinfo := /LOGIN
OI: Ereignisse OnAction dblKlick
Delphi-Quellcode:
procedure TWebModule1.WebModule1WebActionItem1Action(Sender: TObject;
Request: TWebRequest; Response: TWebResponse;
var Handled: Boolean);
begin
response.Content := '
Keine anderer User online!';
// lol
IP := request.RemoteAddr;
UserName := Request.QueryFields.Values['
NAME'];
UserPass := Request.QueryFields.Values['
PASSWORT'];
Handled := true;
// default
end;
Dann auf Server laden...
www.deineDomain.de/cgi/IPCheck.dll
Für das cgi Verzeichniss noch die Rechte setzen...
User : IUSR_MASCHINENNAME Ausführen und Dateierstellen/schreiben, falls Du die
IP in eine Dateischreiben willst... (Achtung Threadsave "TMultiReadExclusiveWriteSynchronizer" verwenden)
Aufruf dann wie gesagt:
idhttp1.get('http://www.deineDomain.de/cgi/IPCheck.dll/LOGIN?NAME=ABC&PASSWORT=DEF',IPListe);
mfg Frank (Hoffe es hilft)
