| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Помогите переделать

acsoft ©   (2005-05-27 23:03:00) 

Надо чтобы процедура (см. ниже) сохраняла текст документа без тэгов, но не в файл, а в 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;

---

acsoft   (2005-05-27 23:27:00) [1]

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

---

easy   (2005-05-27 23:12:00) [2]

procedure TForm1.FormCreate(Sender: TObject);
begin
 WebBrowser1.Navigate(' http://www.delphimaster.ru/cgi-bin/forum.pl?id=1117220597&n=4');
end;

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

---

Наверх