Конференция VBStreets

**Tor** » 05.11.2004 (Пт) 12:43

Здарова!
Люди скажите что я не так сделал, а то басик матюкается типа:
"Sub or Function not defined"

Код:
Private Declare Function GetPrivateProfileInt _
Lib "kernel32" Alias "ReadIniInt" _
(ByVal lpApplicationName As String, ByVal lpKeyName As String, _
ByVal nDefault As Long, ByVal lpFileName As String) As Long

Private Sub Form_Load()
FLog = ReadIniInt("SETTING", "LOG", 1, 16, App.Path & "/server.ini")
CheckLog.Value = FLog
End Sub

**Scuder** » 05.11.2004 (Пт) 12:45

Код: Выделить всё: FLog = GetPrivateProfileInt ("SETTING", "LOG", 1, 16, App.Path & "/server.ini")

**Tor** » 05.11.2004 (Пт) 13:54

Scuder писал(а)::-)

Код: Выделить всё
FLog = GetPrivateProfileInt ("SETTING", "LOG", 1, 16, App.Path & "/server.ini")

Благодарю, правда работать не стало, но продвинулось дальше, теперь неможет подключить библиотеку, может кто знает как это сделать?
Наверное из-за этого в самом начале такой глюк

**Scuder** » 05.11.2004 (Пт) 13:58

Ну, дык, это.. Откуда у тебя столько параметров-то?

API Guide:

Код: Выделить всё: 'This sample was submitted by Robin (rbnwares@edsamail.com.ph) 'Visit his site at http://members.fortunecity.com/rbnwares1 Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long Private Declare Function GetPrivateProfileInt Lib "kernel32" Alias "GetPrivateProfileIntA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal nDefault As Long, ByVal lpFileName As String) As Long Private Sub Form_Load() 'Sample for reading a numbers directly on the INI file 'Write a number 55 on the sample.ini to be read WritePrivateProfileString "Sample", "Sample", "55", App.Path & "\sample.ini" 'Then, read the stored number 'No need to convert the value returned MsgBox GetPrivateProfileInt("Sample", "Sample", 0, App.Path & "\sample.ini") End Sub

**Tor** » 05.11.2004 (Пт) 14:08

Да с параметрами та понято, 16 лишнее, да и дело не в этом.
Все разобрался, ну полный примитив, короче
когда делал декларацию, то вместо ReadIniInt надо писать GetPrivateProfileIntA, ну и дальше при вызове надо вызывать GetPrivateProfileInt , а не GetPrivateProfileIntA.
Вот только появляется такой вопрос зачем тогда алиас при декларации?

**Ennor** » 05.11.2004 (Пт) 14:27

Алиас - это реальное название функции в DLL. В данном случае это используется для того, чтобы можно было иметь в одной библе ANSI (A) и Unicode (W) версии функций. У тебя используется ансишная.

**Tor** » 05.11.2004 (Пт) 14:55

Теперь понял.
Cкажите а почему переменная FromDb постоянно равняется 10, хотя я ее объявлял как Dim FromDb$ , а Str остается пустой

FromDb = GetPrivateProfileString ("ALL", "FROM DB", "orgpri.dbf", Str, 200, App.Path & "/server.ini")

**Scuder** » 05.11.2004 (Пт) 15:15

Есть такой мегазверёк, которого учёные-программеры окрестили API Guide'ом. Первого представителя этих млекокодирующих обнаружили в 1998 году. Обитает данный зверёк преимущественно в Бельгии, однако очень хорошо размножается и в современном киберпространстве. Впервые запутался в глобальной паутине по адресу http://www.allapi.net, также известному как http://www.mentalis.org. Так как этот зверёк впитал в себя всё то хорошее, что успело создать научно-программерское сообщество в государстве Окон, плодится и распространяется API Guide совершенно бесплатно. То есть даром.

Я тебе очень советую завести у себя дома или на работе этого зверька! Белый и пушистый, нежный и ласковый, он всегда будет готов помочь тебе в любом твоём программном начинании.