Как вывести в WebBrowser содержание DIV сайта - Общие вопросы Delphi

hacker_007 · 22.07.2012, 16:47

Как вывести в WebBrowser содержание DIV сайта.
Нужно, чтобы в WebBrowser выводился не весь сайт, а его определённая часть. Допустим блок (div) с фотографиями.
Пробовал много вариантов но, что-то не то...

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
 rss,title:WideString;
begin
   rss:=IdHTTP1.Get('http://ru.wowhead.com/item=49623');
    Delete(rss,1,pos('<div class="main" id="main">',rss)+length('<div class="main" id="main">'));
       title:=copy(rss,1,pos('</div>',rss));
       WebBrowser1.Navigate(title);
       end;

Может что-то подобное... Не работает тож...

volvo877 · 22.07.2012, 17:17

Navigate переходит по адресу, а не отображает HTML-код. Для отображения HTML-кода оберни свою строку (полученную после всех преобразований) <html>...</html>, затолкай в TMemoryStream и отобрази в WB:

Код:

(WebBrowser.Document as IPersistStreamInit).Load(TStreamAdapter.Create(ms)) ;

hacker_007 · 22.07.2012, 17:37

Цитата:

Сообщение от volvo877

Navigate переходит по адресу, а не отображает HTML-код. Для отображения HTML-кода оберни свою строку (полученную после всех преобразований) <html>...</html>, затолкай в TMemoryStream и отобрази в WB:

Код:

(WebBrowser.Document as IPersistStreamInit).Load(TStreamAdapter.Create(ms)) ;

Как отображать я понял... Но как теперь взять нужный div?

volvo877 · 22.07.2012, 17:59

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
   title : string;
   sL : TStringList;
   ms : TMemoryStream;
begin
   // тут находишь свое содержимое title, которое надо отобразить

   if Assigned(WebBrowser1.Document) then
   begin
      sL := TStringList.Create;
      try
         ms := TMemoryStream.Create;
         try
            sL.Text := title;
            sL.SaveToStream(ms);
            ms.Seek(0, soFromBeginning);
            (WebBrowser1.Document as IPersistStreamInit).Load(TStreamAdapter.Create(ms));
         finally
            FreeAndNil(ms);
         end;
      finally
         FreeAndNil(sL);
      end;
   end;
end;

Если WebBrowser совсем пустой, т.е., ты его только положил на форму и всё - надо хотя бы загрузить в него 'about:blank' и дождаться окончания загрузки, и только потом пытаться загружать свой код.

hacker_007 · 22.07.2012, 18:03

Эт я понял уже как делать спс)) Встал вопрос захватом нужного
<div class="text">.......</div> И если я не ошибаюсь, там и css как то захватить надо.... Но как?

daaa · 21.01.2014, 15:12

спасибо,то что надо!

22.07.2012, 16:47	#1
hacker_007 Пользователь Регистрация: 18.09.2011 Сообщений: 17	Как вывести в WebBrowser содержание DIV сайта Как вывести в WebBrowser содержание DIV сайта. Нужно, чтобы в WebBrowser выводился не весь сайт, а его определённая часть. Допустим блок (div) с фотографиями. Пробовал много вариантов но, что-то не то... Код: `procedure TForm1.Button1Click(Sender: TObject); var rss,title:WideString; begin rss:=IdHTTP1.Get('http://ru.wowhead.com/item=49623'); Delete(rss,1,pos('<div class="main" id="main">',rss)+length('<div class="main" id="main">')); title:=copy(rss,1,pos('</div>',rss)); WebBrowser1.Navigate(title); end;` Может что-то подобное... Не работает тож... Последний раз редактировалось Stilet; 22.07.2012 в 17:15.

22.07.2012, 17:17	#2
volvo877 Форумчанин Регистрация: 01.06.2009 Сообщений: 108	Navigate переходит по адресу, а не отображает HTML-код. Для отображения HTML-кода оберни свою строку (полученную после всех преобразований) <html>...</html>, затолкай в TMemoryStream и отобрази в WB: Код: `(WebBrowser.Document as IPersistStreamInit).Load(TStreamAdapter.Create(ms)) ;` Наша кошка

21.01.2014, 15:12	#6
daaa Пользователь Регистрация: 22.10.2012 Сообщений: 18	спасибо,то что надо! Последний раз редактировалось daaa; 21.01.2014 в 15:22.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Содержание сайта	Anton	PHP	3	30.05.2012 12:20
Webbrowser и как скопировать данные сайта через него?	NickForm	Работа с сетью в Delphi	0	12.12.2011 06:59
Как вывести со страницы определенный <div id="">то что вывести</div>	makar3000	PHP	6	11.08.2011 12:56
Как вывести в Мемо список посещенных ссылок(Webbrowser)	Terikon	Работа с сетью в Delphi	4	14.11.2010 16:08
Как вывести информацию при нажатии на ссылку в нужный div ???	333_org_ua	HTML и CSS	1	13.11.2010 13:51

22.07.2012, 18:03	#5
hacker_007 Пользователь Регистрация: 18.09.2011 Сообщений: 17	Эт я понял уже как делать спс)) Встал вопрос захватом нужного <div class="text">.......</div> И если я не ошибаюсь, там и css как то захватить надо.... Но как?