Вниз
Скачать: CL | DM;

IdFTP проблема синдикатором закачки   Найти похожие ветки 

 
mrKaktus   (2007-11-17 13:40) [0]

Здравствуйте! использую Indy 10 для приема и отправки файлов по FTP. Проблема в следующем: при орправке файла на сервер не отображается процесс закачки:

procedure TForm3.fputWorkBegin(ASender: TObject; AWorkMode: TWorkMode;
 AWorkCountMax: Integer);
begin

form3.AdvProgressBar1.Max :=AWorkCountMax;
 form3.ProgressBar1.Position := 0;
 form3.ProgressBar1.Visible := true;
end;

procedure TForm3.fputWork(ASender: TObject; AWorkMode: TWorkMode;
 AWorkCount: Integer);
begin

form3.ProgressBar1.Position:=aworkcount;

end;

procedure TForm3.fputWorkEnd(ASender: TObject; AWorkMode: TWorkMode);
begin

form3.ProgressBar1.Visible := false;

end;


Получается следуещее: показывается прогрессбар (WorkBegin) и тутже пропадает (WorkEnd). Куда девается (Work)? Хотя закачка файла на сервер продолжается, индекатора так и не видно.

Тоже самое делаю для приема файлов. Здесь все работает как положено.

Если кто знает в чем дело, подскажите пожалуйста.


 
Сергей С.   (2007-11-17 16:35) [1]

Если мне не изменяет память, эти обработчики вызываются в доп.потоке, со всеми вытекающими последствиями.


 
mrKaktus   (2007-11-18 00:05) [2]


> Сергей С.   (17.11.07 16:35) [1]
> Если мне не изменяет память, эти обработчики вызываются
> в доп.потоке, со всеми вытекающими последствиями.


А можно ли это побороть?


 
Сергей С.   (2007-11-18 16:54) [3]

"Побороть" что ?


 
mrKaktus   (2007-11-18 19:45) [4]

Что можно сделать, чтобы прогрессбар отображал ход передачи файла на сревер? И почему интересно при скачивании с сервера прогрессбар работает?


 
Сергей М. ©   (2007-11-19 08:27) [5]


> почему интересно при скачивании с сервера прогрессбар работает


Потому что так реализован компонент TIdTCPConnection.


 
mrKaktus   (2007-11-21 20:20) [6]

Может посоветуете что можно сделать, что бы всетаки индикатор работал.



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.011 c
2-1223036115
SkyN
2008-10-03 16:15
2008.11.30
critical section timeouts


3-1210659316
Михаил (Питер)
2008-05-13 10:15
2008.11.30
PostgreSQL


4-1201195387
JanMihail
2008-01-24 20:23
2008.11.30
Как узнать информацию а мат. плате и проце


6-1195160742
homm
2007-11-16 00:05
2008.11.30
TWebBrowser: Вызов процедуры на дельфи


2-1224493145
Alex7
2008-10-20 12:59
2008.11.30
возврат двух значений одним вызовом одной функции




   Наверх