Ir para conteúdo
Faça parte da equipe! (2024) ×
Conheça nossa Beta Zone! Novas áreas a caminho! ×

  • Quem está por aqui   0 membros estão online

    • Nenhum usuário registrado visualizando esta página.

Trabalhar com Delphi + HTML

vittoroliveira

Por ,
em Delphi

 Compartilhar

Posts Recomendados

vittoroliveira Novato

vittoroliveira 0

Postado
Postado

Usamos essa função como base:

 

procedure WBLoadHTML(WebBrowser1: TWebBrowser; HTMLCode: string) ;

var

sl: TStringList;

ms: TMemoryStream;

 

begin

WebBrowser1.Navigate('about:blank') ;

while WebBrowser1.ReadyState < READYSTATE_INTERACTIVE do

Application.ProcessMessages;

 

if Assigned(WebBrowser1.Document) then

begin

sl := TStringList.Create;

try

ms := TMemoryStream.Create;

try

sl.Text := HTMLCode;

sl.SaveToStream(ms) ;

ms.Seek(0, 0) ;

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

finally

ms.Free;

end;

finally

sl.Free;

end;

end;

end;

De modo simples, vou tentar explicar.

 

O WebBrowser vai carregar o "about:blank" que é um comando que mostra a pagina em branco.

Certo, depois começa todo um processo de leitura do código HTML.

Ele vai ler o código e interpretar, igual você trabalha com o próprio HTML.

 

Agora um exemplo em ação:

 

procedure TForm1.PBB1Click(Sender: TObject);

var

sHTML : string;

begin

sHTML := '<!DOCTYPE html PUBLIC "-//IETF//DTD HTML 2.0//EN">'+

'<HTML>'+

'<HEAD>'+

'<TITLE>'+

'Exemplo HTTP + DELPHI'+

'</TITLE>'+

'</HEAD>'+

'<BODY>'+

'</BODY>'+

'</HTML>';

Form4.Show; // Aqui é um sisteminha que fiz para todo a função acima, carregue em uma nova Form com o WebBrowser.

WBLoadHTML(Form4.WB1,sHTML);

end;

Já explicando, a quebra de linhas do Delphi que me lembro tem uns dois ou três meios de fazer eu utilizo o método acima:

 

var

s : string;

begin

s := 'eu sou o vittor'+

'oliveira'+

'estou no webcheats';

end;

Sabendo disso, já é possivel fazer muitas coisas, inclusive o programa que eu fiz abaixo, que auto denominei de "OliveiraNETV"
ﾠﾠMural de Coleçõesﾠﾠ

Clique aqui e adquira suas medalhas
Link para o comentário
Compartilhar em outros sites
vittoroliveira Novato

vittoroliveira 0

Postado
  • Autor
Postado

Achei que nem precisava citar o que foi usado, mas o que eu usei foi um WebBrowser.

Como trabalhei com a IPersistStreamInit tem que ser declarado na uses Activex.

O PBB1Click é um componente que tenho em casa que é um Button normal, a diferença que ele já vem com suporte a por imagens no Button(PNG)

A Função de interpretação do HTML não é de autoria minha, já que também não é de ninguem, ela existe no próprio Manual do Delphi, é só dar uma lida e ir montando.

E sim, esse breve introdutório é de autoria minha, já que fiz pra dar uma "luz" e "dica" de como fiz para criar o OliveiraNETV (Sistema de TV Online em HTML)

ﾠﾠMural de Coleçõesﾠﾠ

Clique aqui e adquira suas medalhas
Link para o comentário
Compartilhar em outros sites
Este tópico está impedido de receber novos posts.
 Compartilhar
Ir para a lista de tópicos
×
×
  • Criar Novo...

Informação Importante

Nós fazemos uso de cookies no seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies , caso contrário, vamos supor que você está bem para continuar.

 Accept Cookies  Reject Cookies