Как получить содержимое WebBrowser (IE)

[Duncon]

Код: Выделить всё

var
  Document: IHTMLDocument2;
begin
 Document := WB.Document as IHtmlDocument2;
 if Document < >  nil then
   Memo1.Text := (Document.all.Item(NULL, 0) as IHTMLElement).OuterHTML;

Если не будет пахать добавь в uses mshtml или activex; непомню...

[Blood_Magic]

Duncon, не то, прочти самое первое соощение этого топа, куда тут Handle вставить?

[Duncon]

А что так не работает???

Код: Выделить всё

WinHanlde := FindWindow(pchar('IEFrame'),nil);
WinHanlde.OleObject.Document.forms.//.....Путь к чему ты хочешь обратиться

Про твой код - он должен выглядеть немного подругому

Код: Выделить всё

function GetText(WindowHandle: hwnd):string;
var
  txtLength : integer;
  buffer: string;
begin
  TxtLength := SendMessage(WindowHandle, WM_GETTEXTLENGTH, 0, 0);
  txtlength := txtlength + 1;
  setlength (buffer, txtlength);
  sendmessage (WindowHandle,wm_gettext, txtlength, longint(@buffer[1]));
  result := buffer;
end;