ReSQL.ru
     
powered by simpleCommunicator - 2.0.56     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Чем можно заменить функцию StrPtr(Ptr)
7 сообщений из 7, страница 1 из 1
Чем можно заменить функцию StrPtr(Ptr)
    #39088479
Фотография Joss
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Joss
Участник
Пришлось переводить свою программу на Access 2010 x64 (в х32 всё работало) и оказалось что функция StrPtr(Ptr) в х64 отсутствует

Функция StrPtr

StrPtr(Ptr)

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

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

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

Вообще-то он нужен, что бы вычислить путь к папке "Мои документы" И я кажется знаю, как это сделать без этой функции.
...
Рейтинг: 0 / 0
28.10.2015, 00:06
| Ответить | Цитировать | Написать  
Чем можно заменить функцию StrPtr(Ptr)
    #39088528
Может поможет
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Может поможет
Гость
1
2
...
Рейтинг: 0 / 0
28.10.2015, 00:44
| Ответить | Цитировать | Написать  
Чем можно заменить функцию StrPtr(Ptr)
    #39088652
Фотография Joss
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Joss
Участник
Может поможет 1
2 Кажется первая ссылка - это то что надо. Посижу, покопаюсь.
...
Рейтинг: 0 / 0
28.10.2015, 09:38
| Ответить | Цитировать | Написать  
Чем можно заменить функцию StrPtr(Ptr)
    #39088654
Фотография Joss
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Joss
Участник
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:43
| Ответить | Цитировать | Написать  
Чем можно заменить функцию StrPtr(Ptr)
    #39088657
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Akina
Участник
JossМожно и через реестр, но так мне показалось быстрее.
Через реестр быстрее. Обращение к API-функции и создание объекта, которое потребует загрузки и запуска программного модуля - ну даже смешно сравнивать.
...
Рейтинг: 0 / 0
28.10.2015, 09:48
| Ответить | Цитировать | Написать  
Чем можно заменить функцию StrPtr(Ptr)
    #39088684
Фотография Joss
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Joss
Участник
Akina,
Не в том смысле, что работает быстрее, а в том, что мне функцию написать было быстрее. Я с реестром почти не работал.
...
Рейтинг: 0 / 0
28.10.2015, 10:17
| Ответить | Цитировать | Написать  
7 сообщений из 7, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Чем можно заменить функцию StrPtr(Ptr)
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?desktop=1&fid=45&tid=1614362]:
 0ms
get settings:
 10ms
get forum list:
 14ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 72ms
get topic data:
 11ms
get forum data:
 2ms
get page messages:
 48ms
get tp. blocked users:
 2ms
others: 14ms
total:  179ms
созд. / загр.: 179ms
x
x
Закрыть


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