urgente copia??????

04/12/2003

1

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!!!


Responder

Posts

04/12/2003

Deus

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].


Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira