Monitoring Trafic (In/Out)

Question

Bonjour à tous et à toutes.
Voilà, je voudrais pouvoir afficher dans deux labels, le trafic IN et OUT.
J'ai chercher du côté de la source "Network Trafic Monitor" mais je n'arrive pas à isolé seulement ça. Il y à trop de truck pour moi, pauvre débutant que je suis -_-.

J'ai déjà les fichiers IPHelper, IPHLApi (et TrafficUnit, je sais pas si utile ou non).

Je vous remercie d'avance

f0xi · Answer

TTraffic --> TrafficUnit.pas
dependance --> IPHelper, IPHLPAPI

var
  MainForm: TMainForm;
  ActiveTraffic : TTraffic;

procedure TMainForm.RefreshDisplay;
begin
  if not Assigned(ActiveTraffic) then
  begin
    ClearDisplay;
    Exit;
  end;

  with ActiveTraffic do
  begin

    FreezeButton.Visible := Connected;
    UnFreezeButton.Visible := Connected;
    ClearCountersButton.Visible := Connected;
    RemoveInactiveButton.Visible := not Connected;

    FreezeButton.Enabled := Running;
    UnFreezeButton.Enabled := not Running;

    ledAdapterDescription.Text := Description;
    ledMACAddress.Text := MAC;

    ledSpeed.Text := BitsToFriendlyString(Speed);

    ledOctInSec.Text := BytesToFriendlyString(InPerSec);
    ledPeakInSec.Text := BytesToFriendlyString(PeakInPerSec);
    ledAvgINSec.Text := BytesToFriendlyString(AverageInPerSec);
    ledTotalIN.Text := BytesToFriendlyString(InTotal);

    ledOctOUTSec.Text := BytesToFriendlyString(OutPerSec);
    ledPeakOUTSec.Text := BytesToFriendlyString(PeakOutPerSec);
    ledAvgOUTSec.Text := BytesToFriendlyString(AverageOutPerSec);
    ledTotalOUT.Text := BytesToFriendlyString(OutTotal);

    self.ledStartedAt.Text := DateTimeToStr(StartedAt);
    self.ledActiveFor.Text := FriendlyRunningTime;

    StatusText.Caption := GetStatus;
  end;//with
end; (*RefreshDisplay*)

<hr size="2" width="100%" />

cs_Toshiiro · Answer

Salut, merci de ta réponse, mais j'ai des erreurs d'exécutions.

Le code que j'ai actuelle c'est ça : 

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 =D. (j'suis sur que j'ai encore fais une erreur à la c*n -_-")

eclems · Answer

bonjours a tous ou avez vous eut ces unité 

cordioalement

cs_Toshiiro · Answer

Salut -_-...

Eclems, c'est ici..!

Bref, il n'y aurait personne pour me filer un coup de pouce =''(. ?
Merci...

Monitoring Trafic (In/Out)

4 réponses

Votre réponse

Discussions similaires