Hallo,
damit ich kontrollieren kann, welcher Inhalt gerade in den IE geladen ist, bräuchte ich den Zugriff auf den angezeigten
HTML-Text des IE.
Dazu habe ich mir über Spywin die Handles ermittelt und es mit folgendem Code versucht:
Delphi-Quellcode:
procedure TAppForm.Button1Click(Sender: TObject);
var
wndMain, wndChild: HWND; Size: Integer; PText: PChar;
begin
wndMain := FindWindow('IEFrame','Google - Microsoft Internet Explorer');
if wndMain <> 0 then
begin
wndChild := FindWindowEx(wndMain, 0, 'Shell DocObject View', nil);
wndChild := FindWindowEx(wndChild, 0, 'Internet Explorer_Server', nil);
if wndChild <> 0 then
begin
Size := SendMessage(wndChild,WM_GETTEXTLENGTH,0,0)+1;
PText := AllocMem(Size);
try
if SendMessage(wndChild,WM_GETTEXT,wParam(Size),lParam(PText)) > 0 then
begin
ShowMessage(PText);
end;
finally
FreeMem(PText,Size);
end;
end;
end;
end;
Leider bringt mit schon die SendMessage(wndChild,WM_GETTEXTLENGTH,0,0)-Funktion den Wert "0" (Size also "1") zurück. Ich denke, dass es mit "WM_GETTEXTLENGTH" und "WM_GETTEXT" nicht geht, habe aber keine Ahnung wie sonst. Ich bin leider in der Programmierung mit direkten Windowsfunktionen unerfahren.