Intraweb : tracer les adresses IP des clients qui se connectent
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:
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:
Code:
logline(ExtractFilePath(Application.ExeName)+'\log\log.txt',Datetimetostr(now)+' Client IP '+ ici la propriété du client qui se connecte);
Merci pour votre aide :ccool:
PhilLu