Como carregar código HTML diretamente no WebBrowser? – Show Delphi

DICAS

Visite a biblioteca de dicas da comunidade.

Saiba mais

ARTIGOS

Abordagens detalhadas sobre assuntos diversos.

Saiba mais

INICIANTES

Aprenda a programar de um modo simples e fácil.

Saiba mais

DOWNLOADS

Acesse os materiais exclusivos aos membros.

Saiba mais
voltar

PARA QUEM GOSTA DE DELPHI

Como carregar código HTML diretamente no WebBrowser?

 

O TWebBrowser é um componite que funciona como um navegador,
assim facilmente podemos navegar para qualquer página, inclusive
abrir arquivos salvos em disco.

Mas caso seja necessário carregar um código HTML diretamente nele,
sem ter que salvar um arquivo é possível?

Felizmente sim, veja o procedimento:

uses
SHDocVw, ActiveX;

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
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;

Exemplo de uso:

1
2
3
4
5
6
7
8
procedure TForm1.FormCreate(Sender: TObject) ; 
var 
  sHTML : string; 
begin 
  sHTML := '<a>GOTO</a>' + 
           '<b>Show Delphi</b>'; 
  WBLoadHTML(WebBrowser1,sHTML) ; 
end;

Fonte: http://www.activedelphi.com.br/forum/viewtopic.php?t=46169&sid=790ff9bd178c79b87173517d0c26c2d1

Facebook Comments

Posts Relacionados

  • Giovani Da Cruz
  • 44 views
  • 0 comentários
  • 6 de novembro de 2016

Deixe uma resposta

O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *

Ir ao topo

© 2016 Infus Soluções em Tecnologia - Todos os Direitos Reservados