Download fortschritt als im/als Image

[citybreaker]

Zitat von 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.

Öh ja, wird glaube ich oben verwendet.
Dateien sind im Anhang.

[himitsu]

Also bei mir lässt es sich ohne Probleme kompilieren (D7) - nur so ein paar kleine, "unbedeutende" Warnungen wegen des LPCWSTR.

PS: nimm mal für einen Test eine Datei, die auf jeden Fall runtergeladen werden kann - dann geht auch der Code.

z.B.  URLDownloadToFIle(nil,'http://www.fnse.de/s.html','C:\index.html',0,CDownStatus);

[citybreaker]

Fein, mit Delphi7 klappt es bei mir auch. Ich möchte aber das ganze in Delphi3 haben,
weil ich von Delphi 7 nur ne Personal hab. Gibts da ne möglichkeit?

[himitsu]

D3 hab'sch nicht.
Ich könnte höchstens mal in D4 nachgucken (wenn ich mal Lust und Zeit dafür hab)

[Luckie]

D4 dürfte nicht viel nützen. Der große sprung liegt zwischen D3 und D4.

@citybreaker: Nenn uns doch endlich mal die fehlermeldungen und zeig uns die Codezeilen dazu, sonst kommen wir hier nie weiter.

[citybreaker]

Die stehen doch oben. -.-'
Hier nochmal für die die keine lust haben nach oben zu scrollen.

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;
 


Source: 

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;

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'

[Luckie]

Die Funktionsdeklarationen unterscheiden sich von D3 zu D6 oder D7. Kuck mal in der entsprechenden Delphi Unit, wie sie deklariert sind und pass in deinem Code die Datentypen entsprechend an.

[citybreaker]

Öh, wie heißt den die Unit?

[himitsu]

ich weiß nicht, ab welcher Version das geht, aber klick mal mit Rechts auf eine Variable/Funktion ... und dann wähl "Deklaration suchen" aus, dann such delphi wo das angeklicke deklariert ist, und zeigt es wenn möglich an und du kannst dort nachgucken, was verlangst wird.

[citybreaker]

Kann es weder bei D3 noch D7 PE finden.