Wie kann ich die Übertragungsgeschwindigkeit auslesen

[Storm]

Hy ich habe eine Frage wie kann ich die Übertragungsgeschwindigkeit in eine label auslesen wenn er was downloadet und vielleicht noch die göße dazuschreibt wieviel er schon von der Gesamtgröße downgeloadet hat zB

7,1 KB/sec
12kb von 100kb empfangen

MFG
Storm

[Andreas Redmer]

kommt darauf an womit du downloadest?!

Benutz du ne HTTP Komponente?
Wenn ja welche

[BeeJay]

Nutze doch einfach DoDownloadFile. Dann hast Du alles.

Kurzer Auszug aus einem Testprogramm:

var
frmDownloadTest: TfrmDownloadTest;

function DoFileDownload(lpszFile: PWideChar): LongInt; stdcall;

function DoFileDownloadEx(lpszFile: PWideChar; DownloadDirect: BOOL): LongInt; stdcall;

implementation

{$R *.DFM}

function DoFileDownload; external 'shdocvw.dll' name 'DoFileDownload';
{ Return Value allways 0 ??? }

function DoFileDownloadEx; external 'shdocvw.dll' name 'DoFileDownloadEx';
{ Return Value allways 0 ??? }

procedure TfrmDownloadTest.btnDownloadClick(Sender: TObject);
var
URL: WideString;
begin
URL := Edit1.Text;
DoFileDownloadEx(PWideChar(URL),True);
end;

end

[SkinnerLA]

Hallo BeeJay,

das funktioniert aber nicht so recht mit dem DoFileDownload.

bekomme immer ne fehlermeldung wo leider nix drin steht