|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
09.10.2017, 19:55 | #1 |
Пользователь
Регистрация: 07.05.2011
Сообщений: 24
|
Прогрессбар и поток
Привет, не могу решить как подключить прогрессбар к потоку, вот код:
Код:
Всё намного проще, чем есть на самом деле...
|
09.10.2017, 21:09 | #2 |
Форумчанин
Регистрация: 16.12.2009
Сообщений: 902
|
Прогрессбар и поток, потока там не видно, ну ладно оставим то что есть.
Чтобы работал прогрессбар в вашем коде нужно сделать следующее Код:
Последний раз редактировалось Aliens_wolfs; 09.10.2017 в 21:45. |
10.10.2017, 05:52 | #3 | |
Пользователь
Регистрация: 07.05.2011
Сообщений: 24
|
Цитата:
Ошибка пала на: IdHTTP1.OnWork:= Form1.IdHTTPWork; IdHTTP1.OnWorkBegin:= Form1.IdHTTPWorkBegin; IdHTTP1.OnWorkEnd:= Form1.IdHTTPWorkEnd; .OnWork = int64 а .IdHTTPWork = integer... Поставил int64 в функциях - такая же ошибка...
Всё намного проще, чем есть на самом деле...
Последний раз редактировалось Aqel; 10.10.2017 в 06:11. |
|
10.10.2017, 15:00 | #4 |
Форумчанин
Регистрация: 16.12.2009
Сообщений: 902
|
Я проверял у меня работает, что за Delphi у вас, проверти эти параметры в модуле
IdHTTP1, киньте его на форму и посмотрите в events эти свойства, возможно у вас версия другая, да и вообще объявляли ли вы их в теле Forms ? Либо проект выложите, здесь его и проверим, возможно что то делаете не так Последний раз редактировалось Aliens_wolfs; 10.10.2017 в 15:03. |
10.10.2017, 15:07 | #5 |
Пользователь
Регистрация: 07.05.2011
Сообщений: 24
|
Код:
... УПСС! Я просто скопировал функции,а не добавил в TIdHTTP... Сделаю как надо и отпишусь (хотя думаю - всё будет робить.)...
Всё намного проще, чем есть на самом деле...
Последний раз редактировалось Aqel; 10.10.2017 в 15:10. |
10.10.2017, 15:21 | #6 |
Пользователь
Регистрация: 07.05.2011
Сообщений: 24
|
Нет, всё та же ошибка:
[dcc32 Error] Unit1.pas(83): E2009 Incompatible types: 'Parameter lists differ' У меня Delphi так "прописала": Код:
Всё намного проще, чем есть на самом деле...
|
10.10.2017, 15:22 | #7 |
Пользователь
Регистрация: 07.05.2011
Сообщений: 24
|
ООО! Работает, но прогрессбар не показывает ничего...
Всё намного проще, чем есть на самом деле...
Последний раз редактировалось Aqel; 10.10.2017 в 15:43. |
11.10.2017, 10:44 | #8 |
Форумчанин
Регистрация: 16.12.2009
Сообщений: 902
|
Да странно почему то в XE AWorkCount всегда 0 выдает в D7 все нормально, запрос тогда нужно делать на размер принятия данных в ContentLength
Последний раз редактировалось Aliens_wolfs; 11.10.2017 в 10:47. |
11.10.2017, 11:31 | #9 |
Пользователь
Регистрация: 07.05.2011
Сообщений: 24
|
Это где?
Всё намного проще, чем есть на самом деле...
|
12.10.2017, 14:54 | #10 | ||
Форумчанин
Регистрация: 16.12.2009
Сообщений: 902
|
Да уж какие то странности в работе с TIdHTTP в XE. Там даже в заголовке ответа сервера нет Content-Length а в снифере есть и AWorkcountMax всегда 0 а в D7 все нормально AWorkcountMax равен размеру ресурса
вот для теста на вашем коде Код:
Цитата:
Цитата:
Последний раз редактировалось Aliens_wolfs; 12.10.2017 в 15:05. |
||
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Прогрессбар | bmp152 | Компоненты Delphi | 7 | 16.06.2013 23:50 |
Поток. Не получается создать поток. Выдает ошибки при запуске | bigory | Общие вопросы по Java, Java SE, Kotlin | 3 | 23.09.2010 00:40 |
Добавить прогрессбар к потоку(поток в отдельном модуле, без формы) | Человек_Борща | Общие вопросы Delphi | 2 | 21.05.2010 22:00 |
Прогрессбар... | Лёка | Общие вопросы Delphi | 12 | 18.03.2010 14:41 |
помогите приделать прогрессбар. | Mobile™ | Общие вопросы Delphi | 43 | 20.10.2009 11:10 |