VPF::idFTP - Форум программистов

z-END

Дата 16.5.2004, 13:48 (ссылка)

(нет голосов)

Загрузка ...

прафесар™

Профиль
Группа: Комодератор
Сообщений: 3014
Регистрация: 13.3.2003
Где: Венья, Пиетари

Репутация: 11
Всего: 102

Код

try idFTP.Connect;
 except DoConnectFailed;
end;
if Connected then 
  begin
    idFTP.BeginWork (wmRead,-1); // не работает !!!
    idFTP.Get ('some_remote_file', 'some_local_file', true, false);
    idFTP.EndWork (wmRead);  
    idFTP.BeginWork (wmWrite, -1);// работает
    idFTP.Put ( 'some_local_file', 'some_remote_file');
    idFTP.EndWork (wmWrite);  
 end;

и блин, событие OnWork работает только при выполнении wmWrite, а при wmRead - AWorkCount всегда равно 0, как будто ничего с сервера не идет, хотя насамом деле файл-то скачивается, пробывл делать так:
idFTP.BeginWork (wmRead, idFTP.Size ('some_remote_file') ); т.е. явно указывать размер "рабочих" байтов. но результат все тот=же... еще пробывал вместо BeginWork использовать DoWork - тоже с 0 результатом...
кто знает, где я туплю?

--------------------

Каждый чилавек пасвоему праф...а памоему НЕТ!

Napalm

Дата 17.5.2004, 17:50 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 55
Регистрация: 4.3.2004

Репутация: нет
Всего: нет

я так понимаю тебе надо скачать файло с фтп и при этом показать это в прогресбаре?

тогда делай так:

if Connected then
begin
idFTP.Get ('some_remote_file', 'some_local_file', true, false);
end;

у idFTP есть пропертисы

в onWork пишеш

ProgressBar1.Position:=AWorkCount;
ProgressBar1.Refresh;

в OnWorkBegin

ProgressBar1.Position:=0;
ProgressBar1.Max:=size;

в OnWorkEnd

ProgressBar1.Position:=0;

и все будет отображаться в прогрес баре

z-END

Дата 17.5.2004, 20:10 (ссылка)

(нет голосов)

Загрузка ...

прафесар™

Профиль
Группа: Комодератор
Сообщений: 3014
Регистрация: 13.3.2003
Где: Венья, Пиетари

Репутация: 11
Всего: 102

уважаемый Napalm вы приписки к коду читали?!

Цитата

в onWork пишеш

ProgressBar1.Position:=AWorkCount;
ProgressBar1.Refresh;

хотя я по-моему четко выразился по поводу того что AWorkCount отображает количество байтов только при idFTP.Put (wmWrite),а при выполнении выполнении idFTP.Get (wmRead) всегда равно нулю.

--------------------

Каждый чилавек пасвоему праф...а памоему НЕТ!

Napalm

Дата 18.5.2004, 12:49 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 55
Регистрация: 4.3.2004

Репутация: нет
Всего: нет

разница в кодах такова, что у меня нет
idFTP.BeginWork (wmRead,-1);

у меня прописаны куски в событиях. ты попробуй, а потом ругайся

у меня так работает и все чудесно

z-END

Дата 18.5.2004, 20:59 (ссылка)

(нет голосов)

Загрузка ...

прафесар™

Профиль
Группа: Комодератор
Сообщений: 3014
Регистрация: 13.3.2003
Где: Венья, Пиетари

Репутация: 11
Всего: 102

Napalm я ругаться и не собирался, просто твой код практически ничем от моего не отличается, как ты я тоже пробывал.. нифига не поулчается...
короче нашел где прикол, при выполнении закачки файла в событии onBeginWork значение AWorkMax равно нулю, а в событии onWork объем полученной информации поступает правильно.... так что приходится перед закачкой выполнеять idFTP.Size('some_remote_file');

--------------------

Каждый чилавек пасвоему праф...а памоему НЕТ!

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »