вылетает vb

[shady]

Здравствуйте объявил АПИ

Код: Выделить всё

Public Declare Function GetPrivateProfileSection Lib "kernel32" Alias "GetPrivateProfileSectionA" (ByVal lpAppName As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long


пытаюсь прочитать из ini файла так:

Код: Выделить всё

strDataSource = GetPrivateProfileSection("SrvName", strDataSource, 100, App.Path & "\settings.ini")

и сразу вылетает. Причем еще недавно все прекрасно работало. Никто не сталкивался?

[GSerg]

Ужас...

При всём остальном ужасе, который виден в коде - для начала скажи, тебе совсем-совсем не кажется ненормальным, что ты присваиваешь строке возвращённое значение лонговой функции?

[Debugger]

Ещё странней то, что раньше всё работало!!!

[Kovu]

Присвоение значения убери + заполни переменную для результата любыми символами

Код: Выделить всё


strDataSource=String(100, Chr(32))

например.

[shady]

Код: Выделить всё

Call GetPrivateProfileString("SrvName", strDataSource, 100, App.Path & "\settings.ini")

- было до того как начало вылетать.

API-Guide 3.7
The GetPrivateProfileSection function retrieves all the keys and values for the specified section of an initialization file.

разве не должна вернуть пару ключ/значение?

[shady]

Kovu
спасибо, действительно, в объявлении переменной не была указана длинна строки

Код: Выделить всё

Public strDataSource As String * 100

теперь не вылетает.
но все-таки не совсем понятно поведение самого VB при этом почему именно вылетает?

[GSerg]

разве не должна вернуть пару ключ/значение?

Сам процитировал "all the keys and values", и сам хочешь одну пару?

но все-таки не совсем понятно поведение самого VB при этом почему именно вылетает?

А что ещё ему остаётся, когда буфер не выделен?

[shady]

Сам процитировал "all the keys and values", и сам хочешь одну пару?

согласен, не сказал что в секции только 1 ключ=значение

А что ещё ему остаётся, когда буфер не выделен?

логично было бы предположить - сказать об этом

[GSerg]

Каким образом функция GetPrivateProfileString может узнать, что переданный указатель на буфер не содержит за собой достаточно места?

[shady]

Функция-то не узнает, но VB дожен об этом позаботиться. О overflow сообщает, значит сравнивает, а раз сравнивает, значит и здесь мог-бы сравнить. Просто не все предусмотрели разработчики, что в общем-то и не удивительно. Все предусмотреть нельзя.
а что касается

но все-таки не совсем понятно поведение самого VB при этом почему именно вылетает?

был дан ответ, спасибо.

А что ещё ему остаётся, когда буфер не выделен?

.
Так что считаю, что не стоит дальше продолжать эту дискуссию.

[GSerg]

shady, поверь мне, из твоих слов понятно, что ты совсем не понимаешь, как всё устроено, и почему всё было сделано именно так.
И разработчики как раз сделали максимум.
Поэтому просто поверь на слово - всё сделано так, что лучше уже некуда. Физически невозможно, понимаешь?

[shady]

верю на слово