Einzelnen Beitrag anzeigen

quakergod

Registriert seit: 20. Mär 2003
Ort: NRW
129 Beiträge
 
Delphi 7 Enterprise
 
#1

Fortschritt in Gauge anzeigen

  Alt 15. Aug 2003, 20:16
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);
I love Delphi-Praxis !
  Mit Zitat antworten Zitat