| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Вопрос по WebBrowser!!! [D6]

lexander ©   (2006-08-09 21:03:00) 

Подскажите как можно передать программно кусок кода HTML в компоненту WebBrowser?

---

palva   (2006-09-05 23:37:00) [1]

> Подскажите как можно передать программно кусок кода HTML в компоненту WebBrowser?

Можно так:

procedure WBLoadHTML(WebBrowser: TWebBrowser; HTMLCode: string);
begin
  WebBrowser.Navigate('about:' + HTMLCode)
end;


---

Sergioni   (2006-09-05 23:23:00) [2]

Привет Мастерам!
как из TwebBrowser вытащить весь видимый текст независимо от сложности страницы?

---

lexander   (2006-08-09 22:19:00) [3]

Большое спасибо! Работает!

______________________________________________________
(только нужно код брать в тег <html></html>, а то он код пишет как текст)
Еще раз спасибо !!!

---

anton773   (2006-08-09 22:03:00) [4]

Попробуй загрузить из строки вот пример: procedure WBLoadHTML(WebBrowser: TWebBrowser; HTMLCode: string) ;
var
  sl: TStringList;
  ms: TMemoryStream;
begin
  WebBrowser.Navigate('about:blank') ;
  while WebBrowser.ReadyState < READYSTATE_INTERACTIVE do
   Application.ProcessMessages;

  if Assigned(WebBrowser.Document) then
  begin
    sl := TStringList.Create;
    try
      ms := TMemoryStream.Create;
      try
        sl.Text := HTMLCode;
        sl.SaveToStream(ms) ;
        ms.Seek(0, 0) ;
        (WebBrowser.Document as IPersistStreamInit).Load(TStreamAdapter.Create(ms)) ;
      finally
        ms.Free;
      end;
    finally
      sl.Free;
    end;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject) ;
var
 sHTML : string;
begin
 sHTML := '<a href=" http://delphi.about.com">GOTO</a>' +
          ' About Delphi Programming';
 WBLoadHTML(WebBrowser1,sHTML) ;
end;

---

Наверх