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]
