Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Работа с FTP [D7, WinXP]

Леван Варшанидзе © (2007-05-31 17:53:00)
Привет мастерам!
Скачиваю фаил 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)

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

Сергей М. (2007-06-01 11:13:00) [1]

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

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

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

> Сергей М

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

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

> Сергей М

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

Сергей М. (2007-06-01 10:28:00) [4]

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

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

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

> 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-нибудь параметр установки?

Alex_C (2007-05-31 22:27:00) [6]
Приведи полный текст проги. Так не понятно, в чем ошибка. Такое впечатление, что скаченный фаил добавляется к уже имеющемуся файлу. Вот и длинна больше.

Anatoly Podgoretsky (2007-05-31 22:04:00) [7]
> umbra (31.05.2007 19:24:01) [1]

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

umbra (2007-05-31 19:24:00) [8]

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

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

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »