Работа с FTP

← →
Леван Варшанидзе (2007-05-31 17:53) [0]

Привет мастерам!
Скачиваю фаил somefile.arj с ftp сервера посредством
with IdFTP1 do begin
Host:=ftpurl;
Password:="";
Username:="";
Connect(false);

if Connected then begin
Login();
TransferType:=ftbinary;
ChangeDir("incoming");
ChangeDir("price");
try
get("W_FILES.ARJ",targetfile,true,true);
except
showmessage("Download from ftp site of "w_files.arj" failed");
end ;
end

Файл вроде-бы скачивается. но не совпадает размер
(фаил на сервере имеет 7788376 байт
скачанний фаил имеет другую длину 7830354 байт)
и не открывается стандартной программой arj.exe)

В чем может быть причина и как с этим боротся ?

← →
umbra © (2007-05-31 19:24) [1]

> В чем может быть причина и как с этим боротся ?

файл не докачан до конца. надо докачать :)

← →
Anatoly Podgoretsky © (2007-05-31 22:04) [2]

> umbra (31.05.2007 19:24:01) [1]

Не не докачен, а перекачен.

← →
Alex_C © (2007-05-31 22:27) [3]

Приведи полный текст проги. Так не понятно, в чем ошибка. Такое впечатление, что скаченный фаил добавляется к уже имеющемуся файлу. Вот и длинна больше.

← →
Леван Варшанидзе (2007-06-01 09:49) [4]

> Alex_C

Предварительно я удаляю файл с таким именем на моем компе, если сущес твует

> umbra

каждый раз фаил получается одной и той-же длины - это не случайная ошибка

после закачки указанного файла я скачиваю arj.exe - на сервере она имеет длину 151127 байт
скачанный файл имеет длину в 152437 байт
и всегда одно и то-же

тут какая-то постоянная ошибка

а вот полный текст обработчика нгажатия на кнопке:

procedure TForm1.N2Click(Sender: TObject);
var
ftpUrl:string;
tempdir:string;
targetfile:string;
arjfile:string;
defaultftpurl: string="212.58.126.194";

begin

ftpurl:=defaultftpurl;
Setlength(tempdir,256);
GetTempPatha(256,PansiChar(tempdir));
tempdir:=copy(tempdir,1,pos(#0,tempdir)-1);
targetfile:=tempdir+"w_files.arj";

if inputquery("ftp URL", "enter address ftp :", ftpurl) then begin

with IdFTP1 do begin
Host:=ftpurl;
Password:="";
Username:="";
Connect(false);

if Connected then begin
username:="ftp";
password:="";
Login();
TransferType:=ftbinary;
ChangeDir("incoming");
ChangeDir("price");
try
get("W_FILES.ARJ",targetfile,true,true);
except
showmessage("Download from ftp site of "w_files.arj" failed");
end ;
arjfile:=tempdir+"arj.exe";
if not FileExists(arjfile) then
try
get("ARJ.EXE",arjfile,true,true);
except
showmessage("Download from ftp site of "arj.exe" failed");
end;
Disconnect();

end;

end;
end;
END;

Может бить, я пропускаю какой2-нибудь параметр установки?

← →
Сергей М. © (2007-06-01 10:28) [5]

> Леван Варшанидзе (01.06.07 09:49) [4]

А что говорит по поводу размера скачанного файла любой другой ftp-клиент (тот же IE, Far и т.п.), если скачивать его средствами ?

← →
Леван Варшанидзе (2007-06-01 10:46) [6]

> Сергей М

Скаяиваются точно

← →
Леван Варшанидзе (2007-06-01 10:46) [7]

> Сергей М

Скаяиваются точно

> Леван Варшанидзе (01.06.07 10:46) [7]

Сравни свой код с демо-примером использования индейского ftp-клиента

Работа с FTP Найти похожие ветки