Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Диалог копирования Windows / 17 сообщений из 17, страница 1 из 1
07.05.2009, 13:00
    #35974239
casting
casting
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Диалог копирования Windows
Делаю очередную экспортилку_таблиц\зажималку\отправлялку.
Файлы надо на сетевой диск класть, который сам подключается при соединении с корпоративным VPN
Чего может быть проще, да прямо на него архивировать можно, можно архивировать а потом копировать, различными способами.
Но учитывая тухлость каналов удалённых сотрудников, хотелось бы их каким нибудь прогресс баром обнадёжить :-)
Поскольку жму я 7z а он возвращает % выполнения, наверное это можно как то захапать и отобразить, я ещё не знаю как конкретно, НО!

Тут пришла в голову ТАКАЯ идея, а почему бы не использовать тот же виндючный метод копирования, который повсеместно пользуется в explorer.
Тут и готовый прогрес бар, и умные сообщения об ошибках, уже привычные пользователям!
Как вам идея?
Может кто-то уже пробовал?
Как лучше её реализовать?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.05.2009, 13:09
    #35974275
Анатолий ( Киев )
Анатолий ( Киев )
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Диалог копирования Windows
Используйте для копирования API функцию SHFileOperation. Она рисует летающие листочки.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.05.2009, 16:09
    #35974985
Ёжик`
Ёжик`
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Диалог копирования Windows
Код: plaintext
1.
2.
3.
4.
5.
'DestPath - папка, в которую копируем
'SourcheFile - файл, который копируем
Dim objShell
Set objShell = CreateObject("Shell.Application")
objShell.NameSpace((DestPath)).CopyHere (SourcheFile)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.05.2009, 17:53
    #35975359
casting
casting
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Диалог копирования Windows
Анатолий ( Киев )Используйте для копирования API функцию SHFileOperation. Она рисует летающие листочки.
Дякую, особенно порадовала возможность
FOF_SIMPLEPROGRESS = &H100 ' means don't show names of files
и ещё при этом .lpszProgressTitle = "своё название этому чудному процессу дать"
И у меня оно даже несколько раз получилось, но потом...
То акссес банально виснет, то отображается как обычная операция с файлами...
От чего зависят эти глюки ума не приложу :-(

ПоHELPайте братовi !
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.05.2009, 11:32
    #35976333
Анатолий ( Киев )
Анатолий ( Киев )
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Диалог копирования Windows
castingFOF_SIMPLEPROGRESS = &H100 ' means don't show names of files
и ещё при этом .lpszProgressTitle = "своё название этому чудному процессу дать"
И у меня оно даже несколько раз получилось, но потом...
То акссес банально виснет, то отображается как обычная операция с файлами...
От чего зависят эти глюки ума не приложу :-( При переходе с Win98 на Win2000 мне пришлось отказаться от FOF_SIMPLEPROGRESS, т.к. это приводило к ошибке (не знаю, почему).
Также при удалении файлов пришлось отказаться от FOF_NOERRORUI и FOF_NOCONFIRMATION. Ей, видите ли, обязательно надо спросить подтверждение удаления. В Win98 всё это работало.
А диалог может и не появляться, если расчетное время на копирование (по мнению системы) невелико и вопросов к пользователю нет. Например, у меня при копировании файла 15Mb в соседнюю папку прогресс появляется, а при 7Mb - нет.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.05.2009, 13:31
    #35976672
casting
casting
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Диалог копирования Windows
Оно и XP работает, вылетает сам аксес...
У меня есть жуткое подозрение, что это всё из-за того, что в результате vbaшных перипетий с типами данных, где-то в память пишется что то, избыточного размера, и на что-то наезжает...
Ибо работает через раз, и зависит от того как именно присваиваются параметры...

А какие могут быть альтернативы?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.05.2009, 13:44
    #35976715
Анатолий ( Киев )
Анатолий ( Киев )
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Диалог копирования Windows
castingИбо работает через раз, и зависит от того как именно присваиваются параметры... Что-то вы не так делаете. У меня всё это работает исправно (с учетом сказанного выше) начиная с А97 под Win98. Покажите код. Как присваиваются параметы когда работает, и когда - нет? К имени (маске) файла добавляете в конце два Chr(0)?
castingА какие могут быть альтернативы? Альтеннативу вам предложил Ёжик. Могу добавить, что вторым аргументом может быть комбинация флагов, тех же, что и у функции. Собственно, это и есть оболочка над функцией (один из вариантов ее применения). Этот вариант пробовали?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.05.2009, 15:16
    #35977008
casting
casting
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Диалог копирования Windows
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
With acSHellFileStruct
    .hWnd = Application.hWndAccessApp
    .wFunc = FO_MOVE
    .pFrom = ("c:\base\" & REPName & vbNullChar & vbNullChar)
    .pTo = ("n:\dataXchange\" & vbNullChar & vbNullChar)
    .fFlags = (FOF_SIMPLEPROGRESS And FOF_NOCONFIRMATION)
    .fAnyOperationsAborted = True
    .lpszProgressTitle = ("Ваши данные отправляются на сервер." & vbNullChar & vbNullChar)
End With

Вот так, вроде работает стабильно НО не фига не FOF_SIMPLEPROGRESS And FOF_NOCONFIRMATION
Константы и тип, вот такие...
Код: plaintext
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.
Public Const FO_COPY = &H2
Public Const FO_DELETE = &H3
Public Const FO_MOVE = &H1
Public Const FO_RENAME = &H4

Public Const FOF_MULTIDESTFILES = &H1
Public Const FOF_ALLOWUNDO = &H40
Public Const FOF_CONFIRMMOUSE = &H2
Public Const FOF_FILESONLY = &H80 ' on *.*, Do only files
Public Const FOF_NOCONFIRMATION = &H10 ' Don't prompt the user.
Public Const FOF_NOCONFIRMMKDIR = &H200 ' don't confirm making any needed dirs
Public Const FOF_RENAMEONCOLLISION = &H8
Public Const FOF_SILENT = &H4 ' don't create progress/report
Public Const FOF_SIMPLEPROGRESS = &H100 ' means don't show names of files
Public Const FOF_WANTMAPPINGHANDLE = &H20 ' Fill in SHFILEOPSTRUCT.hNameMappings

Private Type SHFILEOPSTRUCT
hWnd As Long
wFunc As Long
pFrom As String
pTo As String
fFlags As Integer
fAnyOperationsAborted As Boolean
hNameMappings As Long
lpszProgressTitle As String ' only used If FOF_SIMPLEPROGRESS
End Type
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.05.2009, 15:29
    #35977049
Анатолий ( Киев )
Анатолий ( Киев )
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Диалог копирования Windows
.fFlags = (FOF_SIMPLEPROGRESS Or FOF_NOCONFIRMATION)

Но FOF_SIMPLEPROGRESS и у меня не работает. Если у вас получится - сообщите.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.05.2009, 13:20
    #35978825
casting
casting
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Диалог копирования Windows
Самое смешное, что тот раз когда у меня исправно работали FOF_SIMPLEPROGRESS и FOF_NOCONFIRMATION было прописано именно FOF_SIMPLEPROGRESS And FOF_NOCONFIRMATION

И я даже в целях отладки поменял их на FOF_CONFIRMMOUSE, а вот когда захотел вернуть всё в зад, пошли проблемы...

.fFlags = FOF_SIMPLEPROGRESS And FOF_NOCONFIRMATION - Аксес стал вылетать с ошибкой, хотя раньше так всё работало.

.fFlags = (FOF_SIMPLEPROGRESS And FOF_NOCONFIRMATION) - а так он вылетает лишь изредка, но выглядит как FOF_CONFIRMMOUSE

Ваш вариант, вылетает что со скобками, что без скобок, хотя в теории не должно быть никакой разницы.

И последнее наблюдение, самое занятное. В целях отладки я люблю выводить всякие msgbox-ы, было их по натыкано и в этот раз. Когда я достигнув некого относительно стабильного результата, убрал их, начался полный 3.14здец, аксес вылетал или вис, шаманства со скобками не помогали.
Ради интереса, вернул отладочные месагбоксы, оказалось что они определённо влияют на стабильность, причём не только те что перед вызовом, но и те что после!!!
Так или иначе, сроки поджимают, раздал людям приложение со своими костылями. И о чудо, у некоторых то FOF_SIMPLEPROGRESS And FOF_NOCONFIRMATION работают именно так как и должны...
Но если аксес всё таки глюкнёт, то после восстановления оно выглядит и ведёт себя как FOF_CONFIRMMOUSE!!!

В общем, есть подозрение что это дело происходит из-за какого то гавнизма VBA в аксессе.
Во время тестирования я заметил, что когда идёт операция с файлами, аксес подтормаживает, и когда возникает ошибка копирования, управление не всегда возвращается аксесу, возможно в этом и кроется причина зависания...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.05.2009, 13:12
    #35982908
casting
casting
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Диалог копирования Windows
Уря!
Решение, почти найдено!
Лично мне нехватало лишь FOF_FILESONLY и всё заработало, лишь иногда аксес перезапускается, но на столько иногда, что вы этого можете даже не увидеть!!!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
28.05.2020, 05:18
    #39963145
gesper
gesper
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Диалог копирования Windows
Подскажите, а у этой темы есть решение чтобы получить диалог копирования в Вин10, но чтобы пользователь не видел хотя бы папки куда копируется?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.05.2020, 15:45
    #39963423
Кривцов Анатолий
Кривцов Анатолий
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Диалог копирования Windows
gesper
есть решение чтобы получить диалог копирования в Вин10?
А что не получается в Вин10? Возможно надо подправить Declare для API функции.
gesper
но чтобы пользователь не видел хотя бы папки куда копируется?
ИМХО, нет.
А что мешает вам создать свой прогресс на форме? По-минимуму - имя копируемого файла и какой по счету из скольки.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.05.2020, 02:05
    #39964296
gesper
gesper
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Диалог копирования Windows
Какой по счету это все фигня. А вот когда возможна передача нескольких гигабайт, то тогда все становится очень печально без процесс передачи.
Под Win10 через Shell работает, только при этому отображается какой файл и КУДА копируется. Т.е. Безопасно, не передать файл. Пользователь увидит живую ссылку и нажав по ней попадет в хранилище файлов. А это катастрофа.
Нашел еще одно решение, и при помощи своей формы делает как раз иллюстрацию, но не говорит куда. Copy-Large-File-by-Chunk-with-Progress-Notification
Буду тестировать его, к диалогу Windows если что вернусь.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
31.05.2020, 16:51
    #39964724
gesper
gesper
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Диалог копирования Windows
gesper

Нашел еще одно решение, и при помощи своей формы делает как раз иллюстрацию, но не говорит куда. Copy-Large-File-by-Chunk-with-Progress-Notification
Буду тестировать его, к диалогу Windows если что вернусь.

Проверил. Как и думал - работает хорошо, но только с объемами до 2ГБ. В принципе этого достаточно, на файлы больше вешать табу буду, чтобы разбивали на отдельные файлы.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.06.2020, 20:27
    #39965150
ЦЦа
ЦЦа
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Диалог копирования Windows
gesper
gesper

Нашел еще одно решение, и при помощи своей формы делает как раз иллюстрацию, но не говорит куда. Copy-Large-File-by-Chunk-with-Progress-Notification
Буду тестировать его, к диалогу Windows если что вернусь.

Проверил. Как и думал - работает хорошо, но только с объемами до 2ГБ. В принципе этого достаточно, на файлы больше вешать табу буду, чтобы разбивали на отдельные файлы.
А что, пользоваЦЦа CopyFileEx() вместо отрыжки 16-битного режима что-то там не позволяет?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.06.2020, 23:12
    #39965180
gesper
gesper
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Диалог копирования Windows
ЦЦа
gesper
пропущено...

Проверил. Как и думал - работает хорошо, но только с объемами до 2ГБ. В принципе этого достаточно, на файлы больше вешать табу буду, чтобы разбивали на отдельные файлы.
А что, пользоваЦЦа CopyFileEx() вместо отрыжки 16-битного режима что-то там не позволяет?

А не знаю. У ОС десять тысяч апишных функций которые делают одно и тоже, и фиг поймешь зачем столько. Про запас буду иметь ввиду. Пока Имеющийся вариант пригоден. Ограничение немного даже полезно. Но спасибо.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Диалог копирования Windows / 17 сообщений из 17, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 125ms
Закрыть
start [/forum/topic.php?fid=45&mobile=1&tid=1610083]:
 0ms
get settings:
 8ms
get forum list:
 13ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 26ms
get topic data:
 11ms
get forum data:
 2ms
get page messages:
 46ms
get tp. blocked users:
 2ms
others: 11ms
total:  125ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]