[Resolvido] Baixar xml da internet

[orc 0]

alguem sabe como faço para baixar um xml da internet ????

[marcio.theis 3]

Já tentou usar o UrlDownloadToFile() ?

 

Exemplo que peguei na internet:

 

function DownloadFile(Source, Dest: string): Boolean; begintry   Result := UrlDownloadToFile(nil, PChar(source), PChar(Dest), 0, nil) = 0;except   Result := False;end;end; procedure TForm1.Button1Click(Sender: TObject);beginif DownloadFile ('http://www.dicasdelphi.xpg.com.br/downloads/DicasDelphi.zip', 'c:\windows\desktop\dicasdelphi.zip') then   ShowMessage('Download Concluído!')else   ShowMessage('Falha ao fazer o download!!')end;

[orc 0]

Já tentou usar o UrlDownloadToFile() ?

 

Exemplo que peguei na internet:

 

function DownloadFile(Source, Dest: string): Boolean; begintry   Result := UrlDownloadToFile(nil, PChar(source), PChar(Dest), 0, nil) = 0;except   Result := False;end;end; procedure TForm1.Button1Click(Sender: TObject);beginif DownloadFile ('http://www.dicasdelphi.xpg.com.br/downloads/DicasDelphi.zip', 'c:\windows\desktop\dicasdelphi.zip') then   ShowMessage('Download Concluído!')else   ShowMessage('Falha ao fazer o download!!')end;

OPA VALEU achei um aqui tb

 

function DownloadURLFile(const ADPXMLBLOG, ADPLocalFile : TFileName) : boolean;begin  Result := True;  with TDownLoadURL.Create(nil) do  try	URL	  := ADPXMLBLOG;	Filename := ADPLocalFile;	try	  ExecuteTarget(nil);	except	  Result := False;	end;  finally	Free;  end;end;

[marcio.theis 3]

beleza... http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif