Scaricare file dalla rete con delphi

14 set 2007

Pubblicato in Delphi, HowTo, Programmazione | 1 Commento »

Se si ha bisogno di salvare il cuntenuto di un URL oppure un vero e proprio file presente in rete avendo anche la possibilità di controllare come procede il download, bisogna usare l’action TDownLoadURL. Essa genera un evento OnDownloadProgress, che consente di tenere traccia dei byte scaricati.
Nota: bisogna includere la unit ExtActns nella uses.

uses ExtActns, ...
 
type
TfrMain = class(TForm)
...
private
    procedure URL_OnDownloadProgress
       (Sender: TDownLoadURL;
        Progress, ProgressMax: Cardinal;
        StatusCode: TURLDownloadStatus;
        StatusText: String; var Cancel: Boolean);
...
 
 
implementation
...
 
 
procedure TfrMain.URL_OnDownloadProgress;
  begin
    ProgressBar1.Max:= ProgressMax;
    ProgressBar1.Position:= Progress; 
  end;
 
function DoDownload;
  begin
    with TDownloadURL.Create(self) do
    try
      URL:='http://www.prova.com/index.xml';
      FileName := 'c:\MioFile.xml';
      OnDownloadProgress := URL_OnDownloadProgress;
      ExecuteTarget(nil);
    finally
    Free;
    end;
  end;

Share on Facebook

Un Commento a “Scaricare file dalla rete con delphi”

ely88 scrive:

novembre 22, 2007 alle 5:55 pm

Ciao!!!
nel TdownloadURL.create(self) non mi riconosce self… cosa posso fare??
e poi doDownload è una funzione?? cosa ritorna?? oppure è una procedura che si avvia xes con il click di un bottone??
spero che mi risp