Einzelnen Beitrag anzeigen

n4nox

Registriert seit: 4. Jul 2004
1 Beiträge
 
#1

Download Geschwindigkeit Problem

  Alt 4. Jul 2004, 11:47
Hallo,
ich habe nun seit knapp 2 tagen delphi und habe schon eine frage ;P

Mein Code:
Delphi-Quellcode:
program ehackz;

{$APPTYPE CONSOLE}

uses
  URLMon,
  Windows,
  SysUtils;

var
f: textfile;
size: integer;
StartTime, StopTime, size2, test, Differenz: integer; Datei,Ziel:PChar;

begin
  try
    StartTime:= GetTickCount();
    Datei := 'http://home.arcor.de/test/test.bin';
    Ziel := 'D:\Dokumente und Einstellungen\MyUser\Desktop\test.bin';
    UrlDownloadToFile(nil, Datei, Ziel, 0, nil);
    StopTime:= GetTickCount();
    Differenz:= StopTime- StartTime;
    size2:= Differenz/size
  except
    // mach irgendwas falls was schiefgeht
  end;
 end.
end;
Ich möchte die Durchschnittliche Download Geschwindigkeit von dem file in eine TXT datei packen, dabei sollte
der aufbau der txt so sein:

Code:
##############################################
#  Test.bin downloaded @ TIME
#  File downloaded with ......
##############################################
Hoffe mir kann da jemand helfen, ich komm da einfach nicht mehr weiter ;(
Wäre gut mit code beispiel + kleine erklärung

MFG N4NoX
  Mit Zitat antworten Zitat