Discussion :

[neuneu1]

bonjour,

ca fait longtemps que je n ai pas toucher a delphi et je souhaite lire les log IIS qui sont au format W3C.

il y a plusieurs champs et celui qui m intéresse est src-ip.
Ceci afin de lister les connections exterieur multiples et les bannir.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
#Software: Microsoft Internet Information Services 8.5
#Version: 1.0
#Date: 2017-09-04 17:02:56
#Fields: date time s-ip cs-method cs-uri-stem cs-uri-query s-port cs-username c-ip cs(User-Agent) cs(Referer) sc-status sc-substatus sc-win32-status time-taken
2017-09-04 17:02:56 192.168.2.2 OPTIONS /c$/Users/tutu/Documents/ - 80 - 192.168.2.20 Microsoft-WebDAV-MiniRedir/10.0.15063 - 200 0 0 78
2017-09-04 17:02:56 192.168.2.2 PROPFIND /c$/Users/tutu/Documents/ - 80 - 192.168.2.20 Microsoft-WebDAV-MiniRedir/10.0.15063 - 404 0 2 31
2017-09-04 17:02:56 192.168.2.2 PROPFIND /c$/Users/tutu- 80 - 192.168.2.20 Microsoft-WebDAV-MiniRedir/10.0.15063 - 404 0 2 46

J ai fais le tour de google mais j ai pas trouvé comme faire ca.
merci de votre aide
a+

[SergioMaster]

Bonjour,

cela ressemble assez à un banal fichier txt (en sautant les premières lignes)
après tout est une question de parsing de la ligne, et pour ce faire une expression régulière pourrait faire l'affaire

[neuneu1]

Merci SergioMaster,

Mais j avoue ne pas avoir utilise ce type.
Aurais tu un exemple svp.

merci

[SergioMaster]

je me doutais qu'il fallait développer ma réponse

Fait au débotter, il faudra peut-être revoir un peu les positions (lignes à sauter, position de l'ip à récupérer)
lire un fichier

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
16
17
 
    var
      F: TextFile;
      s: string;
      i : integer;
    begin
      AssignFile(F, FilenameEdit2.text );
      Reset(F);
      i:=0;
      while (not eof(F)) do
             begin           
             Readln(F, S);
             inc(i);
             if i>5 then Memo1.lines.Add(TraiterLaChaine(s));  // saute les lignes 1 à 5 et envoi résultat dans un memo
             end;
      CloseFile(F);
    end;

Traiter la Chaine, cela va dépendre entre autre de la version de Delphi pour ce qui est de la possibilité d'utilisation des expressions régulières sion en traitant directement la chaine ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
function traiterlachaine(S : String) : String;
begin
  S:=Delete(S,20);  // ip à partir de la position 20
  result:=Copy(S,1,Pos(' ',S)-1);
end;

[neuneu1]

merci

j ai un delphi x2.

Le dernier que j ai utilise etait delphi 7.

je regarde et test le code merci

a+

[SergioMaster]

avec XE2 on peut certainement jouer déjà avec l'unité System.RegularExpressions et les expressions régulières (à vérifier)

voici une expression certainement pas parfaite qui permet de récupérer l'ip? le port et la seconde ip

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

\A.{20}(?<IP>\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}).*-\s(?<Port>\d*)\s-.*\s(?<IP2>\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}).*\z

je t'invite à lire les faqs au sujet des expressions régulières et faire quelques recherches dans le forum pour récupérer les groupes (je suis sûr d'avoir poster sur ce sujet)

[neuneu1]

re,

bon j ai tester et c 'est ok pour moi sauf la fonction mais je dois me remettre dans le bain.
J ai utilisé delete (faq et forum).

merci pour ton aide.

je vais voir aussi l expression régulière que tu as mise histoire de voir comment ca marche.

J avais déjà fait un tour sur la FAQ.

encore merci

je ne clôture pas car je pense revenir sur le sujet..