hi!
hab mittels IEDownload Komponente ein Download Programm 'gemacht' ^^
Delphi-Quellcode:
procedure TForm1.IEDownload1Progress(Sender: TBSCB; ulProgress,
ulProgressMax, ulStatusCode: Cardinal; szStatusText: PWideChar;
ElapsedTime, Speed, EstimatedTime: string);
var
s: string;
begin
s := BindstatusText(ulStatusCode);
if ulStatusCode = BINDSTATUS_DOWNLOADINGDATA then
s := S ;
Label1.Caption := 'Verbleibend: '+ EstimatedTime;
Label2.Caption := 'Geladen: '+ InttoStr(ulProgress) + ' / ' + InttoStr(ulProgressMax) + '';
Label3.Caption := 'Geschwindigkeit: '+ Speed;
Label4.Caption := 'Abgelaufen: '+ ElapsedTime;
Label6.Caption := 'Status: '+ BindstatusText(ulStatusCode);
end;
was jetzt noch fehlt wäre eine Fortschrittsanzeuige (Gauge) !
Ich weiss nicht genau wie ich das mit den Werten
ulProgress und
ulProgressMax machen soll..
EDIT: Habs hingekriegt !!!
Form1.Gauge1.Progress := MulDiv(ulProgress,100,ulProgressMax);