Discussion :

[Bakasable]

Plopidou à tous !.
Voilà, je vous explique mon petit soucis.
J'voudrais faire du monitoring de trafic in&out (naturellement... les deux).

Quand j'exécute le logiciel, j'obtiens des erreurs d'exécutions :



Mon code actuel est :

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
uses
  Windows, [...] TrafficUnit, IPHelper, IPHLPAP;
[...]
var
  Form1: TForm1;
  ActiveTraffic : TTraffic;
implementation
 
{$R *.dfm}
 
procedure TForm1.TimerTimer(Sender: TObject);
begin
  with ActiveTraffic do begin
    actuel_download.Caption := 'Download : ' + BytesToFriendlyString(InTotal);
    actuel_upload.Caption := 'Upload : ' + BytesToFriendlyString(OutTotal);
  end;
end;

Merci d'avance .

[Just-Soft]

Plopidou à tous !.
Voilà, je vous explique mon petit soucis.
J'voudrais faire du monitoring de trafic in&out (naturellement... les deux).

Quand j'exécute le logiciel, j'obtiens des erreurs d'exécutions :



Mon code actuel est :

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
uses
  Windows, [...] TrafficUnit, IPHelper, IPHLPAP;
[...]
var
  Form1: TForm1;
  ActiveTraffic : TTraffic;
implementation
 
{$R *.dfm}
 
procedure TForm1.TimerTimer(Sender: TObject);
begin
  with ActiveTraffic do begin
    actuel_download.Caption := 'Download : ' + BytesToFriendlyString(InTotal);
    actuel_upload.Caption := 'Upload : ' + BytesToFriendlyString(OutTotal);
  end;
end;

Merci d'avance .

à mon avis tu fais appel à un objet qui n'est pas encore créé.

Code :

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

1
2
3
4
5
6
7
8
9
procedure TForm1.TimerTimer(Sender: TObject);
begin
  if assigned(ActiveTraffic) then begin 
  with ActiveTraffic do begin
    actuel_download.Caption := 'Download : ' + BytesToFriendlyString(InTotal);
    actuel_upload.Caption := 'Upload : ' + BytesToFriendlyString(OutTotal);
  end; 
end;
end;

[Bakasable]

à mon avis tu fais appel à un objet qui n'est pas encore créé.

Code :

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

1
2
3
4
5
6
7
8
9
procedure TForm1.TimerTimer(Sender: TObject);
begin
  if assigned(ActiveTraffic) then begin 
  with ActiveTraffic do begin
    actuel_download.Caption := 'Download : ' + BytesToFriendlyString(InTotal);
    actuel_upload.Caption := 'Upload : ' + BytesToFriendlyString(OutTotal);
  end; 
end;
end;

Heh merci de ta réponse. Du coup j'ai plus d'erreur d'exécution... mais ça marche pas xO.

Donc, comment je le créer ce monsieur ?

(merci d'avance... =D)

[Jipété]

Donc, comment je le créer ce monsieur ?

Bah, sans doute en étudiant attentivement le code à Zarko ?

[Bakasable]

Bah, sans doute en étudiant attentivement le code à Zarko ?

Salut (merci de ta réponse).
J'ai déjà regarder attentivement avant de poster, et la moitié, je n'y comprends rien... (je suis qu'un débutant moi xD)