IdFTP & ProgressBar бар стоит на нуле!

@methanoljj · Регистрация: 24.02.2013

Студворк — интернет-сервис помощи студентам

Всем привет! Написал программу для скачки файлов с фтп серверов хочу чтобы отображался процесс скачки через ProgressBar2 написал следующий код:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
void __fastcall TForm6::IdFTP1WorkBegin(TObject *Sender,
      TWorkMode AWorkMode, const int AWorkCountMax)
{
 
ProgressBar2->Position = 0;
ProgressBar2->Max = AWorkCountMax;
 
}
//---------------------------------------------------------------------------
void __fastcall TForm6::IdFTP1Work(TObject *Sender, TWorkMode AWorkMode,
      const int AWorkCount)
{
 
ProgressBar2->Position = AWorkCount;
Application->ProcessMessages();
 
}
//---------------------------------------------------------------------------
 
void __fastcall TForm6::IdFTP1WorkEnd(TObject *Sender, TWorkMode AWorkMode)
{
 
MessageBox(0,"Download complete!", "Completed!", MB_OK );

Искал по форумам ничего не нашел, закачка стартует но ProgressBar2 стоит все время на нуле и только в конце выдается сообщените "Download complete!", "Completed!" и ProgressBar2 все также остается стоять на нуле

Что делать?

За ранее спасибо

@Avazart · 20.07.2013, 15:34

Убери

Сообщение от methanoljj

C++
1
Application->ProcessMessages();

Да и обычно Indy используют в потоках.

Кроме того если файл слишком мал прогресс может быть незаметен.

@methanoljj · 20.07.2013, 15:47 **[ТС]**

Сообщение от Avazart

Убери

Да и обычно Indy используют в потоках.

Кроме того если файл слишком мал прогресс может быть незаметен.

Все тоже самое, файл весит 22мб

Добавлено через 6 минут
я для скачки и использую IdFTP.(Indy Clients)

Опыта у меня большого нету в сфере Indy

Буду рад если что нибудь подскажете.

@volvo · 20.07.2013, 15:49

C++
1
ProgressBar2->Max = AWorkCountMax;

в обработчике OnWorkBegin - это бомба замедленного действия. Интернет завален темами "onworkbegin AWorkCountMax always returns 0". Сначала получай размер файла, вызывая Size() для нужного файла, причем это должно делаться не в OnWorkBegin!!! Назначаешь полученный размер в ProgressBar.Max, и только потом запускаешь процесс копирования через IdFtp1.Get()...

@Avazart · 20.07.2013, 15:50

Попробуй больше файл скачать и указывать мод

C++
1
2
3
4
5
if( AWorkMode==TWorkMode::wmRead)
 {
    ProgressBar1->Position= 0;
    ProgressBar1->Max = AWorkCountMax; // размер файла
 }

@methanoljj · 20.07.2013, 15:53 **[ТС]**

Сообщение от UI

C++
1
ProgressBar2->Max = AWorkCountMax;

в обработчике OnWorkBegin - это бомба замедленного действия. Интернет завален темами "onworkbegin AWorkCountMax always returns 0". Сначала получай размер файла, вызывая Size() для нужного файла, причем это должно делаться не в OnWorkBegin!!! Назначаешь полученный размер в ProgressBar.Max, и только потом запускаешь процесс копирования через IdFtp1.Get()...

уже слышал, переделывал тоже не работает

@Avazart · 20.07.2013, 15:55

Сообщение от UI

в обработчике OnWorkBegin - это бомба замедленного действия.

Ну в других компонентах Indy вроде нормально работает...

@methanoljj · 20.07.2013, 15:56 **[ТС]**

Сообщение от Avazart

Попробуй больше файл скачать и указывать мод

C++
1
2
3
4
5
if( AWorkMode==TWorkMode::wmRead)
 {
    ProgressBar1->Position= 0;
    ProgressBar1->Max = AWorkCountMax; // размер файла
 }

[C++ Error] Unit6.cpp(46): E2090 Qualifier 'TWorkMode' is not a class or namespace name
[C++ Error] Unit6.cpp(46): E2377 If statement missing )

ошибки

Добавлено через 59 секунд

Сообщение от Avazart

Ну в других компонентах Indy вроде нормально работает...

согласен, в IdHTTP работает без проблем но вот с IdFTP проблемы.

@Avazart · 20.07.2013, 16:01

Вероятно

C++
1
if( AWorkMode == wmRead)

- зависит от версии Builder/Indy

Добавлено через 1 минуту

Сообщение от methanoljj

согласен, в IdHTTP работает без проблем но вот с IdFTP проблемы.

Для FTP есть вроде специальная команда для определения размера файла.

Добавлено через 1 минуту
Блин ...

Сообщение от methanoljj

C++
1
2
3
4
void __fastcall TForm6::IdFTP1WorkEnd(TObject *Sender, TWorkMode AWorkMode) 
{ 
MessageBox(0,"Download complete!", "Completed!", MB_OK );
}

Уберите это из обработчика, нельзя такое пихать в обработчик

@methanoljj · 20.07.2013, 16:06 **[ТС]**

Сообщение от Avazart

Вероятно

C++
1
if( AWorkMode == wmRead)

- зависит от версии Builder/Indy

Добавлено через 1 минуту

Для FTP есть вроде специальная команда для определения размера файла.

Добавлено через 1 минуту
Блин ...

Уберите это из обработчика, нельзя такое пихать в обработчик

Сделал все так как вы сказали но все равно не работает, теперь форма на какой кнопка закачки и ProgressBar зависла но файл закачивается.

Да есть это IdFtp.Size()

@Avazart · 20.07.2013, 16:10

Сообщение от methanoljj

теперь форма на какой кнопка закачки и ProgressBar зависла но файл закачивается.

Ну так и должно быть- форма висит, если потоки не используешь ...

А прогресс двигается ?

@methanoljj · 20.07.2013, 16:15 **[ТС]**

Сообщение от Avazart

Ну так и должно быть- форма висит, если потоки не используешь ...

А прогресс двигается ?

форма виснет на всегда, вот по такому коду я стартую программу:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit2.h"
#include "Unit6.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm6 *Form6;
//---------------------------------------------------------------------------
__fastcall TForm6::TForm6(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm6::Button1Click(TObject *Sender)
{
 
IdFTP1->Host = "ftp.*************";
IdFTP1->User = "*************";
IdFTP1->Password = "*************";
IdFTP1->Connect();
MkDir("C://MSfUaD/");
MkDir("C://MSfUaD/Server");
IdFTP1->Get("/public_html/Films.rar", "C:/MSfUaD/Server/Films.rar", true);
 
}
//---------------------------------------------------------------------------
void __fastcall TForm6::FormCloseQuery(TObject *Sender, bool &CanClose)
{
Form2->Show();
 
}
 
//---------------------------------------------------------------------------
void __fastcall TForm6::IdFTP1WorkBegin(TObject *Sender,
      TWorkMode AWorkMode, const int AWorkCountMax)
{
 
if( AWorkMode == wmRead) {
    ProgressBar2->Position= 0;
    ProgressBar2->Max = AWorkCountMax; // ?????? ?????
 }
 
}
//---------------------------------------------------------------------------
void __fastcall TForm6::IdFTP1Work(TObject *Sender, TWorkMode AWorkMode,
      const int AWorkCount)
{
 
ProgressBar2->Position = AWorkCount;
 
}
//---------------------------------------------------------------------------
void __fastcall TForm6::IdFTP1WorkEnd(TObject *Sender, TWorkMode AWorkMode)
{
//nothing
}

@Avazart · 20.07.2013, 16:19

Ну так попробуйте совет UI

Добавлено через 1 минуту
И у вас походу Indy старая...

@volvo · 20.07.2013, 16:19

Сообщение от Avazart

Ну в других компонентах Indy вроде нормально работает...

Ключевое слово - выделено. В других иногда работает, в IdFTP не работает практически никогда.

Сообщение от methanoljj

уже слышал, переделывал тоже не работает

Кода, как переделывал, я не вижу, телепатор мой сломался от перегрузок.

@Avazart · 20.07.2013, 16:21

Сообщение от UI

Ключевое слово - выделено. В других иногда работает, в IdFTP не работает практически никогда.

Ну я не замечал багов в IdHTTP и IdIMAP4/IdPOP3

@methanoljj · 20.07.2013, 16:38 **[ТС]**

Сообщение от UI

Ключевое слово - выделено. В других иногда работает, в IdFTP не работает практически никогда.Кода, как переделывал, я не вижу, телепатор мой сломался от перегрузок.

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
void __fastcall TForm6::IdFTP1Connected(TObject *Sender)
{
if (IdFTP1->Connected() == true){
int a;
a = IdFTP1->Size("/public_html/serverMC.rar");
ProgressBar2->Max = a;
IdFTP1->Get("/public_html/serverMC.rar", "C:/MSfUaD/Server/serverMC.rar", true);
 
 
// ошибка Out of range от Progressbar
 
 }
}

Вот такое

Добавлено через 11 минут
что скажите господа?

@Avazart · 20.07.2013, 16:42

Может сменить Indy и Builder ?

Добавлено через 2 минуты
Пробуй

C++
1
2
__int64 a = IdFTP1->Size("/public_html/serverMC.rar");
ProgressBar2->Max = a / 1000;

@methanoljj · 20.07.2013, 16:49 **[ТС]**

все работает сейчас выложу код

Добавлено через 4 минуты

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit2.h"
#include "Unit6.h"
 
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm6 *Form6;
//---------------------------------------------------------------------------
__fastcall TForm6::TForm6(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm6::Button1Click(TObject *Sender)
{
 
//Пишем данные для конекта
IdFTP1->Host = "ftp.************";
IdFTP1->User = "************";
IdFTP1->Password = "************";
//создание дериктории для сохранения
MkDir("C://MSfUaD/");
MkDir("C://MSfUaD/Server");
IdFTP1->Connect();
//запрос из каталога FTP на размер файла
if (IdFTP1->Connected() == true){
int a;
a = IdFTP1->Size("/public_html/Films.rar"); //"/public_html/"папка и "Films.rar" файл
ProgressBar2->Max = a;
}
IdFTP1->Get("/public_html/serverMC.rar", "C:/MSfUaD/Server/serverMC.rar", true); //качаем
IdFTP1->Disconnect();
 
 
}
//---------------------------------------------------------------------------
void __fastcall TForm6::IdFTP1Work(TObject *Sender, TWorkMode AWorkMode,
      const int AWorkCount)
{
 
ProgressBar2->Position = AWorkCount;
 
}
//---------------------------------------------------------------------------

Все работает идеально. Всем спасибо за помощь!

Новые блоги и статьи Все статьи Все блоги /
моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .	Модель сукцессии микоризы anaschu 24.01.2026 Решили писать научную статью с неким РОманом	http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .	http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .
Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь(не выше 3-го порядка) постоянного тока с элементами R, L, C, k(ключ), U, E, J. Программа находит переходные токи и напряжения на элементах схемы классическим методом(1 и 2 з-ны. . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .	Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .

@Avazart 8484 / 6151 / 615 Регистрация: 10.12.2010 Сообщений: 28,683 Записей в блоге: 30
	20.07.2013, 16:19
	Ну так попробуйте совет UI Добавлено через 1 минуту И у вас походу Indy старая... 0