Архив форумов ЦИТФорума

[member007]

Есть известная API-функция GetPrivateProfileString для чтения ini-файлов:

[критикан]

смотрим на мсдн'е объявление функции GetPrivateProfileString:

DWORD WINAPI GetPrivateProfileString(
__in LPCTSTR lpAppName,
__in LPCTSTR lpKeyName,
__in LPCTSTR lpDefault,
__out LPTSTR lpReturnedString,
__in DWORD nSize,
__in LPCTSTR lpFileName
);

как видим, первые два параметра -- это указатели, говоря по-асмовски, это адреса.

теперь смотрим, что товарищ член007 хочет передать в эту функцию:

Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long

видим, что передаются не адреса, а чёрт-те что: в первом случае:

nRet = GetPrivateProfileString(Null, Null, "", sBuff, nBufL, sCPath & "\test.ini")

второй параметр компилятор аксесса хочет отдать как нетипизированый параметр, то есть с информацией о типе, а сама функция такой дряни -- понимаешь -- не понимает, так как хочет простой советский асмовский адрес. и он, компилятор, естественно, даёт отлуп по несоответствию типов. во втором случае:

nRet = GetPrivateProfileString(Null, "", "", sBuff, nBufL, sCPath & "\test.ini")

всё понимается как надо, но только в функцию-то передали не готовую переменную со значением Null, а то, что наделал компилятор аксесса под этот самый Null, когда передавал его вместо строки. и когда с этим г... начинает работать сама библиотечная фукнция, её начинает тошнить (функция -- напомню -- просит простой советский адрес)

вывод:
вар. 1. попробовать в обоих параметров установить тип string и передавать пустую строку, а не null (её аксесс сам превратит в сишный null)
вар. 2. передавать переменные таким образом: перед вызовом функции вычислять адреса передаваемых переменных и передавать их в виде строки в машинных символах
вар. 3. попробовать нормальную советскую передачу параметров по ссылке (вроде бы подключаемые функции такое позволяют)
-------------------------------------
Титаренко Ромео: это ты хорошо придумал. главное -- вовремя!

[критикан]

вот, кстати, пример из мсдн'а с решением по вар. 1:

[member007]

[критикан]

[member007]