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:
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);
Merci pour votre aide
PhilLu