Ciao a tutti,
devo fare un programma che scarichi file .rar (archivi compattati con winrar), tramite ftp o internet...
Io avevo questa funzione per tutti i file, ma non funziona con questo tipo...
Qualcuno mi può aiutare?
codice:
procedure TfrmLogin.ScaricaFile2(NomeFile,Est:string); //scarico i file dall'ftp
var
SourceFile:string; //file da scaricare
DestFile:string; //file di destinazione
begin
SourceFile := 'http://www.MIOHOST.it/DownloadAgg/'; //path da cui prendere il file
dirDownload:= path+'patchGCIWINScaricate\';
if not DirectoryExists(dirDownload) then // se la directroy non esiste
begin
mkdir(dirDownload);
{if not CreateDir(dirDownload) then //creo la directory Se non esiste
raise Exception.Create(dirDownload); }
end;
//va sostituito con altro percorso tipo quello dell'applicazione+cartella
DestFile := dirDownload; //path dove salvare download nel server dei clienti
SourceFile:=SourceFile+NomeFile; //path+nome file da scaricare
DestFile:=DestFile+NomeFile+Est; //path + nomefile + est per salvare il file
if DownloadFile(SourceFile, DestFile) = False //scarico il file
then
ShowMessage('Error while downloading ' + SourceFile)
end;
function DownloadFile(SourceFile, DestFile: string): Boolean;
begin
try
Result := UrlDownloadToFile(nil, PChar(SourceFile), PChar(DestFile), 0, nil) = 0; //scarica il file
except
Result := False;
end;
end;
Grazie in anticipo
Ciao