Текущий архив: 2005.09.18;
Скачать: CL | DM;
Вниз
Помогите переделать Найти похожие ветки
← →
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;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.037 c
