hey...
ich versuche momentan mit Postmessage an die TWebbrowser Komponente die Tastendrücke Strg+A zu senden.
Hierzu habe ich folgendes Ausprobiert. ersteinmal öffne ich den Webbrowser :
Delphi-Quellcode:
Webbrowser1.Navigate('www.Windguru.cz');
Webbrowser1.SetFocus;
dann habe ich die ersteinmal das ausprobiert :
Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
begin
PostMessage(Webbrowser1.Handle, WM_KEYDOWN, VK_CONTROL,0);
PostMessage(Webbrowser1.Handle, WM_KEYDOWN, ord('A'),0);
PostMessage(Webbrowser1.Handle, WM_KEYUP, VK_CONTROL,0);
PostMessage(Webbrowser1.Handle, WM_KEYUP, ord('A'),0);
end;
da nichts passierte habe ich ein bisschen gesucht und gelesen, dass man für Win-
Api-Aufrufe
Webbrowser1.hWnd
statt
Webbrowser1.Handle
benutzen solle.
Hierbei trat jedoch der Fehler "Im Projekt Projekt1.exe ist eine
Exception der Klasse EOleException mit der Meldung 'unbekannter Fehler' aufgetreten".
daraufhin hab ich hier im Forum eine andere Lösung gefunden:
Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
var
wnd :HWND;
begin
wnd := FindWindowEx(WebBrowser1.Handle,0,'Shell DocObject View',nil);
wnd := FindWindowEx(wnd ,0,'Internet Explorer_Server',nil);
if wnd <> 0 then
begin
// *** (Webbrowser1.Document as IHTMLDocument2).ParentWindow.Focus; *** // ist wahrscheinlich nicht notwendig
PostMessage(wnd, WM_KEYDOWN, VK_CONTROL,0);
PostMessage(wnd, WM_KEYDOWN, ord('A'),0);
PostMessage(wnd, WM_KEYUP, VK_CONTROL,0);
PostMessage(wnd, WM_KEYUP, ord('A'),0);
end
end;
auch hier geschieht jedoch nichts. bzw. ersetzt man Webbrowser1.Handle durch Webbrowser1.hWnd tritt erneut der Fehler auf. Das
Handle scheint er auch komischerweise zu finden da er in die Bedingung hinein geht...
Bin hier gerade am verzweifeln und würde mich freuen wenn mir jemand weiter helfen könnte.