Hallo,
ich habe nun seit knapp 2 tagen delphi und habe schon eine frage ;P

Mein Code:

zusammenfalten · markieren

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:

markieren

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

sachdoch einfach:

zusammenfalten · markieren

Delphi-Quellcode:

var
data:Textfile; //oder text? oder file? du weisst was ich meine
filename:string; //naja, test.bin halt...
time: deine gebrauchte zeit oder deine geschwindigkleit
begin
//dein code

assign(data,'downloadzeit.txt'); //zuweisen
rewrite(data); //zum schreiben öffnen
writeln(data,'######################'); //den kram reintzun (event auch writeln('#########',data))
writeln(data,'# ',filename,' downloaded @ ',time);//weiss ich nit mehr so genau, aber das sind die befehle...
writeln(data,'######################');
close(data); //und wieder schliessen