| Вопрос: Как привязать ProgressBar к процессу копирования? | Добавлено: 16.02.08 11:21 |
Автор вопроса:  Алексей | Web-сайт: www.supprint.ru | ICQ: 282466278 |
|
Добрый день!
Бьюсь до сих пор и не могу сделать нормальную инсталляшку. Не подскажите, как привязать ProgressBar к процессу копирования файлов? Если можно, то конкретный пример с комментами. Буду очень признателен! |
| Ответы | Всего ответов: 19 |
|
Номер ответа: 1 Автор ответа:    Администратор ICQ: 278109632 Вопросов: 42 Ответов: 3949 |
Web-сайт: Профиль | | #1 | Добавлено: 16.02.08 12:22 |
| Я, к сожалению, не помню, как привязать прогрессбар к копированию. Помню, там была какая-то функция с коллбэком. Когда я писал инсталлятор, файлы я хранил в оверлее в сжатом виде, мотом распаковывал их в память и уже в процессе записи на диск, зная размер файла, считал процент записанных на диск данных. | ||
|
Номер ответа: 2 Автор ответа: AleXProg Вопросов: 10 Ответов: 29 |
Профиль | | #2 | Добавлено: 16.02.08 12:37 |
| А если постоянно снимать размер устанавливаемого файла? Зная его размер и размер скопированной части можно попробовать | ||
|
Номер ответа: 3 Автор ответа: АлексейICQ: 282466278 Вопросов: 3 Ответов: 11 |
Web-сайт: Профиль | | #3 | Добавлено: 16.02.08 13:01 |
| Спасибо! Попробую... | ||
|
Номер ответа: 4 Автор ответа: ArtyomРазработчик Вопросов: 130 Ответов: 6602 |
Профиль | | #4 | Добавлено: 16.02.08 14:05 |
|
CopyFileEx - это та самая функция с колбэком
Можно же например копировать файл блоками и исходя из количества скопированых блоков рассчитывать прогрес. |
||
|
Номер ответа: 5 Автор ответа: АлексейICQ: 282466278 Вопросов: 3 Ответов: 11 |
Web-сайт: Профиль | | #5 | Добавлено: 16.02.08 14:07 |
| To Steel Brand: Спасибо, конечно! Но для меня - новичка, все это "Филькина граммота". Не мог бы ты показать конкретный пример (желательно не очень мудренный) с комментами? | ||
|
Номер ответа: 6 Автор ответа: ArtyomРазработчик Вопросов: 130 Ответов: 6602 |
Профиль | | #6 | Добавлено: 16.02.08 15:31 |
|
Заходишь на live.com и пишешь:
CopyFileEx vb6 Я серьезно |
||
|
Номер ответа: 7 Автор ответа: WinandВопросов: 87 Ответов: 2795 |
Web-сайт: Профиль | | #7 | Добавлено: 16.02.08 17:06 |
|
* на google.com и пишешь
ну всё, всё. Я молчу |
||
|
Номер ответа: 8 Автор ответа: D o c a l  ICQ: 408802757 Вопросов: 76 Ответов: 985 |
Web-сайт: Профиль | | #8 | Добавлено: 16.02.08 22:41 |
| Google rulit ) | ||
|
Номер ответа: 9 Автор ответа: D o c a l ICQ: 408802757 Вопросов: 76 Ответов: 985 |
Web-сайт: Профиль | | #9 | Добавлено: 16.02.08 22:43 |
| Google rulit ) | ||
|
Номер ответа: 10 Автор ответа: WinandВопросов: 87 Ответов: 2795 |
Web-сайт: Профиль | | #10 | Добавлено: 16.02.08 23:54 |
|
Результаты 1 - 10 из примерно 1 140 для CopyFileEx vb6. (0,32 секунд)
Результаты поиска в Интернете 1-10 из 121 нагуглил в 10 раз больше, чем прожил.. в смысле налайвил |
||
|
Номер ответа: 11 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #11 | Добавлено: 17.02.08 01:15 |
ну дык куда лайву до гугла то?  мелкомягкие и яху не пепеплюнут (перекупят), бо гугл рулит А переплюнуть гугла это разве что Microsoft переименовать в Google )))
|
||
|
Номер ответа: 12 Автор ответа: ArtyomРазработчик Вопросов: 130 Ответов: 6602 |
Профиль | | #12 | Добавлено: 17.02.08 08:24 |
|
Результаты 1 - 10 из примерно 1 140 для CopyFileEx vb6. (0,32 секунд)
Результаты поиска в Интернете 1-10 из 121 нагуглил в 10 раз больше, чем прожил.. в смысле налайвил На Live уже первый результат полностью отвечает на вопрос На Google первый сайт не открывается, дальше лень смотреть. |
||
|
Номер ответа: 13 Автор ответа: WinandВопросов: 87 Ответов: 2795 |
Web-сайт: Профиль | | #13 | Добавлено: 17.02.08 17:29 |
|
млин, ну вот неправду же пишешь!
Первая ссылка одинаковая, точнее первые три. |
||
|
Номер ответа: 14 Автор ответа: portCВопросов: 14 Ответов: 101 |
Web-сайт: Профиль | | #14 | Добавлено: 17.02.08 18:12 |
|
'Ну, заморочили человеку голову гуглом и тд...
' 'смотри, например копируешь файл посимвольно '(долго и неэффективно, но зато процесс поймешь) 'Делаешь вот так: opefl1$ = PathAndName opefl2$ = App.path + "/kopia" + filfiles.FileName Open opefl1$ For Binary Access Read Write As #1 Open opefl2$ For Binary Access Read Write As #2 filsize& = LOF(1) For i = 1 To filsize& Step sch 'Здесь бла бла бла ' собс-но привязка proc = (100 * i) / filsize& procc = CInt(proc) ProgressBar1.Value = procc + 0.0001 'конец привязки 'и здесь то же
Get #1, , bukv$ 'из первого файла Put #2, , bukv$ 'во второй файл Next i Close #1 Close #2 'Дальше сам поймешь 'Если нет - пиши в личку или на мыло, свой 'примерчик сброшу. |
||
|
Номер ответа: 15 Автор ответа: portCВопросов: 14 Ответов: 101 |
Web-сайт: Профиль | | #15 | Добавлено: 17.02.08 18:19 |
|
в строке:
For i = 1 To filsize& Step sch
sch - можешь задавать размер блока, но, вначале, рекомендую потренироваться посимвольно с jpg или txt - если будут ошибки - увидешь наглядно |
||