Bonjour,
Ceci concerne l'utilisation d'Intraweb.
Pour des raisons de traçabilité, j'aurais besoin de tracer les adresses IP des clients qui se connectent.
J'ai bien une routine de log:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15 procedure LogLine(const AWhere, AMessage: string); var F: TextFile; begin AssignFile(F, AWhere); if FileExists(AWhere) then Append(F) else Rewrite(F); try WriteLn(F, AMessage); finally CloseFile(F); end; end;
et je souhaite appeler cette procédure avec quelque chose comme ceci:
Merci pour votre aide
Code : Sélectionner tout - Visualiser dans une fenêtre à part logline(ExtractFilePath(Application.ExeName)+'\log\log.txt',Datetimetostr(now)+' Client IP '+ ici la propriété du client qui se connecte);
PhilLu
Partager