![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
получить html-код как текст в файл
ANSH © (2005-12-16 22:56:00)Всем привет. Помогите, плиз. Как получить html-код какой-либо электронной страницы с Инета в файл как текст?
ANSH (2005-12-18 01:32:00) [1]всё, разобрался - в uses нужно добавить MSHTML .
ANSH (2005-12-17 20:07:00) [2]может какие-то библиотеки нужно подключить, если да - то какие?
ANSH (2005-12-17 19:45:00) [3]я пользуюсь Delphi7. Как я понял, нужно пользоваться TIdHttp, только в help-e разобраться не могу. Пишу код:
Memo1.Lines.Text:=IdHTTP1.Get('url'); - не катит.
А если -
procedure TForm1.GetHtmlCode(WebBrowser: TWebBrowser; FileName: string);
var
Document: IHTMLDocument2;
PersistFile: IPersistFile;
begin
Document := WebBrowser.Document as IHtmlDocument2;
PersistFile := Document as IPersistFile;
PersistFile.save(StringToOleStr(FileName), true);
if Document <> nil then
form1.Memo1.Text := (Document.all.Item(NULL, 0) as IHTMLElement).outerText; //как текст
form1.Memo2.Text := (Document.all.Item(NULL, 0) as IHTMLElement).outerHTML; //как html
end;
- то выдает ошибку, что типа IHTMLDocument2 - нет.
что делать в этом случае, подскажите пожалуйста!!!!
ANSH (2005-12-17 19:32:00) [4]в файл или в, например, TMemo - чтобы можно было потом для этого html-кода написать обработчик
ANSH (2005-12-17 19:30:00) [5]да как текст
Fay (2005-12-17 02:59:00) [6]Как html-текст?