Форум: "Основная";
Текущий архив: 2002.02.04;
Скачать: [xml.tar.bz2];

Вниз

WebBrowser   Найти похожие ветки 

← →
Gennady   (2002-01-16 11:08) [3]

procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
var I2: IHTMLDocument2;
begin
WebBrowser1.Document.QueryInterface(IHTMLDocument2, I2);
Memo1.Lines.Text:=I2.body.outerHTML;
end;

может такое подойдет?

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.02.04;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.43 MB
Время: 0.026 c