Einzelnen Beitrag anzeigen

Eichhoernchen

Registriert seit: 22. Apr 2004
Ort: Hagen
322 Beiträge
 
Turbo Delphi für Win32
 
#1

Internetexplorer Seite ändern und absenden

  Alt 11. Mär 2006, 12:41
Ja ich weiß, da steht scho nwas im Forum dazu drinn, aber nicht auf die Art und Weise wie ich es gern hätte, beziehungsweise so wie es da steht geht es bei mir nicht.


Also ich hab nen window handle das die class: 'Internet Explorer_Server' hat, nun möchte ich in diesem IE Fenster den Inhalt von einer <input type='text' id='n2'> Feld setzten und anschließend einen Knopf am ende des Formulars drücken.

Dazu habe ich mir bis jetzt diese beiden units angeschaut: MSHTML_TLB, SHDocVw_TLB



Nun habe ich folgendes versucht:
Delphi-Quellcode:
var hIE: HWND;
    ShellWindow: IShellWindows;
    i : integer;
Begin
  hIE := //Das Handle von meinem IE fenster das hab ich schon
  ShellWindow := CoShellWindows.Create;
  for i := 0 to ShellWindow.Count - 1 do
  begin
    if (shellwindow.Item(i) as iWebBrowser2).HWND = hIE
      then Begin
            showmessage('GEFUNDEN');
            ...
           end;
  end;
end;

Naja nur mein Problem ist das der der Fall in der If Abfrage niemals eintritt, woran liegt das?? Eigentlich müsste das doch klappen und das hIE handle stimmt zu 100%. Was mach ich falsch, bitte helfen!!!
Jan
  Mit Zitat antworten Zitat