WebBrowser

[Madshall]

Как связать компоненты TWebBrowser и TPageProducer? Цель: получить контент web-страницы в типе WideString, TStrings и т.п.

[Blood_Magic]

поточнее, что нужно? я с этим работал.

[Madshall]

Браузером открывается страница, а мне нужно работать с ее кодом.

[Blood_Magic]

просто получить код или обновить?
страница с фреймами или нет?

[Madshall]

страница может быть и с фреймами, но пусть пока без них. обновлять не надо, надо получить код.

[Blood_Magic]

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

function GetHTML(iDoc:IHtmlDocument2):string;
var
  str:TStringStream;
begin
  str:=TStringStream.Create('');
  try
    (iDoc as IPersistStreamInit).Save(TStreamAdapter.Create(str),True);
    Result:=str.DataString;
  finally
    str.Free;
  end;
end;

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

procedure TfmBrowserForm.WebBrowserDocumentComplete(Sender: TObject; const pDisp: IDispatch; var URL: OleVariant);
begin
  If not assigned((pDisp as IWebBrowser).Document) then Exit;
  (pDisp as IWebBrowser).Document.QueryInterface(IHtmlDocument2,iDoc);
  If not assigned(iDoc) then Exit;
  s:=GetHTML(iDoc);
end;