Скачать: CL | DM;

HTML-содержимое Web-страницы   Найти похожие ветки 

← →
Sergey_Plotkin   (2003-10-22 21:45) [0]

На форме есть компонента TMemo (или просто переменная TStrings). как в нее загрузить HTML-код нужной мне страницы? Страницы, лежащей не на жестком диске (тогда все просто), а в глобальной паутине... Напр. содержимое страницы http://delphi.mastak.ru/index.html
Т.е. другими словами сгрузить эту страничку, а затем прочитать...

След. вариант, к сожалению, не работает:
begin
Memo1.Lines.LoadFromFile(" http://www.softboard.ru/111.html");
end;

Мне почему-то кажется, что это можно сделать через компоненту TWebBrowser (вот только как?)... Уже обработанное содержимое страницы при помощи команды Navigate туда загружается, а вот как посмотреть ее внутренности, HTML-код?

Никогда не работал в Delphi с паутиной, поэтому текущая (очень важная) задача поставила меня, просто, в тупик. Помогите, пожалуйста.

---

← →
Ihor Osov'yak ©   (2003-10-23 02:38) [1]

Если нужно иметь код, который получается после всех преобразований - то предпочтительнее TWebBrowser, если нужно as is (то есть то, что приходит с сервера) - то нужно использовать что-то более низкоуровневее..

Далее примеры:

function SaveToString(const WebBrowser: IWebBrowser2): string;
var
S: TStringStream;
begin
S := TStringStream.Create("");
try
(WebBrowser.Document as IPersistStreamInit).Save(TStreamAdapter.Create(S), True);
Result := S.DataString;
finally
S.Free;
end;
end;

Как параметр передаем WebBrowser1.DefaultInterface (естественно, после завершения навигации)

Второй подход - см. в направлении
InternetOpen, InternetOpen, InternetOpenUrl, InternetReadFile...

Если это покажется сложноватым - есть готовые компоненты, а том же Indy, или тот же TNMHTTP от фастнет..

---

← →
Elic   (2003-10-24 15:18) [2]

Memo1.text:=idHTTP1.Get(" http://www.softboard.ru/111.html")

---

← →
Andersen   (2003-10-24 15:30) [3]

>Страницы, лежащей не на жестком диске (тогда все просто),

Может глупый вопрос, но если можно отобразить ХТМЛ страницу
в мемо, в её оригинальном состоянии, то покажите как енто можа сделать (пусть даже на винте).
Или вы рассматриваете Memo, как обычный TStringList
в котором ХТМЛ страница типа: <HTML>....</HTML>?

---

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

Скачать: CL | DM;



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