![]() |
Модераторы: Snowy, Poseidon, MetalFan |
![]() ![]() ![]() |
|
Rodman |
|
|||
CIO ![]() ![]() ![]() ![]() Профиль Группа: Участник Сообщений: 6144 Регистрация: 7.5.2006 Где: Ukraine ⇛ Kyiv ci ty Репутация: нет Всего: 122 |
Дароф.
Я разобрал такой код:
но прога выдает для любого файла шаг и размер 1754... В чем бок??? Спасибо Это сообщение отредактировал(а) Girder - 29.8.2006, 13:16 |
|||
|
||||
_hunter |
|
|||
![]() Эксперт ![]() ![]() ![]() ![]() Профиль Группа: Участник Клуба Сообщений: 8564 Регистрация: 24.6.2003 Где: Europe::Ukraine:: Kiev Репутация: 5 Всего: 98 |
во-первых: есть такая полезная кнопка "код"
во-вторых: выноси весь код из потока, бери отладчик и тестируй. когда найдеш косяк -- спрашивай. -------------------- Tempora mutantur, et nos mutamur in illis... |
|||
|
||||
Rodman |
|
||||
CIO ![]() ![]() ![]() ![]() Профиль Группа: Участник Сообщений: 6144 Регистрация: 7.5.2006 Где: Ukraine ⇛ Kyiv ci ty Репутация: нет Всего: 122 |
Вот эти две процедуры:
переменные AWorkCountMax и AWorkCount возвращают обе значение 1754... из главной формы я вызываю загрузку так
Подскажите где проблема плиз... |
||||
|
|||||
dumb |
|
|||
![]() sceloglauxalbifacies ![]() ![]() ![]() ![]() Профиль Группа: Экс. модератор Сообщений: 2929 Регистрация: 16.6.2006 Репутация: 5 Всего: 158 |
||||
|
||||
Rodman |
|
|||
CIO ![]() ![]() ![]() ![]() Профиль Группа: Участник Сообщений: 6144 Регистрация: 7.5.2006 Где: Ukraine ⇛ Kyiv ci ty Репутация: нет Всего: 122 |
Вот у меня таже проблема, что в "WorkBegin" FMaxProgress:=1514 (эта процедура вызывается один раз), а в "Work" сначала FProgress:=226, а второй раз уже FProgress:=1514.
И проверки я добавил
файл скачивается в текущую папку, но размером 1514, хотя он более двух метров... Что в этом случае не так???? ![]() |
|||
|
||||
Teran |
|
|||
![]() Опытный ![]() ![]() Профиль Группа: Участник Сообщений: 590 Регистрация: 9.9.2005 Где: Украина, Запорожь е Репутация: нет Всего: 3 |
и будет вам щастье -------------------- Ни цего не понимаю |
|||
|
||||
Rodman |
|
|||
CIO ![]() ![]() ![]() ![]() Профиль Группа: Участник Сообщений: 6144 Регистрация: 7.5.2006 Где: Ukraine ⇛ Kyiv ci ty Репутация: нет Всего: 122 |
Так эти процедуры у тя описаны в обычном юните с формой???
Просто я их описывал классом TThread, или у тебя также??? |
|||
|
||||
Teran |
|
|||
![]() Опытный ![]() ![]() Профиль Группа: Участник Сообщений: 590 Регистрация: 9.9.2005 Где: Украина, Запорожь е Репутация: нет Всего: 3 |
я делал без потоков и описывал их просто в классе с формой
-------------------- Ни цего не понимаю |
|||
|
||||
Rodman |
|
|||
CIO ![]() ![]() ![]() ![]() Профиль Группа: Участник Сообщений: 6144 Регистрация: 7.5.2006 Где: Ukraine ⇛ Kyiv ci ty Репутация: нет Всего: 122 |
Скажи а вот та строка несет в себе какую нить функциональную особенность???
Teran Спасибо за пример... |
|||
|
||||
Rodman |
|
||||||
CIO ![]() ![]() ![]() ![]() Профиль Группа: Участник Сообщений: 6144 Регистрация: 7.5.2006 Где: Ukraine ⇛ Kyiv ci ty Репутация: нет Всего: 122 |
Исходник Teran'a
Вот этот вот исходник показывает на ProgressBar'e уровень закачки, а есть ли какая нить возможность еще выводить количество закаченных байт / всего байт (размер файла) и также количество времени до окончания... Такая процедура есть (см. выше)
но если я добавляю в код исходника
то выдается ошибка Missing operator or semicolon Это можно как нить обойти??? Просто если я напишу
выдастся значение только после окончания закачки... Посдкажите... |
||||||
|
|||||||
Teran |
|
||||
![]() Опытный ![]() ![]() Профиль Группа: Участник Сообщений: 590 Регистрация: 9.9.2005 Где: Украина, Запорожь е Репутация: нет Всего: 3 |
1 в процедуре procedure TFormDownloader.httpWorkBegin(Sender: TObject; AWorkMode: TWorkMode; const AWorkCountMax: Integer); ты присваиваеш progress.max=AWorkCountMax - это и есть "всего байт" 2 в процедуре procedure TFormDownloader.httpWork(Sender: TObject; AWorkMode: TWorkMode; const AWorkCount: Integer); progress.Progress := AWorkCount; - это есть "количество закаченных байт " 3 время необходимо расчитывать самому пропробуй так:
-------------------- Ни цего не понимаю |
||||
|
|||||
Rodman |
|
|||
CIO ![]() ![]() ![]() ![]() Профиль Группа: Участник Сообщений: 6144 Регистрация: 7.5.2006 Где: Ukraine ⇛ Kyiv ci ty Репутация: нет Всего: 122 |
то что значат progress.max=AWorkCountMax и progress.Progress := AWorkCount я понял... просто мне в цыфрах надо было... и чтобы обновлялось в процессе...
вот теперь обновляется... Спасибо... Добавлено @ 18:36 А вот теперь такое... Я таким образом скачиваю более новую версию приложения... Возможно ли такое??? Определил наличие новой версии->Скачал->закрыл старую версию (возможно даже удалить)->открыл новую Все автоматически... ??? |
|||
|
||||
Teran |
|
|||
![]() Опытный ![]() ![]() Профиль Группа: Участник Сообщений: 590 Регистрация: 9.9.2005 Где: Украина, Запорожь е Репутация: нет Всего: 3 |
конечно возможно у меня это реализовано с помощью еще одного exe файла который обновляет главную программу
-------------------- Ни цего не понимаю |
|||
|
||||
Rodman |
|
|||
CIO ![]() ![]() ![]() ![]() Профиль Группа: Участник Сообщений: 6144 Регистрация: 7.5.2006 Где: Ukraine ⇛ Kyiv ci ty Репутация: нет Всего: 122 |
т.е. я понимаю так...
Старое приложение запускает вспомогательный *.ехе файл и он в свою очередь занимается заменой... Ну а возможно это совершить имея только старую и новую версию... без третье проги???? |
|||
|
||||
Teran |
|
|||
![]() Опытный ![]() ![]() Профиль Группа: Участник Сообщений: 590 Регистрация: 9.9.2005 Где: Украина, Запорожь е Репутация: нет Всего: 3 |
без третьей стороны - никак -------------------- Ни цего не понимаю |
|||
|
||||
![]() ![]() ![]() |
Правила форума "Delphi: Сети" | |
|
Запрещено: 1. Публиковать ссылки на вскрытые компоненты 2. Обсуждать взлом компонентов и делится вскрытыми компонентами
Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Snowy, Poseidon, MetalFan. |
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей) | |
0 Пользователей: | |
« Предыдущая тема | Delphi: Сети | Следующая тема » |
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |