Download fortschritt als im/als Image

[citybreaker]

Hallo,

ich lade mit UrlDownloadFile dateien aus dem internet,
jetzt möchte ich den download fortschritt in einem Image
anzeigen lassen. Alerdings hab ich kein plan wie das geht,
hab zwar etwas ähnliches mit einer progressbar gefunden,
aber da stapeln sich die fehlermeldungen bei mir.

[himitsu]

1. Was für Fehlermeldungen

2. un der CallBack-Prozedur bekommst du ja die Gesamtgröße und die aktuelle Größe, damit läßt sich doch was machen?

[citybreaker]

Was für eine Callback procedure?

Hab folgendes genommen und nun versucht so zuändern das es mit einem Image geht?
Progressbar.Progress durch Proressbalken.Width(<< das image) ersetzt.

Delphi-Quellcode:

type 
  cDownloadStatusCallback = class(TObject,IUnknown,IBindStatusCallback) 
  private 
    function QueryInterface(const IID: TGUID; out Obj): HResult; stdcall; 
    function _AddRef: Integer; stdcall;     function OnStartBinding(dwReserved: DWORD; pib: IBinding): HResult; stdcall;
    function GetPriority(out nPriority): HResult; stdcall;
    function OnLowResource(reserved: DWORD): HResult; stdcall;
    function OnProgress(ulProgress, ulProgressMax, ulStatusCode: ULONG; szStatusText: LPCWSTR): HResult; stdcall; 
    function OnStopBinding(hresult: HResult; szError: LPCWSTR): HResult; stdcall; 
    function GetBindInfo(out grfBINDF: DWORD; var bindinfo: TBindInfo): HResult; stdcall; 
    function OnDataAvailable(grfBSCF: DWORD; dwSize: DWORD; formatetc: PFormatEtc; stgmed: PStgMedium): HResult; stdcall;
    function OnObjectAvailable(const iid: TGUID; punk: IUnknown): HResult; stdcall;
  end;

Delphi-Quellcode:

function cDownloadStatusCallback._AddRef: Integer; 
begin 
  Result := 0; 
end; 

function cDownloadStatusCallback._Release: Integer; 
begin 
  Result := 0; 
end; 

function cDownloadStatusCallback.QueryInterface(const IID: TGUID; out Obj): HResult; 
begin 
  if(GetInterface(IID,Obj)) then 
  begin 
    Result := 0 
  end 
  else 
  begin 
    Result := E_NOINTERFACE; 
  end;  
end; 

function cDownloadStatusCallback.OnStartBinding(dwReserved: DWORD; pib: IBinding): HResult; 
begin 
  Result := S_OK; 
end;

//
function cDownloadStatusCallback.GetPriority(out nPriority): HResult;
begin 
  Result := S_OK; 
end; 

function cDownloadStatusCallback.OnLowResource(reserved: DWORD): HResult; 
begin 
  Result := S_OK; 
end; 

function cDownloadStatusCallback.OnStopBinding(hresult: HResult; szError: LPCWSTR): HResult; stdcall; 
begin 
  Result := S_OK; 
end; 

function cDownloadStatusCallback.GetBindInfo(out grfBINDF: DWORD; var bindinfo: TBindInfo): HResult; stdcall; 
begin 
  Result := S_OK; 
end; 

//
function cDownloadStatusCallback.OnDataAvailable(grfBSCF: DWORD; dwSize: DWORD; formatetc: PFormatEtc; stgmed: PStgMedium): HResult; 
begin 
  Result := S_OK; 
end; 

//
function cDownloadStatusCallback.OnObjectAvailable(const iid: TGUID; punk: IUnknown): HResult; stdcall; 
begin 
  Result := S_OK; 
end; 

function cDownloadStatusCallback.OnProgress(ulProgress, ulProgressMax, ulStatusCode: ULONG; szStatusText: LPCWSTR): HResult; 
begin 
  case ulStatusCode of
    BINDSTATUS_BEGINDOWNLOADDATA:
    begin 
      MainFrm.ProgressBalken.Width := 0;
      MessageDlg('Der Download wurde gestartet.', MtInformation, [mbYes], 0);
      if (UserCancel) then
      begin 
        Result := E_ABORT; 
        exit; 
    function _Release: Integer; stdcall; 

      end; 
    end; 
    BINDSTATUS_DOWNLOADINGDATA: 
    begin
      MainFrm.ProgressBalken.Width := MulDiv(ulProgress,100, 240 );
      MessageDlg('Datei wird runtergeladen.', MtInformation, [mbYes], 0);
      if (UserCancel) then
      begin 
        Result := E_ABORT; exit; 
      end; 
    end; 
    BINDSTATUS_ENDDOWNLOADDATA: 
    begin
      MessageDlg('Download wurde beendet.', MtInformation, [mbYes], 0);
    end; 
  end; 
  Application.ProcessMessages; 

  Result := S_OK; 
end;

So nun kommen die Fehlermeldungen bei Compilieren.

Zitat:

Deklaration von "GetPriority" unterscheidet sich von der Deklaration in interface 'IBindStatusCallBack'

Deklaration von "OnDataAvaiable" unterscheidet sich von der Deklaration in interface 'IBindStatusCallBack'

Deklaration von "OnObjectAvaiable" unterscheidet sich von der Deklaration in interface 'IBindStatusCallBack'

[glkgereon]

versuchs mal mit gauge statt mit progressbar

[hm988]

hallo,

hast du es mal mit der ALProgress Bar probiert, mit der funktioniert des wunderbar bei mir.

oder ist das Die die bei dir soviele Fehlermeldungen erzeugt ??

[citybreaker]

Ähm ich will ja nix sagen. Ich will ein Image als Progressbar nehmen und keine Gauge, Progressbar oder ähnliches.

[Matze]

Du kennst ja meinen "Turm von Hanoi".

Da hab ich ja auch ein Image als Fortschrittsanzeige genommen.

Du musst wirklich nur Width des Images verändern. Bei mir funktioniert das einwandfrei.

[citybreaker]

Joa soweit ist mir das klar, hab ja auch alles dementsprechend geändert,
jetzt kann ich das aber wegen den fehlermeldungen nicht compilieren.

[Luckie]

Wie hast du es denn jetzt und was sind das für Fehlermeldungen? Wenn die Callback keine Methode deiner Formklasse ist (kann es auch nicht sein), kennt er dein Image nicht. Du musst also den Namen deiner Formklasse voranstellen.

[himitsu]

Zitat von citybreaker:

Was für eine Callback procedure?

cDownloadStatusCallback - ist 'ne schöne Klasse, mit vielen CallBackProzeduren


Du könntest ja auch mal dein Projekt hochladen - eventuell testen wir dann mal selber und entdecken womöglich den/die Fehler.


[edit]
der Name der Formklasse schaint ja schon drin zu sein (MainFrm.) es muß natürlich auch der richtige eingetragen sein.