powered by simpleCommunicator - 2.0.53     © 2025 Programmizd 02
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / WizHook - перевод "документации"
25 сообщений из 102, страница 4 из 5
WizHook - перевод "документации"
    #33222410
Фотография Victosha
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Victosha Victosha AdpUIDPwd(pbstrUID As String, pbstrPwd As String) As Boolean)
Нет данных

проверил, что это за зверь.
оказалось, что возвращает текущие значения для пользователя и его пароля
для стандарного (не вин-секьюрити) подключения к sql-server
для адп проекта.

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
  WizHook.Key =  51488399 
  Dim bR As Boolean ' результат (успех/неуспех)
  Dim pbstrUID As String 'сюда вернется имя пользователя для стандарной безопасности или пусто, если win-идентификация
  Dim pbstrPwd As String ' сюда вернется пароль текущего пользователя (или пусто)

  WizHook.Key =  51488399 
  bR = WizHook.AdpUIDPwd(pbstrUID, pbstrPwd)
  Debug.Print bR, pbstrUID, pbstrPwd

Если соединение SSPI, то будут получены такие значения
bR= True, pbstrUID=vbnullString, pbstrPwd=VbNullString

ЗЫ1
проверялось на подключенном проекте.
не исключено, что в отсутствии соединения bR=False - требует доп. проверки.

ЗЫ2
кажется, что-то подобное было кому-то нада...

попробовал сегодня AdpUIDPwd на защищенном файлом рабочей группы mdb.

он в ответ честно мне сказал - как меня зовут и какой у меня пароль.

adp - стало быть - немного слово обманка.

эта функция возвращает текущий мандат пользователя, независимо - adp
(со стандартной sql-авторизацией) это или mdb.
...
Рейтинг: 0 / 0
WizHook - перевод "документации"
    #33223302
Фотография Serge Gavrilov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Victosha...
попробовал сегодня AdpUIDPwd на защищенном файлом рабочей группы mdb.

он в ответ честно мне сказал - как меня зовут и какой у меня пароль.

adp - стало быть - немного слово обманка.

эта функция возвращает текущий мандат пользователя, независимо - adp
(со стандартной sql-авторизацией) это или mdb.

Очень интересно! Спасибо.
...
Рейтинг: 0 / 0
WizHook - перевод "документации"
    #33223336
Фотография Victosha
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Если не вру - (надо бы проверить еще дополнительно)

Код: plaintext
bR = WizHook.AdpUIDPwd(pbstrUID, pbstrPwd)

переменная bR принимает значение истина, только когда adp
со стандартной sql идентификацией. для мдб, в частности, возвращает ложь.

видимо, этот возврат должен читаться ьак - "текущее соединение с базой не является соединением с скл-сервером в режиме скл-идентификации"
...
Рейтинг: 0 / 0
WizHook - перевод "документации"
    #33223339
Мшсещырф
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
хи-хи.
сам себя не четал...
...

видимо, этот возврат должен читаться так - "текущее соединение с базой не является соединением с скл-сервером."
...
Рейтинг: 0 / 0
WizHook - перевод "документации"
    #33224358
Фотография nibbles
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Смотрел вот это:
http://www.mvp-access.com/juanmafan/wizhook/wizhook.htm
Есть вот такой фрагмент:
авторA partir de la versión 2000 de Access aparece un nuevo objeto (oculto) en la librería de objetos de Access, llamado WizHook. Por que se puede deducir de su nombre - Wiz-Hook, Wi-zard-Hook, algo así como "mediador con los asistentes" - y también por los métodos que utiliza, es un objeto que sirve de enlace entre el código interno de Access y el código externo de los asistentes de Access, los cuales están ubicados en una serie de bases .mde, que se instalan junto con la aplicación de Access. Hasta la versión 97 los elementos de WizHook estaban ubicados dentro del ejecutable de Access como funciones API. Se declaraban de una forma parecida a ésta:

Код: plaintext
1.
2.
3.
4.
Declare Function fEjemplo _
                 Lib "msaccess.exe" _
                 Alias "#888" _
                 ByVal var1 As Long _
                 ByVal var2 As Long) As Long
pero, al parecer, algunas de estas funciones API de Access ya no están disponibles de esta manera en la versión 2000, y en cambio sí lo están como métodos del objeto WizHook (otras funciones, sin embargo, siguen funcionando como solían a través del API de Access).
К сожалению, я по-итальянски не гу-гу... Может быть кто-то хотя бы общий смысл уловит? Судя по всему, это вступление в WizHook, но к чему там Declare API-функции?
...
Рейтинг: 0 / 0
WizHook - перевод "документации"
    #33224417
Фотография Victosha
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
ваапче-то ето гишпанский.
а яво трасляте.ру берет так

www.translate.ru
Хочу быть благодарным в Skrol29, тот факт, что он хотел делить открытие, на как "активизировании" объекта Висоок, так как без его помощи и усилия не было ни даже не начатый моего исследования этой темы. С этих страниц я хочу посылать ему сердечное приветствие.
Начиная с версии 2000 Аксесс появляется новый (скрытый) объект в книжном магазине объектов Аксесс, так называемого Висоок. Из-за которого возможно приходить к заключению его имени - Вис-Оок, Ви-сард-Оок, чего-то подобного " посреднику с помощниками " - и также из-за методов, которые он использует, это объект, который служит соединением между внутренним кодом Аксесс и внешнего кода помощников Аксесс, которые найдены в серии оснований .мде, что основывают вместе с применением Аксесс. До версии 97 составные части Висоок были помещены внутри выполнимого Аксесс как функций АПИ. Они высказывались формы похожей на эту:


Признал Функтион fEjemplo _
Либ "мсаксесс.ексе" _
Прозвище "*888" _
Биваль var1 Эксперт Лонг _
Биваль var2 Эксперт Лонг) Эксперт Лонгно, как кажется, какие-то из этих функций АПИ Аксесс уже не являются доступными таким образом в версии 2000, и взамен да они это как методы объекта Висоок (другие функции, однако, продолжают функционировать как они имели обыкновение через АПИ Аксесс).
Возможно, что мы больше одного этих методов и свойств Висоок не находим много почувствованным как программисты применений. Нужно помнить, что, предположительно, этот объект служит как соединение с помощниками, и конечно более ориентировалось на рисунок объектов основания информации и на взаимодействование с программистом, который в конечное использование применения *con* информация.
Поскольку Висоок - скрытый объект, чтобы мочь делать это видимым, мы должны идти в окно издателя Визуального Басик де Аксесс, меню Видеть, Экзаменатор объектов, и на окне, где появляются объекты, кликать с прямой пуговицей мыши, выбирая сегидаменте выбор " Показывать скрытые члены ".
Мы найдем Висоок как объект книжного магазина Аксесс или также как собственность объекта Аппликатион (который в свою очередь ссылается на объект Висоок).
Если мы будем пробовать выполнять какой-то метод или соглашаться на какую-то собственность Висоок, мы увидим, что никогда оно не кажется функционирует (за исключением метода Сортстрингарраи). Это потому что перед тем, как использовать какой-то метод, мы должны "активизировать" Висоок назначая стоимость, решенную на его собственность Кеи. Начиная со здесь, Висоок функционирует в течение всего времени, в котором основание информации было открытым.
Время спустя делать доказательства и исследовать, я смог готовить серию примеров и объяснений каких-то его методов и свойств. Здесь у вас есть они:АксессусердатадирАргсофактидБраккетстрингКлосекуррентдатабасеКуррентланхидЭнглиспикттолокальФилеексистсФирстдбкдатаобхектФульпатХетфиленамеХетскриптстрингГлобальпросексистсИсмачтодбкконнектстрингИсвалидидентКеиКеибоардланхидЛокальфонтНамефромактидОбхтипофрекордсоурсеОффисеаддиндирОпенпиктурефилеОпенскриптСавескриптстрингСетвбапассвордСортстрингарраиСплитпатТаблефьельдасуникеиндексТвипсфромфонт

Он замечает: Объект Висоок - без документов объект, и следовательно, эта информация предоставляется " как дела " без гарантий какого-либо класса, и не предоставляя какое-либо право, это только плод личного исследования.
Информация, которая выставляется здесь, - независимая от Майкрософта. Майкрософт не дает никакую гарантию ни подразумеваемая ни никакого другого класса, относительно надежности и отдачи этой документации.
...
Рейтинг: 0 / 0
WizHook - перевод "документации"
    #33224433
Фотография nibbles
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
по-испански, кстати, тоже :))
...
Рейтинг: 0 / 0
WizHook - перевод "документации"
    #33224565
Andres 1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Victoshaвстретил нечто, что можно воспринимать как рекомендацию
"отключать" Wizhook после использования.

Не вполне точно понятно, с какими целями.

Вот, немецкие товарищи ( http://www.team-moeller.de/access/tiptrick/wizhook.html) пишут что-то вроде того ( переводил Гугль ), что предпочитают инициализировать при каждом использовании, но не сбрасывать. Причина, кажется, чисто эстетическая - код выглядит лучше.

Ау, кто знает немецкий?
...
Рейтинг: 0 / 0
WizHook - перевод "документации"
    #33336756
Фотография Victosha
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Victosha Sub SortStringArray(Array() As String)
Метод сортирует одномерный массив строк в алфавитном порядке.
Проваливается при получении неинициализированного массива.
Всегда доступен (не требует ключа)

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
Public Function WH_Test()
    Dim a( 3 ) As String
    Dim i As Integer
    
    a( 0 ) = "zulu"
    a( 1 ) = "alpha"
    a( 2 ) = "gamma"
    a( 3 ) = "delta"
    
    WizHook.SortStringArray a()
    
    For i =  0  To  3 
        Debug.Print a(i)
    Next
    
End Function


дополнение
Если элемент массива сохранил значение по умолчанию vbNullString,
или элементу массива было явно присвоено такое значение, то функция проваливается, вызывая крах Access.
Пояснение. vbNullString, строго говоря, не строка в собственном смысле этого слова. В том отношении, что "значению" vbNullString не соответствует никакой строковый буфер.
Элементу массива должен быть присвоена любая "настоящая" строка (выделен явный строковый буфер).
Например - ""
...
Рейтинг: 0 / 0
WizHook - перевод "документации"
    #33336865
MsDatabaseru
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
когда увидел поднятой эту тему
сразу вспомнил как когда уже все было готово,
смотрел результаты в watch и обратил на пустую нулевую ячейку внимание...
на результаты сравнения не влияло так как там и сям одинаково поэтому забил... не доперло что именно это ломает аксесс

прикольно.
правда опасно использовать если нет гарантии что все элементы не пустые
...
Рейтинг: 0 / 0
WizHook - перевод "документации"
    #33338538
Olya A
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Здраствуйте.
А расскажите немного поподробенее про wizhook, и как его подключать?
...
Рейтинг: 0 / 0
WizHook - перевод "документации"
    #33338988
Фотография АлексейК
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
никак не подключать
библиотечные функции аксессовских проектов расположенных
в директории где установлен аксесс доступны
как имябиблиотеки.имяфункции
...
Рейтинг: 0 / 0
Период между сообщениями больше года.
WizHook - перевод "документации"
    #34294645
Фотография Victosha
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
вчера был вопрос про диалог сохранения в акцесс. в связи с этим привожу
уточнения по GetFileName

расшифровки значений входных параметров для View и flags,
замечание по разделению элементов фильтра:

(значения взяты с вышецитированного немецкого сайта. имена констант придуманы ad hoc)


Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
'разделитель элеметнов фильра типов (расширений) файлов
Const CwzFilterPipe$ = "|"   'вертикальная черта (pipe-символ)

'константы для параметра View метода WizHook.GetFileName
'параметр определяет вид отображения элементов файловой системы в окне диалога
'принимаются в расчет в комбинации с флагом 64 для параметра flags
Const CvwDetail& =  0 &       'детальный (вид Detail)
Const CvwPreview& =  1 &      'предварительный просмотр (вид Preview)
Const CvwList& =  3 &         'Список (вид List)
Const CvwThumbnails& =  4 &   'миниатюра (вид Thumbnails)
Const CvwLargeIcons& =  5 &   'большие иконки (вид Large Icons)
Const CvwSmallIcons& =  6 &   'маленькие иконки (вид Small Icons)

'Константы для параметра flags метода WizHook.GetFileName
'допускается комбинация через суммирование
Const CflDirChange& =  4 &     'выбор с переустановкой текущего каталога Access
Const CflMultySelect& =  8 &   'допускается множественный выбор файлов.
                             'в комбинации с 32, в случае множественного выбора, возвращается имя родительского каталога.
Const CflFolderSelect& =  32 & 'выбор каталога. fOpen должен быть =True выбора каталога.
Const CflForceView& =  64 &    'при установке этого парамтера окно диалога формсируется в вид, определяемый параметром View
...
Рейтинг: 0 / 0
WizHook - перевод "документации"
    #34355695
Фотография Victosha
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Уточнения про AdpUIDPwd и определение текущего пользователя:

предыдущее описание было неточным.
Новый вариант выглядит так:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
  WizHook.Key =  51488399 
  
  Dim bR As Boolean 
  Dim pbstrUID As StringDim pbstrPwd As String
  WizHook.Key =  51488399 
  bR = WizHook.AdpUIDPwd(pbstrUID, pbstrPwd)
  
  Debug.Print bR, pbstrUID, pbstrPwd
 

bR = True - мы находимся в ADP-проекте присоединенном в режиме интегрированной windows-идентификации. Если в панели подключения ранее были сохранены имя и пароль пользователя, то они будут показаны в pbstrUID и pbstrPwd.
Реальное имя пользователя нужно устанавливать через Environ или API
На значения pbstrUID и pbstrPwd как реквизиты текущего пользователя нельзя полагаться.

bR = False для адп с sql-регистрацией и mdb-проекта в pbstrUID и pbstrPwd фактические
реквизиты текущего пользователя.

------------------
из предыдущего описания могла складываться впечатление, что возврат этой функции может быть использован для определения типа проекта. На самом деле это не так.
Тип проекта - adp|mdb определяется через Application.CurrentProject.ProjectType
подтип (ade\mde) может быть определен через набор Properties для CurrentDb (mde) или CurrentProject (adp)
так для ADE CurrentProject.Properties("ADE")=True
------------------
В любом случае в ADP нельзя полагаться на Application.CurrentUser
Этот вызов покажет имя пользователя из
Application.DeEngine.Workspaces(0).UserName
------------------

жаль, что в этом топике нет желающих поисправлять мои ошибки. :)
...
Рейтинг: 0 / 0
WizHook - перевод "документации"
    #34355701
Фотография Victosha
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
В любом случае в ADP нельзя полагаться на Application.CurrentUser
Этот вызов покажет имя пользователя из
Application.DbEngine.Workspaces(0).UserName
...
Рейтинг: 0 / 0
WizHook - перевод "документации"
    #34356145
Фотография Victosha
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
это было неправда:
автортак для ADE CurrentProject.Properties("ADE")=True

приношу извинения. придумалось
...
Рейтинг: 0 / 0
WizHook - перевод "документации"
    #34356197
Фотография Serge Gavrilov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Victoshaэто было неправда:
автортак для ADE CurrentProject.Properties("ADE")=True

приношу извинения. придумалось
для ADE CurrentProject.Properties("MDE")=True
...
Рейтинг: 0 / 0
WizHook - перевод "документации"
    #34356362
Фотография Victosha
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Serge Gavrilov Victoshaэто было неправда:
автортак для ADE CurrentProject.Properties("ADE")=True

приношу извинения. придумалось
для ADE CurrentProject.Properties("MDE")=True

благодарю за решающее указание.

:)

спасибо.
...
Рейтинг: 0 / 0
Период между сообщениями больше года.
WizHook - перевод "документации"
    #38110662
studieren
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Случайно наткнулся на статью WizHook-Objekt . Правда написано на немецком.
Там есть таблица, где перечислены свойства / процедуры / функции объекта Wizhook для разных версий Access. Если верить этой таблице, то появились и новые, которых не было в MSA 2003. Ну например "GetDisabledExtensions" в MSA2010. Интересно, что же возвращает это свойство / функция в MSA2010? Из-за не имения не на чем экспериментировать.
Сам автор того сайта пишет, что не совсем ясно, что же выполняет эта функция, чтобы документировать её. :)
...
Рейтинг: 0 / 0
WizHook - перевод "документации"
    #38110762
Фотография Старый ворчун
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
studieren,

у меня возвращает "!txt,csv,tab,asc,tmp,htm,html,log"
...
Рейтинг: 0 / 0
WizHook - перевод "документации"
    #38110775
Фотография ILL HEAD
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
сам по себе визхук - бред пьяного индуса
когда нет нормального оопа изобретают гамно. а некоторые роются в в нем
...
Рейтинг: 0 / 0
WizHook - перевод "документации"
    #38110829
Фотография Старый ворчун
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
ILL HEADсам по себе визхук - бред пьяного индуса
может быть
ILL HEADкогда нет нормального оопа изобретают гамно.
Не желаете пояснить свою мысль? Что именно вы имеете в виду?
Я, например, не вижу четкой связи между тем, что у VBA (у Access?) нет "нормального ооп" и необходимостью создания WizHook.
Excel как-то обходится без подобного.
...
Рейтинг: 0 / 0
WizHook - перевод "документации"
    #38110857
Фотография ILL HEAD
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Старый ворчунILL HEADсам по себе визхук - бред пьяного индуса
может быть
ILL HEADкогда нет нормального оопа изобретают гамно.
Не желаете пояснить свою мысль? Что именно вы имеете в виду?
Я, например, не вижу четкой связи между тем, что у VBA (у Access?) нет "нормального ооп" и необходимостью создания WizHook.
Excel как-то обходится без подобного.не желаю. но поясню - наличие "нормального опп" предполагает доступ к методам и свойствам объектов. в т.ч. окружения

перечислите в чем вам помог визхук. уверен что больше 1-2 примеров не наберете. почему- потому что это костыль для хромого акцеса (вб6)

про экцель не скажу. мало ли где вба воткнут
...
Рейтинг: 0 / 0
WizHook - перевод "документации"
    #38111650
Фотография Старый ворчун
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
ILL HEAD,
к сожалению, аргументированного ответа не услышал.
Видимо, исправление "хромоты" access - полный отказ от VBA?

Использовать wizhook никто не призывает. Это не документировано.
...
Рейтинг: 0 / 0
Период между сообщениями больше года.
WizHook - перевод "документации"
    #39469931
Фотография гурД
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Почти все методы Wizhook на японском. В переводчике всё понятно...
http://wizhook.web.fc2.com/
...
Рейтинг: 0 / 0
25 сообщений из 102, страница 4 из 5
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / WizHook - перевод "документации"
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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