urgente copia??????

Question

Ola amigos Tudo blz?

Fiz um Navegador no delphi, e gostaria de colocar um bot�o em que o conteudo do webBrowse seja copiado para um arquivo txt, pois as paginas que ser�o abertas pela minha empresa s�o somete texto sem imagens!!!

Obrigado!!!

Deus · Answer

Bem, eu criei uma fun��o onde voc� indica o nome do arquivo (com caminho), e ela coloca o c�digo fonte da p�gina dentro deste arquivo. Dois detalhes: se o arquivo tiver dados, ele ser� sobreescrito (ou seja, ser� apagado e escrito de novo), e o que vai dentro dele � o c�digo fonte, ou seja, est� mais para arquivo .htm do que para arquivo .txt. Se voc� realmente s� tem texto, ent�o n�o vai ter problema. :)

procedure SourceParaArquivoTXT(stArquivo: String);
var
       DOM : variant;
   mmoTexto: TMemo;
begin
  DOM := WebBrowser1.Document;
  if (Webbrowser1.LocationURL <> ��) then
  begin
    mmoTexto := TMemo.Create(Self);
    mmoTexto.Text := DOM.Body.OuterHTML;
    mmoTexto.Lines.SaveToFile(stArquivo);
    mmoTexto.Free;
  end;
end;

Agora, � s� chamar o procedimento da seguinte forma:

SourceParaArquivoTXT(�c:\teste.txt�);

E ele vai salvar tudo que tem no WebBrowser1 para o arquivo [i:8fa3f466ee]C:\Teste.txt[/i:8fa3f466ee].