Показать сообщение отдельно
  #1  
Старый 22.10.2015, 22:08
DeNiSoK12Rus DeNiSoK12Rus вне форума
Прохожий
 
Регистрация: 15.10.2015
Сообщения: 13
Версия Delphi: Delphi XE3
Репутация: 10
По умолчанию Как загрузить содержимое сайта в Tstringlist

В общем есть допустим такая функция.
Html.LoadFromFile(OpenDialog1.FileName).

А как мне сделать чтобы он загружал не из диалога, а напрямую из сайта. Я отправляю get запрос через synapse.
И копирую код страницы, но когда пишу:

Html.LoadFormStream(тут переменная).

То выходит ошибки. Вот в общем полный код:


Код:
if OpenDialog1.Execute then
  begin
   HTML.Clear;
   HTML.LoadFromFile(OpenDialog1.FileName);
  end;
  Form1.HTMLTEXT2.Caption:=inttostr(HTML.Count);

Вот рабочий код для загрузки из диалога, вот мой не рабочий для загрузки на прямую с сайта.

Код:
if HTTP.HTTPMethod('get', 'site.ru') then
   htmlll2.LoadFromStream(http.Document); 
   begin
   HTML.Clear;
   Html.LoadFormStream(htmlll2).
  end;
  Form1.HTMLTEXT2.Caption:=inttostr(HTML.Count);