Delphi - download file - Piero Tofy.it

Forum - Delphi - download file

systemgvp (Normal User)
Expert

Messaggi: 296
Iscritto: 14/04/2008

Postato alle 15:53
Venerdì, 04/06/2010

salve,
ho un problema quando scarico i file da internet con le relative  funzioni

Sorgente:= 'http://systemgvp.altervista.org/tritone/Trit.exe';
Destinazione:= Cartella+'Trit.exe';
DownloadFile(Sorgente, Destinazione)

oppure con il controllo indy IdFTP

IdFTP1.Host:= 'systemgvp.altervista.org';
  IdFTP1.Username:='***';
  IdFTP1.Password:='***';
  IdFTP1.Connect;  //connessione
  IdFTP1.Get('/tritone/Trit.zip',Destinazione);
  IdFTP1.Abort;    //disconnessione
  ShowMessage(pchar('File trasferito'));

con entrambi i metodi l'operazione viene completata norlmalmente ma il
file risulta corrotto, col primo la dimensione varia di poco di quella
giusta e l'altro si ferma a circa un terzo. Perchè? premetto che per file
da poche centinaia di kb entrambe i metodi funzionano egregiamente.

Phi (Member)
Expert

Messaggi: 241
Iscritto: 30/12/2009

Postato alle 21:35
Martedì, 08/06/2010

Penso, anche se non son sicuro, che si possa fare anche così.

Codice sorgente - presumibilmente Delphi

uses
  URLMon, ShellApi;
 
function DownloadFile(SourceFile, DestFile: string): Boolean;
begin
  try
    Result := UrlDownloadToFile(nil, PChar(SourceFile), PChar(DestFile), 0, nil) = 0;
  except
    Result := False;
  end;
end;
 
 
procedure TForm1.Button1Click(Sender: TObject);
const
  SourceFile = 'http://altervista.org/Trit.exe';
  DestFile = 'c:.............Trit.exe';
begin
  if DownloadFile(SourceFile, DestFile) then
  begin
    ShowMessage('Download succesful!');
    ShellExecute(Application.Handle, PChar('open'), PChar(DestFile),
      PChar(''), nil, SW_NORMAL)
  end
  else
    ShowMessage('Error while downloading ' + SourceFile)
end;

systemgvp (Normal User)
Expert

Messaggi: 296
Iscritto: 14/04/2008

Postato alle 21:49
Martedì, 08/06/2010

no, non funziona perchè è quello che già faccio col primo metodo