Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > C++ Builder > Состояние загрузки файла по ftp - TProgressBar

Автор: kefir01 29.12.2007, 22:17

Код


int handle;
handle = open(OpenDialog1->FileName.c_str(), O_RDONLY);
int FSize = filelength(handle);
close(handle);
        for(int i=0;i<=FSize;i++)
        {
        ProgressBar1->Position=i;
        }

Код


                try
                {
                IdFTP1->Put(OpenDialog1->FileName,ExtractFileName(Edit1->Text),false);
                }
                catch(...)
                {
                MessageDlg("FTP Error",mtInformation,TMsgDlgButtons() << mbOK, 0);
                Abort();
                }

Вопрос как их друг к другу прикрутить, чтобы в ProgressBar1 отображался ход загрузки

Автор: kefir01 3.1.2008, 00:45

Ну что, нет идей?
Помогите плиз

Автор: dumb 3.1.2008, 12:42

у IdFTP есть события OnWorkBegin, OnWork, OnWorkEnd

Автор: kefir01 3.1.2008, 18:39

А можно пример обработки этих событий?
Пожалуйста.

Автор: kefir01 3.1.2008, 23:50

Решил вопрос

Код


void __fastcall TForm1::IdFTP1Work(TObject *Sender, TWorkMode AWorkMode,
      const int AWorkCount)
{
  ProgressBar1->Position = AWorkCount;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::IdFTP1WorkBegin(TObject *Sender,
      TWorkMode AWorkMode, const int AWorkCountMax)
{
int handle;
handle = open(OpenDialog1->FileName.c_str(), O_RDONLY);
int FSize = filelength(handle);
close(handle);
ProgressBar1->Max = FSize;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::IdFTP1WorkEnd(TObject *Sender, TWorkMode AWorkMode)
{
ProgressBar1->Position = 0;
}
//---------------------------------------------------------------------------