EmbeddedWB - DownloadBegin

[t0mmy]

Hallo!

Ich wollte beim EmbeddedWB im Ereignis DownloadBegin das Steuerelemt: SaveDialog ansprechen:

datamod_formular.DataModule1.SaveDialog.InitialDir := 'C:\'; jedoch ohne Erfolg und mit einer Fehlermeldung beim Ausführen:

Zugriffsverletzung bei Adresse 00607077 in Modul '...exe' Lesen von Adresse 0000007C.

[t0mmy]

Okay es gibt noch ein Ereigniss: OnFileDownload, jedoch schreibt er mir: Undeklarierter Bezeichner: 'IMoniker', 'IBlindCtx','PBlindInfo'. -.-

[t0mmy]

Keiner ne Ahnung?

[Bernhard Geyer]

Ich würde Tippen:

Delphi-Quellcode:

uses
  MSHTML;

Wenn bezeichner nicht gefunden dann am besten (wenn nicht in der Hilfe gefunden) einfach über der Delphi-Quelldateien bzw. deine Komponenten eine Grepsuche machen um herauszufinden wo die Interfaces/Klassen definiert sind.

[t0mmy]

Wenn dann MSHTML_EWB da es eine EmbeddedWB Komponente is.
Jetzt habe ich einen prozedur: dort erkennt er jedoch das .Document nicht -.-

Delphi-Quellcode:

procedure WB_FillPwdForm(WB: EmbeddedWB; UsernameField, User, PasswortField, Password: string);
var
  IDoc3: IHTMLDocument3;
  Inputs: IHTMLElementCollection;
  UID, UPWD: IHTMLElement;
begin
  if Assigned(WB.Document) and
    (Succeeded(WB.Document.QueryInterface(IHTMLDocument3, IDoc3))) then
  begin
    Inputs := IDoc3.getElementsByName(UsernameField);
    if Assigned(Inputs) then
    begin
      UID := Inputs.item(0, '') as IHTMLElement;
      if Assigned(UID) then
        (UID as IHTMLInputElement).value := User;
    end;
    Inputs := IDoc3.getElementsByName(PasswortField);
    if Assigned(Inputs) then
    begin
      UPWD := Inputs.item(0, '') as IHTMLElement;
      if Assigned(UPWD) then
        (UPWD as IHTMLInputElement).value := Password;
    end;
  end;
end;