Solnake
Advanced Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
GreatOne
Что ты хочеш зделать? скачать файл по фтп?
я качал вот так
Код:
procedure TFTPThread.Download;
var
aFiles: TStringList;
x: Extended;
begin
try
FTPClient.Connect;
if FChangeDir <> EmptyStr then FTPClient.ChangeDir(FChangeDir);
aFiles:= TStringList.Create;
FTPClient.List(aFiles, FFileName, true);
if aFiles.Count > 0 then begin
FBytesTotal := FTPClient.Size(FFileName);
x := GetFileSize(FLocalFileName);
if x >= 0 then
FBytesAlreadyDone := x
else
FBytesAlreadyDone := 0;
if FLastTime = 0 then FLastTime := time;
FTPLog('Починаємо скачування файла ' + FFileName + '...');
FTPLog('Розмір: ' + FloatToStrF(FBytesTotal, ffFixed, 9, 0) + ' байт');
aFiles.Free;
FTPClient.Get(FFileName, FLocalFileName, false, true);
end
else begin
FTPLog('Файла ' + FFileName + ' не існує. Скачування буде перервано.');
FTPClient.Disconnect;
aFiles.Free;
FFlag := FL_FILE_NOT_EXISTS;
Terminate;
end;
FDownloadCompleted := true;
FTPLog('Скачування файла успішно завершено');
FTPClient.Disconnect;
except
on E:Exception do begin
FTPLog('ERROR: ' + E.Message);
end;
on E:EIdException do begin
FTPLog(E.Message);
end;
end;
end;
|
----------
Я не страдаю манией величия, я ею наслаждаюсь(с) |
|
