Entwickler-Ecke :: Thema anzeigen - Aktueller Datentransfer zw. Internet und PC messen

vavare - So 06.05.07 14:25
Titel: Aktueller Datentransfer zw. Internet und PC messen

Hallo

ich möchte ein Programm programmieren, dass anzeigt, wieivel Daten (kb/s bzw kbps) momentan aus dem Internet (download)oder ins Interndet (upload) übertragen werden...
Dies soll für WLAN / LAN verbindungen und wenn möglich auch für Modem und DSL-Einwahlverbindungen klappen...

Habt ihr nen Tip für mich?

gruß vavare

Regan - So 06.05.07 14:44

ich weiß zwar zur Zeit nicht, wo ich das her habe, aber ich habe mal das hier geschrieben:

Delphi-Quelltext

1:	Label1.caption:=IntToStr(Ftp1.DocInput.BytesTransferred);

€: OK. Ich habe es gefunden. Bei Delphi 3 gibts bei Internet ne Kompo, die FTP heißt. Die macht dann genau das.

vavare - So 06.05.07 15:10

ja, das kenn ich schon. aber soweit ich weiß, misst es nur die übertragungsrate einer im programm integrierten ftp komponente und nicht den gesamttransfer (also auch der von externen programmen)....

Delete - So 06.05.07 15:33

NetTrafficMonitor

http://www.delphisources.ru/files/sources/internet/nettrafmonitor.zip

vavare - Mo 07.05.07 18:28

hallo

diese kompo klingt ja echt klasse...
ich habe sie installiert...wie kann ich sie jetzt einsetzen?

gruß vavare

JayEff - Mo 07.05.07 18:44

Wenn du sie korrekt installiert hast, müsste sie in einem register reiter der Komponentenliste zu finden sein. Falls du dir nicht sicher bist, ob du sie korrekt installiert hast, versuch's mal mit dieser Beschreibung hier ...:
http://www.delphi-library.de/viewtopic.php?t=13107&highlight=komponente%20installieren

Delete - Mo 07.05.07 20:03

Welche Kompo?

NetTrafficMonitor

http://www.delphisources.ru...t/nettrafmonitor.zip

1. ZIP auspacken
2. compilieren
3. läuft

vavare - Di 08.05.07 16:30

hi

ja installiert ist die Komponente ja schon. Ich bin in delphi noch anfänger...sry wenn meine frage blöd klingt

ich wollte eigentlich nur den quellcode wissen, den ich eingeben muss, damit z.b label1 den traffic anzeigt...

also Label1.caption:= ????

sry für die blöde frage

vavare

Delete - Di 08.05.07 17:23

Gib Deinen Labels und Edits gleich einen aussagefähigen Namen, sonst findest Du Dich nie zurecht.
Was ich geändert habe, siehst Du beim Vergleich mit dem originalen Source Code:

Delphi-Quelltext

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:

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);
    ledTotalIN9.Text := BytesToFriendlyString(InTotal);

    ledTotalIN.caption := BytesToFriendlyString(InPerSec);
    inBar1.Position := InPerSec; //AverageInPerSec div 100;
    insec1.Text:= IntToStr(inpersec *8)+ ' Bits';
    ledOctOUTSec.Text := BytesToFriendlyString(OutPerSec);
    ledPeakOUTSec.Text := BytesToFriendlyString(PeakOutPerSec);
    ledAvgOUTSec.Text := BytesToFriendlyString(AverageOutPerSec);
    ledTotalOUT9.Text := BytesToFriendlyString(OutTotal);

    ledTotalOUT.caption := BytesToFriendlyString(OutPerSec);
    outBar1.Position := OutPerSec; //AverageOutPerSec div 100;
    outsec1.Text:= IntToStr(outpersec *8)+ ' Bits';

    self.ledStartedAt.Text := DateTimeToStr(StartedAt);
    self.ledActiveFor.Text := FriendlyRunningTime;

    StatusText.Caption := '  '+ GetStatus;
  end;//with
end; (*RefreshDisplay*)

vavare - Di 08.05.07 17:41

hey danke! klappt jetzt super

vavare