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]>
Para: delphi-br@yahoogrupos.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]
