| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
IgorRyko
Membro Junior
Registrado: Segunda-Feira, 12 de Mai de 2008
Mensagens: 354
Localização: São Paulo - SP
|
 Enviada: Sex Fev 13, 2009 11:21 am Assunto: Jogar HTML direto no WebBrowser (resolvido+exemplo) |
 |
|
Senhores(as)
Alguém sabe como posso jogar um código HTML direto dentro do Twebbrowser sem precisar gravar o arquivo antes?
Vou enviar esse cara por e-mail e pediram pra visualizar antes, eu queria não gravar o conteúdo dele em um arquivo.
Abs
Igor
Editado pela última vez por IgorRyko em Sex Fev 13, 2009 1:46 pm, num total de 2 vezes |
|
| Voltar ao Topo |
|
 |
Brunog3
Aprendiz
Registrado: Domingo, 16 de Dezembro de 2007
Mensagens: 206
|
| Enviada: Sex Fev 13, 2009 11:46 am Assunto: |
|
|
e ai Blz?
Procure pelo componente EmbeddedWB...
Ele tem uma propriedade chamada HTMLCode que serve pra
você passar o uma string com o código em tempo de execução pra ele interpretar. |
|
| Voltar ao Topo |
|
|
IgorRyko
Membro Junior
Registrado: Segunda-Feira, 12 de Mai de 2008
Mensagens: 354
Localização: São Paulo - SP
|
| Enviada: Sex Fev 13, 2009 11:54 am Assunto: |
|
|
Mas é um componente de terceiros não é? Não tenho boas experiências com componentes de terceiros, se os nativos do Delphi nas trocas de versão vez ou outra dão problema imagina de terceiros...
Imagino que no próprio WebBrowser dê pra fazer isso, afinal se ele lê o conteúdo do arquivo que é um código html e interpreta, ele tb pode fazer isso de forma direta...
Mas vlw pela ajuda, vou dar mais uma pesquisada por aí...
Abs
Igor |
|
| Voltar ao Topo |
|
|
IgorRyko
Membro Junior
Registrado: Segunda-Feira, 12 de Mai de 2008
Mensagens: 354
Localização: São Paulo - SP
|
| Enviada: Sex Fev 13, 2009 1:44 pm Assunto: |
|
|
Senhores(as)
Achei esse exemplo num site europeu, testei e funcionou a contento.
Declarar a unit ActiveX e inserir um Twebbrowser no form.
| Código: |
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>GOTO</a>' +
'<b>About Delphi Programming</b>';
WBLoadHTML(WebBrowser1,sHTML) ;
end;
|
Abs
Igor |
|
| Voltar ao Topo |
|
|
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
