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;
 
}
//---------------------------------------------------------------------------

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

Новые блоги и статьи Все статьи Все блоги /
Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .
Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .

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