Discussion :

[cchasse98]

Bonjour,

Quand je ping un poste à la fois tout est correct mais quand je ping deux postes mon Free est en erreur Access VIolation FreeAndNil(client)
Delphi 2006

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
function TFCoupeAcier_45_90.VerifiePC1(): String;
begin
    if not(Ping(KARSH1B)) then begin
       if not(Ping(KARSH1)) then
          MessageDlg('Le PC Karsh01 n''a pas accès au réseau.', mtInformation, [mbOK], 0)
       else
          Result := KARSH1;
       end
    else
        Result := KARSH1B;
end;
{***************************************************************}
 
function TFCoupeAcier_45_90.VerifiePC2(): String;
begin
    if not(Ping(KARSH2B)) then begin
       if not(Ping(KARSH2)) then
          MessageDlg('Le PC Karsh02 n''a pas accès au réseau.', mtInformation, [mbOK], 0)
       else
          Result := KARSH2;
       end
    else
        Result := KARSH2B;
end;
 
{***************************************************************}
function TFCoupeAcier_45_90.Ping(const AHost : string) : Boolean;
var
  ReplyStatus: TReplyStatus;
  client: TIdIcmpClient;
begin
  Result := True;
  ReplyStatus := TReplyStatus.Create;
  client := TIdIcmpClient.Create(Self);
    try
      with client do
      begin
        Host := AHost;
        ReceiveTimeout:=200; //TimeOut du ping
        PacketSize := 24;
        Protocol := 1;
        try
          Ping;
 
          if ReplyStatus.ReplyStatusType<>rsEcho Then
          begin
            result := False; //pas d'écho, on renvoi false.
            ShowMessage('ne connecte pas ');
          end;
        except
          Result := False;
        end;
      end;
    finally
        if Assigned(Client)
        then showMessage('Pointeur is not nil')
        else showMessage('Pointeur is nil');
 
         FreeAndNil(client); C'est sur ce free l'erreur
        FreeAndNil(ReplyStatus);
    end;
 
end;

Merci

[ShaiLeTroll]

Comme on n'a ni le code du Ping ni l'appel du Free !
Impossible de répondre !

On peut penser que le code du Ping est mal conçu !

[Jipété]

Bonjour,

Quand je ping un poste à la fois tout est correct mais quand je ping deux postes mon Free est en erreur Access Violation FreeAndNil(client)
Delphi 2006

Je vois dans ton code, juste avant ton message d'erreur, 2 ShowMessage : si tu nous avais dit lequel s'affiche, ça m'aurait évité de poser la question

[cchasse98]

Bonjour,

Pour répondre au premier message oui J,ai tout mis le code...

Les deux messages répondre not nil.

Merci

[jeromelef2]

Bonjour,

Pour répondre au premier message oui J,ai tout mis le code...

Les deux messages répondre not nil.

Merci

le code est incomplet.
ce que veut dire ShaiLeTroll, c'est qu'il manque les infos suivantes :
TFCoupeAcier_45_90 est une forme, une classe , ... ?
comment est appelé VerifiePC1 ? un boutton, un événement, un timer , ???
...
hors contexte, l'analyse et la résolution est difficile, voire impossible

[cchasse98]

Bonjour,

TFCoupeAcier_45_90 est une forme,

VerifiiePC1 et VerifiePC2 sont appelé si sur ma forme la case à cocher Karsh1 et/ou Karsh2 est activer.

Merci beaucoup et je vais faire attention d'être plus précise la prochaine fois.

[tourlourou]

Je n'ai pas de lumière sur la question, sauf que FreeAndNil n'est-il pas conçu pour éviter les EAV ?

Sinon, je ne comprends pas ton code avec le

Code :

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

ReplyStatus := TReplyStatus.Create;

alors que tu devrais plutôt tester

Code :

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

if Client.ReplyStatus.ReplyStatusType<>rsEcho

me semble-t-il...