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

Вниз

Помогите переделать   Найти похожие ветки 

← →
acsoft ©   (2005-05-27 23:03) [0]

Надо чтобы процедура (см. ниже) сохраняла текст документа без тэгов, но не в файл, а в Memo. Второй день парюсь...

procedure GetHtmlCode(WebBrowser: TWebBrowser; FileName: string);
var
htmlDoc: IHtmlDocument2;
PersistFile: IPersistFile;
begin
htmlDoc := WebBrowser.document as IHtmlDocument2;
PersistFile := HTMLDoc as IPersistFile;
PersistFile.save(StringToOleStr(FileName), true);
end;

---

← →
easy ©   (2005-05-27 23:12) [1]

procedure TForm1.FormCreate(Sender: TObject);
begin
 WebBrowser1.Navigate("http://delphimaster.net/view/6-1117220597/");
end;

procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
 const pDisp: IDispatch; var URL: OleVariant);
begin
 memo1.Text:=WebBrowser1.OleObject.document.body.innertext;
end;

---

← →
acsoft ©   (2005-05-27 23:27) [2]

Спасибо большое!
Действительно, а то я зациклился на Persist"ах...

---

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

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

Наверх

Память: 0.45 MB
Время: 0.011 c