Помогите, пож-та, подружить эти два компонента !

Ну никак не хочет отображаться процесс download-a файла в ProgressBar

Делаю так:

procedure TReceiveReportForm.IdFTPWorkBegin(Sender: TObject;
AWorkMode: TWorkMode; const AWorkCountMax: Integer);
begin
Progress.Position:=0;
Progress.Max:=AWorkCountMax;
end;

procedure TReceiveReportForm.IdFTPWork(Sender: TObject;
AWorkMode: TWorkMode; const AWorkCount: Integer);
begin
Progress.Position:=AWorkCount;
end;


В итоге ProgressBar постоянно пустой
idHTTP работает без проблем ...

Во-первых, я проверил бы в дебагере, что callback-функция вызывается.

И если вызывается попробовал бы сделать Refresh компонентам.

Цитата

Во-первых, я проверил бы в дебагере, что callback-функция вызывается.

Можно подробнее ?
Файлы же качаются, только не видно процесса в ProgressBar ...

Цитата

И если вызывается попробовал бы сделать Refresh компонентам

А это зачем ?
Ведь с idHTTP всё работает и без рефреша ...


Забыл сказать, что это компоненты Indy

Это сообщение отредактировал(а) 3D-Dragon - 2.4.2003, 16:52

поборол? у меня такая же проблема... там получается

AWorkCountMax=0

и сдедовательно

Progress.Position:=0;
Progress.Max:=AWorkCountMax;

max выставляется в 0 и при присвоении position какого либо значения в статусе ничего неотображается.

встает следующий вопрос, как определить размер файла который тянешь с ftp?



Это сообщение отредактировал(а) Napalm - 17.3.2004, 17:54

Блин, есть ли вообще нормальные бесплатные компоненты для FTPClient !?

NMFTP глючил, хотя по функциям компонент просто супер, вот мучался, по совету некоторых, скачал Indy 9.0 теперь и этот оказывается не отображает нормально ProgressBar, проверял на примере из демо Indy, тоже самое, логика работы FtpClient1 из набора ICS для меня тоже несколько не понятна, чтобы например получить List, необходимо предварительно сделать Quit.

Ребята, помогите пожалуйста найти что-то стоящее, проект горит.

Это сообщение отредактировал(а) sergmuz - 30.5.2004, 16:55

есть такой баг, приходится делать так:
ProgresBar.Max := idFTP.Size('some_file');
idFTP.Get('some_file');

Добавлено @ 21:19
sergmuz
если чесно перекопал кучу компонетнов Индейцы самое то что надо.
если сверх-задач нет, то еще хорошие iPRO (Internet PRO) правда где скачать незнаю у меня с диска, для людей слабо знающих HTTP и FTP очень удобный, сам свой поток создает, ошибки преводит ну и т.п. а вот если че-то помимо этого надо, то только индецы спасут...

Цитата

ProgresBar.Max := idFTP.Size('some_file'); idFTP.Get('some_file');

не помог

Там проблема похоже на уровне IdFTP1Work(Sender: TObject; AWorkMode: TWorkMode; const AWorkCount: Integer);

Значение AWorkCount обновляется с большим интервалом, например при закачке файла размером 11Кб на протяжении всей закачки AWorkCount был равен нулю, соответственно и ProgresBar на нуле

За iPRO (Internet PRO) спасибо, интересный компонент, обязательно поюзаем, правда смутило то, что в демонстрационном примере FtpDemo есть ссылки на две не существующие и не учавствующие в проекте формы, а также отсутствует какая либо реакция на не удавшееся подключение, OnFtpError при этом молчит вообще.

Даа, похоже ничего лучшего Indy я не найду, а жаль ...

sergmuz, можно и не только через компоненты качать файлы по фтп/хттп. Смотри WinInet:
InternetOpen
InternetOpenURL
потом в цикле делай InternetReadFile и прогрессируй прогрессбар...

Цитата

а также отсутствует какая либо реакция на не удавшееся подключение

Вообще-то есть, но оно как-то мудрено называется точно непомню но чето типа onFTP-FTPError:) как-то так

Цитата(nJIaKca @ 31.5.2004, 10:15)

Цитата а также отсутствует какая либо реакция на не удавшееся подключение Вообще-то есть, но оно как-то мудрено называется точно непомню но чето типа onFTP-FTPError:) как-то так

Да, действительно есть, OnFtpLoginError называется.

You can determine file size by doing this IdFTP->Size(file)
file - file in current directory of FTP

Hi again, i found an answer to question why progress won't change. Its seems that you must write
Application.ProcessMessages after anything write in application while downloading something.
So the answer would be :

procedure TReceiveReportForm.IdFTPWork(Sender: TObject;
AWorkMode: TWorkMode; const AWorkCount: Integer);
begin
Progress.Position:=AWorkCount;
Application.ProcessMessages(); or Application.ProcessMessages; (don't realy know delphi )
end;

sorry for writing it in english but i'm not russian and don't have russian keybord layout