E aí Cassiano, tudo bem?
Que coisa hein! Tem como vc mandar o seu arquivo html? Vamos dar uma olhada
nele. Envie p/:
[EMAIL PROTECTED]
Té+
Em 22/03/07, cassiano luz <[EMAIL PROTECTED]> escreveu:
>
> ok!
>
> Acho que não consegui.....
>
> to mandando o que acontece no anexo, no btn salvar to salvando o arquivo e
> no abrir to lendo ele novamente para um RichEdit.
>
> []´s
> Cassiano
>
>
> ----- Mensagem original ----
> De: Fernando Nappe <[EMAIL PROTECTED]<listas.fernando.nappe%40gmail.com>
> >
> Para: delphi-br@yahoogrupos.com.br <delphi-br%40yahoogrupos.com.br>
> Enviadas: Terça-feira, 20 de Março de 2007 9:41:09
> Assunto: Re: [delphi-br] ler arquivo html
>
> E aí Cassiano, blz?
>
> Acho que você pode resolver isso de maneira bem mais simples. Na verdade,
> um
> arquivo HTML é um arquivo texto com outra extensão, nada mais. Sendo assim
> basta você chamar o método LoadFromFile do Memo que vai funcionar.
> Exemplo:
>
> seuMemo.Lines. LoadFromFile( 'seu_arquivo. html');
>
> Faz o teste, e me conta.
>
> Abraço.
>
> Em 15/03/07, cassiano luz <cassiano_rluz@ yahoo.com. br> escreveu:
> >
> > Boa Tarde!
> >
> > puts, se alguem puder me dar um help?
> >
> > Meu programa grava um aquivo *.html no 'C:\'
> >
> > de depois ele carrega para um Memo atraves de uma função que lê linha
> por
> > linha desse aquivo,
> >
> > mas ai que tá o problema ele lê umas linhas estranhas e não da p.
> entender
> > nada.
> >
> > se eu coloco um aquivo txt ele lê normalmente lilnha por linha sem
> > problemas.
> >
> > O proposito do programa é colocar no Memo o fonte do html.
> >
> > var
> > HTMLDocument: IHTMLDocument2;
> > PersistFile: IPersistFile;
> > arq: TextFile;
> > linha: String;
> > begin
> > //salva o arquivo html que está no WebBrowser1
> > HTMLDocument := WebBrowser1. Document as IHTMLDocument2;
> > PersistFile := HTMLDocument as IPersistFile;
> > PersistFile. Save(StringToOle Str('c:\tmp_ eml.html' ), System.True) ;
> > // Copia as linha para o memo1.
> > AssignFile ( arq, 'c:\tmp_eml. html' );
> > Reset ( arq );
> > ReadLn ( arq, linha );
> > while not Eof ( arq ) do
> > begin
> > Memo1.Lines. Append(linha) ;
> > ShowMessage( linha);
> > ReadLn ( arq, linha );
> > end;
> >
> > Memo1.Lines. Append(linha) ;
> > CloseFile ( arq );
> >
> > end;
> >
> > []´s
> > A todos
> >
> > ____________ _________ _________ _________ _________ __
> > Fale com seus amigos de graça com o novo Yahoo! Messenger
> > http://br.messenger .yahoo.com/
> >
> > [As partes desta mensagem que não continham texto foram removidas]
> >
> >
> >
>
> --
> Fernando Nappe
> Analistas de Sistemas
> http://nappe. blogspot. com
>
> [As partes desta mensagem que não continham texto foram removidas]
>
> __________________________________________________
> Fale com seus amigos de graça com o novo Yahoo! Messenger
> http://br.messenger.yahoo.com/
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
>
--
Fernando Nappe
Analistas de Sistemas
http://nappe.blogspot.com
[As partes desta mensagem que não continham texto foram removidas]
