Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Чем можно заменить функцию StrPtr(Ptr) / 7 сообщений из 7, страница 1 из 1
27.10.2015, 22:58
    #39088479
Joss
Joss
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Чем можно заменить функцию StrPtr(Ptr)
Пришлось переводить свою программу на Access 2010 x64 (в х32 всё работало) и оказалось что функция StrPtr(Ptr) в х64 отсутствует

Функция StrPtr

StrPtr(Ptr)

Недокументированная функция StrPtr служит для получения указателя на Unicode-строку (адреса строки в памяти) для передачи его функции API

Возвращаемое значение
Возвращает данные типа Long, содержащие указатель на первый символ строки

Кроме этой функции, все функции работы с указателями оказались недокументированными. А они мне нужны. Что делать?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.10.2015, 00:06
    #39088512
Joss
Joss
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Чем можно заменить функцию StrPtr(Ptr)
При условной компиляции можно задать, что компилировать.
Мне надо чем-то заменить эту функцию. А чем?

Вообще-то он нужен, что бы вычислить путь к папке "Мои документы" И я кажется знаю, как это сделать без этой функции.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.10.2015, 00:44
    #39088528
Может поможет
Может поможет
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Чем можно заменить функцию StrPtr(Ptr)
1
2
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.10.2015, 09:38
    #39088652
Joss
Joss
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Чем можно заменить функцию StrPtr(Ptr)
Может поможет 1
2 Кажется первая ссылка - это то что надо. Посижу, покопаюсь.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.10.2015, 09:43
    #39088654
Joss
Joss
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Чем можно заменить функцию StrPtr(Ptr)
Mina Anna MazziniJoss,
я понимаю, примерно, зачем тебе это... В релизах уровня предприятия в таких приседаниях нет нужды...
А вот и нет. Выгрузка отчёта в Excel. Пользователи хотят чтоб выгружался в папку Мои документы Ну привыкли они к этому. Нашел решение здесь же на форуме.
Код: vbnet
1.
2.
3.
4.
5.
6.
Public Function fnPathMyDocuments()
    Dim WSHShell As Object
    Set WSHShell = CreateObject("WScript.Shell")
    fnPathMyDocuments = WSHShell.SpecialFolders("MyDocuments")
    Set WSHShell = Nothing
End Function

Можно и через реестр, но так мне показалось быстрее.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.10.2015, 09:48
    #39088657
Akina
Akina
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Чем можно заменить функцию StrPtr(Ptr)
JossМожно и через реестр, но так мне показалось быстрее.
Через реестр быстрее. Обращение к API-функции и создание объекта, которое потребует загрузки и запуска программного модуля - ну даже смешно сравнивать.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.10.2015, 10:17
    #39088684
Joss
Joss
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Чем можно заменить функцию StrPtr(Ptr)
Akina,
Не в том смысле, что работает быстрее, а в том, что мне функцию написать было быстрее. Я с реестром почти не работал.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Чем можно заменить функцию StrPtr(Ptr) / 7 сообщений из 7, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 564ms
Закрыть
start [/forum/topic.php?fid=45&tablet=1&tid=1614362]:
 0ms
get settings:
 8ms
get forum list:
 13ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 147ms
get topic data:
 13ms
get forum data:
 3ms
get page messages:
 47ms
get tp. blocked users:
 1ms
others: 324ms
total:  564ms
x
x
Закрыть


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