...eine Javascript Funktion eines Webbrowser/IE Dokuments ausführen?

Autor: Thomas Stutz

Kategorie: Internet / LAN

uses
  
MSHTML_TLB, SHDocVw, ShellAPI;

// function to execute a script function

function ExecuteScript(doc: IHTMLDocument2; script: string; language: string): Boolean;
var
  
win: IHTMLWindow2;
  Olelanguage: Olevariant;
begin
  if 
doc <> nil then
  begin
    try
      
win := doc.parentWindow;
      if win <> nil then
      begin
        try
          
Olelanguage := language;
          win.ExecScript(script, Olelanguage);
        finally
          
win := nil;
        end;
      end;
    finally
      
doc := nil;
    end;
  end;
end;

// 2 Examples how to login to gmx homepage

procedure FillInGMXForms(WB: ShDocVW_TLB.IWebbrowser2; IDoc1: IHTMLDocument2;
  Document: Variant; AKennung, APasswort: string);
const
  
IEFields: array[1..4] of string = ('INPUT', 'text', 'INPUT', 'password');
var
  
IEFieldsCounter: Integer;
  i: Integer;
  m: Integer;
  ovElements: OleVariant;
begin
  if 
Pos('GMX - Homepage', Document.Title) <> 0 then

    while 
WB.ReadyState <> READYSTATE_COMPLETE do
      
Application.ProcessMessages;

  // count forms on document and iterate through its forms
  
IEFieldsCounter := 0;
  for m := 0 to Document.forms.Length - 1 do
  begin
    
ovElements := Document.forms.Item(m).elements;

    // iterate through elements
    
for i := ovElements.Length - 1 downto do
    begin
      try
        
// if input fields found, try to fill them out
        
if (ovElements.item(i).tagName = IEFields[1]) and
          
(ovElements.item(i).type = IEFields[2]) then
        begin
          
ovElements.item(i).Value := AKennung;
          Inc(IEFieldsCounter);
        end;

        if (ovElements.item(i).tagName = IEFields[3]) and
          
(ovElements.item(i).type = IEFields[4]) then
        begin
          
ovElements.item(i).Value := APasswort;
          Inc(IEFieldsCounter);
        end;
      except
        
// failed...
      
end;
    end{ for i...}
  
end;  { for m }
  // if the fields are filled in, submit.
  
if IEFieldsCounter = 3 then ExecuteScript(iDoc1, 'document.login.submit()',
      'JavaScript');
end;

function LoginGMX_IE(AKennung, APasswort: string): Boolean;
var
  
ShellWindow: IShellWindows;
  WB: ShDocVW_TLB.IWebbrowser2;
  spDisp: IDispatch;
  IDoc1: IHTMLDocument2;
  Document: Variant;
  k: Integer;
begin
  
ShellWindow := CoShellWindows.Create;
  // get the running instance of Internet Explorer
  
for k := 0 to ShellWindow.Count do
  begin
    
spDisp := ShellWindow.Item(k);
    if spDisp = nil then Continue;
    // QueryInterface determines if an interface can be used with an object
    
spDisp.QueryInterface(iWebBrowser2, WB);
    if WB <> nil then
    begin
      
WB.Document.QueryInterface(IHTMLDocument2, iDoc1);
      if iDoc1 <> nil then
      begin
        
WB := ShellWindow.Item(k) as ShDocVW_TLB.IWebbrowser2;
        Document := WB.Document;
        // if GMX page...
        
FillInGMXForms(WB, IDoc1, Document, AKennung, APasswort);
      end;  { idoc <> nil }
    
end{ wb <> nil }
  
end;  { for k }
end;

// Example 1: Navigate to the gmx homepage in the IE browser an login
procedure TForm1.Button1Click(Sender: TObject);
begin
  
ShellExecute(Handle,
    'open',
    'http://www.gmx.ch',
    nil,
    nil,
    SW_SHOW);
  Sleep(2000);
  LoginGMX_IE('user@gmx.net', 'pswd');
end;


// Example 2: navigate to the gmx homepage in the Webbrowser an login
procedure TForm1.Button2Click(Sender: TObject);
var
  
IDoc1: IHTMLDocument2;
  Web: ShDocVW_TLB.IWebBrowser2;
begin
  
Webbrowser1.Navigate('http://www.gmx.ch');
  while Webbrowser1.ReadyState <> READYSTATE_COMPLETE do
    
Application.ProcessMessages;
  Webbrowser1.Document.QueryInterface(IHTMLDocument2, iDoc1);
  Web := WebBrowser1.ControlInterface;
  FillInGMXForms(Web, iDoc1, Webbrowser1.Document, 'user@gmx.net', 'pswd');
end;

 

printed from
www.swissdelphicenter.ch
developers knowledge base