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 <[EMAIL PROTECTED]> 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(StringToOleStr('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]
