Здравствуйте.
Скажите пожалуйста кто работал с IdFTP как выкручивались если в переменной AWorkCountMax, которая хранит размер закачиваемого файла всегда = 0 ? или из-за чего такое происходит?
Врагмент моего проекта:
//---------------------------------------------------------------------------
void __fastcall TMainForm::IdFTPWorkBegin(TObject *ASender, TWorkMode AWorkMode,
int AWorkCountMax)
{
ProgressBar->Position = 0;
ProgressBar->Max = AWorkCountMax;
ProgressPanel->Visible = true;
switch (AWorkMode)
{
case wmRead:
LabelStatus->Caption="Get";
break;
case wmWrite:
LabelStatus->Caption="Post";
break;
}
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::IdFTPWorkEnd(TObject *ASender, TWorkMode AWorkMode)
{
ProgressPanel->Visible = false;
LabelStatus->Caption="Wait";
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::IdFTPWork(TObject *ASender, TWorkMode AWorkMode,
int AWorkCount)
{
ProgressBar->Position = AWorkCount;
Caption=IntToStr(AWorkCount)+"/"+IntToStr(ProgressBar->Max);
Application->ProcessMessages();
Заранее благодарю.