Einzelnen Beitrag anzeigen

scp

Registriert seit: 31. Okt 2003
1.120 Beiträge
 
Delphi 7 Personal
 
#6

Re: Formular Submit funktioniert nicht mit TWebBrowser ?!

  Alt 14. Jul 2004, 23:32
Eine Hilfsfunktion:

Delphi-Quellcode:
function ExecuteScript(doc: IHTMLDocument2; script: string; language: string): Boolean;
var
  win: IHTMLWindow2;
  Olelanguage: Olevariant;
begin
  result := false;
  if doc <> nil then
  begin
    try
      win := doc.parentWindow;
      if win <> nil then
      begin
        try
          Olelanguage := language;
          win.ExecScript(script, Olelanguage);
          result := true;
        finally
          win := nil;
        end;
      end;
    finally
      doc := nil;
    end;
  end;
end;
Aufruf dann so:

Delphi-Quellcode:
var
  IDoc1: IHTMLDocument2;
begin
  WB_Game.Document.QueryInterface(IHTMLDocument2, iDoc1);
  ExecuteScript(iDoc1, 'document.' + 'forms[0]' + '.submit()', 'JavaScript');
  Mit Zitat antworten Zitat