Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.04.02;
Скачать: CL | DM;

Вниз

получить html-код как текст в файл   Найти похожие ветки 

 
ANSH ©   (2005-12-16 22:56) [0]

Всем привет. Помогите, плиз. Как получить html-код какой-либо электронной страницы с Инета в файл как текст?


 
Fay ©   (2005-12-17 02:59) [1]

Как html-текст?


 
ANSH ©   (2005-12-17 19:30) [2]

да как текст


 
ANSH ©   (2005-12-17 19:32) [3]

в файл или в, например, TMemo - чтобы можно было потом для этого html-кода написать обработчик


 
ANSH ©   (2005-12-17 19:45) [4]

я пользуюсь 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 20:07) [5]

может какие-то библиотеки нужно подключить, если  да - то какие?


 
ANSH ©   (2005-12-18 01:32) [6]

всё, разобрался - в uses нужно добавить MSHTML .



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

Текущий архив: 2006.04.02;
Скачать: CL | DM;

Наверх




Память: 0.45 MB
Время: 0.042 c
2-1142715293
beglec
2006-03-18 23:54
2006.04.02
Что посоветуете использовать.


3-1139565487
TrainerOfDolphins
2006-02-10 12:58
2006.04.02
Про координаты выделенной ячейки DBGrid а


2-1142886765
Luarv
2006-03-20 23:32
2006.04.02
Удалить элемент ФАЙЛА


6-1134831725
KvORubin
2005-12-17 18:02
2006.04.02
Мастера!!! как програмным путём передать файл.* по сети...


2-1142485939
novice_man
2006-03-16 08:12
2006.04.02
Юнит "такой то" платформо-зависимый.





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский