Discussion :

[yamino]

Bonjour à tous

Je vous explique brièvement mon problème :
Je parcours un range d'adresse IP. Je dois faire un Ping sur chaque adresse.
Je veux gérer celà dans un Thread qui me permettra d'avoir la main sur mon programme et aussi pour que je puisse arrêter à tout moment mon application.
La fonction PingHost(Host); fonctionne très bien dans une Unit mais dans le Thread elle me pose des problème...
Mon applic ne plante pas mais en mode pas-à-pas je remarque qu'il ne passe pas la valeur du Host. Il me met : "Host = Symbol was eliminated by linker".

Voici mon code :

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
type
  ThreadScanIP = class(TThread)
  private
    FProgressForm: TfrmProgressBar;
  protected
    procedure Execute; override;
    procedure OnTerminateProcedure(Sender: TObject);
  public
    procedure PingHost(Host: string);
    constructor Create(Suspended: Boolean);
  end;
 
implementation
 
 
constructor ThreadScanIP.Create(Suspended: Boolean);
begin
  FreeOnTerminate := True;
  inherited Create(Suspended);
  FProgressForm := TfrmProgressBar.Create(nil);
  FProgressForm.Show;
  OnTerminate := OnTerminateProcedure;
end;
 
procedure ThreadScanIP.Execute;
var
  StartIP, EndIP, i, Count: Integer;
  InAddr: TInAddr;
begin
  frmMain.btnValider.Enabled := False;
  Count := 0;
  FProgressForm.ProgressBar.Max := frmMain.CountIP;
  StartIP := ntohl(inet_addr(PChar(frmMain.IPs)));
  EndIP := ntohl(inet_addr(PChar(frmMain.IPe)));
  frmMain.richedit1.Enabled := False;
  frmMain.richedit1.Clear;
  for i := StartIP to EndIP do //Parcours le range d'adresse IP définit
  begin
    if (i and 255) <> 0 then
    begin
      InAddr.S_addr := htonl(i);
      frmMain.RichEdit1.Lines.Add(inet_ntoa(InAddr)); //adresse IP parcourue
      PingHost(inet_ntoa(InAddr));
      FProgressForm.ProgressBar.Position := Count;
      Inc(Count);
    end;
  end;
  frmMain.richedit1.Enabled := True;
  MessageBox(0, 'Traitement des adresses terminé', 'Scanning IP', MB_OK);
  frmMain.btnValider.Enabled := True;
end;
 
procedure ThreadScanIP.OnTerminateProcedure(Sender: TObject);
begin
  if Assigned(FProgressForm) then
    FProgressForm.Release;
end;
 
procedure ThreadScanIP.PingHost(Host: string);
var
  IdIcmpClient: TIdIcmpClient;
begin
  IdIcmpClient := TIdIcmpClient.Create(nil);
  with IdIcmpClient do
  begin
    try
      Host := Host;
      ReceiveTimeout := StrToInt(frmOptions.edtTimeOut.Text);
      TTL := StrToInt(frmOptions.edtTTL.Text);
      BufferSize := StrToInt(frmOptions.edtBufferSize.Text);
      Ping;
      case ReplyStatus.ReplyStatusType of
        rsEcho:
          begin
            frmMain.lbLog.Items.Append(format('response from host %s in %d millisec.',
              [
              ReplyStatus.FromIpAddress,
                ReplyStatus.MsRoundTripTime
                ]));
          end;
        rsError:
          frmMain.lbLog.Items.Append('Unknown error.');
        rsTimeOut:
          frmMain.lbLog.Items.Append('Timed out.');
        rsErrorUnreachable:
          frmMain.lbLog.Items.Append(format('Host %s reports destination network unreachable.',
            [ReplyStatus.FromIpAddress]));
        rsErrorTTLExceeded:
          frmMain.lbLog.Items.Append(format('Hope %d %s: TTL expired.',
            [TTL,
            ReplyStatus.FromIpAddress]));
      end;
    finally
      Free;
    end;
  end;
end;

[yamino]

Personne n'a une petite idée pour que je passe de bonnes fêtes ?

[Reisubar]

D'abord si ton code marche bravo, car théoriquement la VCL n'est pas concue pour être appellée depuis un thread. C'est donc un grand hasard que ta fiche soit correctement dessinée avec tout ses composants... Si ca bugge, je te conseille de revenir à la forme traditionnelle : le thread n'exécute que des requêtes réseaux et commande à sa fiche mère les mises à jour via des appelles à Synchronize(). Mais pour ton problème précis, c'est sans doute car le paramètre "Host" entre en conflit avec la propriété du même nom du IdIcmpClient , implicite à cause du with. Un simple renommage du paramètre fera l'affaire :

Code :

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

1
2
3
4
5
6
7
8
9
procedure ThreadScanIP.PingHost(AHost: string);
var
  IdIcmpClient: TIdIcmpClient;
begin
  IdIcmpClient := TIdIcmpClient.Create(nil);
  with IdIcmpClient do
  begin
    try
      Host := AHost;

[yamino]

Super Reisubar ça fonctionne nickel...
J'étais persuadé d'avoir testé en utilisant une variable différente mais... non

Un grand merci pour ta réponse. Je vais essayer d'implémenter ta technique. Je débute dans la gestion des Thread.

Bonne fête de fin d'année à tous...