Transferrate anzeigen

[Bit Juggler]

Hallo,
ich bin dabei eine Anwednung zu schreiben mit der ich einige Daten Streams auswerte.
Ich hätte da jetzt gerne eine Transferanzeige eingebaut die mir das aktuelle Übertragungsvolumen pro Sekunde anzeigt!
Ich lese den Stream ein per:

Delphi-Quellcode:

 hSession := InternetOpen('MyApp', INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
    if Assigned(hSession) then
    begin
      hService := InternetOpenUrl(hSession, PChar('http://xxxxxxxx'), nil, 0, 0, 0);
     usw. ...

Ich hab auch schon bei M$ nachgeschaut, habe aber nichts verwertbares gefunden!
Kann aber auch sein das es da was brauchbares gibt und ich es nicht zu nutzen weiß, ich stehe ja noch an den Anfängen ;)

Wäre schön wenn mir dabei jemand helfen könnte!

Gruß
Bit

[chris]

hi,

ich schlage dir vor einfach die indy komponenten zu benutzen, geht viel einfacher und es ist alles schon implementiert was man benötigt.

wenn du dennoch die internetopenurl() geschichte nutzen willst, kommst du um pipes und/oder file i/o nicht herum, was im gegensatz zu den komponenten sehr aufwändig zu realisieren ist.

[Bit Juggler]

Hallo!
Ich habe mal noch etwas im Forum hier gesucht und habe eine function von Luckie gefunden die das macht was ich will!
Das Problem ist nur das die function den Kompletten Traffic der Netzwerkkarte anzeigt, ich möchte aber nur den Traffic von meiner Anwendung haben, also das meine Anwendung bei 0 anfängt!
Vielleicht kann Luckie ja mal was dazu sagen...

Und wegen den Indy Komponenten:
Vielen Dank für den Hinweis, ich werde mir das mal anschauen!
Hab mich mit diesen Komponenten noch nicht beschäftigt!

Gruß Bit