FIX: Bug in der Typelib zum DWebBrowserEvents2 interface

Bug in der Typelib zum DWebBrowserEvents2 interface

Symptom: FileDownload() wird zwar aufgerufen, jedoch kann ein Download nicht verhindert werden, was durch Setzen des ersten Parameters auf TRUE möglich sein müßte.

Problem: Die Signatur der FileDownload()-Methode in der Typelib von MS ist fehlerhaft!

Achtung: wenn man aus der Typelib des

DWebBrowserEvents2 (enthalten in shdocvw.dll) bzw dem Interface, enthalten in exdisp.h/exdispid.h automatisch eine Unit erzeugen läßt um das Interface zu implementieren, dann wird ein Fehler in diese Implementation eingebaut. Gleiches gilt, wenn man den Dokumentationen bis inklusive "Platform SDK Release: February 2003" folgt, denn dort wird als Prototyp dies angegeben:

markieren

Code:

void FileDownload(VARIANT_BOOL *&Cancel);

Korrekt wäre jedoch:

markieren

Code:

			void FileDownload(      

    VARIANT_BOOL *ActiveDocument,

    VARIANT_BOOL *Cancel

);

Es handelt sich dabei um DISPID_FILEDOWNLOAD == 270 ("Fired to indicate the File Download dialog is opening") und exakter ausgedrückt, wie

hier zu finden, um folgende Ereignis-Methode (entnommen aus obiger Quelle - TWebBrowserEvents implementiert das Interface):

procedure DoFileDownload(var Cancel: WordBool); safecall; Hier aus der Invoke-Methode des Dispatchers die Behandlung dieser speziellen DISPID:

markieren

Delphi-Quellcode:

			    270: begin

           DoFileDownload (dps.rgvarg^ [pDispIds^ [0]].pbool^);

           Result := S_OK;

         end;

markieren

Delphi-Quellcode:

			procedure TWebBrowserEvents.DoFileDownload(var Cancel: WordBool);

begin

  if not Assigned (FileDownload) then System.Exit;

  FileDownload (Self, Cancel);

end;

markieren

Delphi-Quellcode:

			TFileDownloadEvent = procedure(Sender: TObject;

    var Cancel: WordBool) of object;

Microsoft selbst

räumt ein, daß in der Typelib eine falsche Signatur der FileDownload-Methode vorgegeben wird. Allerdings ist nun das Problem, daß die Methode zwar beim entsprechenden Event aufgerufen wird, jedoch die Parameterübergabe komplett im Eimer ist, weil die Signatur der Methode nicht stimmt. Es wird nämlich statt TRUE an den eigentlichen Cancel-Parameter zu übergeben, das TRUE an den ActiveDocument-Parameter übergeben. Dumme Sache

An obigen Quellen müssen folgende Änderungen vorgenommen werden:
procedure DoFileDownload(var ActiveDocument: WordBool; var Cancel: WordBool); safecall;

markieren

Delphi-Quellcode:

			    270: begin

           DoFileDownload(dps.rgvarg^ [pDispIds^ [0]].pbool^, dps.rgvarg^ [pDispIds^ [1]].pbool^);

           Result := S_OK;

         end;

markieren

Delphi-Quellcode:

			procedure TWebBrowserEvents.DoFileDownload(var ActiveDocument: WordBool; var Cancel: WordBool);

begin

  if not Assigned (FileDownload) then System.Exit;

  FileDownload (Self, ActiveDocument, Cancel);

end;

markieren

Delphi-Quellcode:

			TFileDownloadEvent = procedure(Sender: TObject;

    var ActiveDocument: WordBool; var Cancel: WordBool) of object;

So, das sollte es auch schon gewesen sein. Gefunden habe ich das Ganze durch Probleme in einer C++-Implementation dieses Interfaces. Durch einen

KB-Artikel bin ich dann auf das Problem mit der fehlerhaften Signatur aufmerksam geworden.

Da es mich viel Zeit gekostet hat, dachte ich die Codelib sei für diese Sache genau der richtige Platz! So müssen sich andere nicht auch wie ich mühsam auf die Suche nach dem Problem machen

Ich hoffe, daß ich nix übersehen habe, da ich wie gesagt, das Ganze nur in C++ benutze.

FIX: Bug in der Typelib zum DWebBrowserEvents2 interface

FIX: Bug in der Typelib zum DWebBrowserEvents2 interface

Forumregeln