Andrey Fedorov » 06.06.2005 (Пн) 15:35
Public Declare Function GetPrivateProfileSectionA Lib "kernel32" (ByVal lpAppName As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long Dim s As String, i As Long
s = Space(16000)
i = GetPrivateProfileSectionA(sSectionName, s, Len(s), g_sINIFile)
Andrey Fedorov » 06.06.2005 (Пн) 15:48
Igor_123 писал(а):А чего пишет GetLastError???
Вообще-то нормально работало
Igor_123 » 06.06.2005 (Пн) 16:02
МСДН писал(а):BUG: GetPrivateProfileSection Opens INI File in Read/Write Mode
Q198906
--------------------------------------------------------------------------------
The information in this article applies to:
Microsoft Win32 Application Programming Interface (API), on platform(s):
Microsoft Windows 95
Microsoft Windows 98
--------------------------------------------------------------------------------
SYMPTOMS
GetPrivateProfileSection sometimes returns 0, even though the specified section is contained in the initialization file.
CAUSE
The GetPrivateProfileSection API opens the initialization file with read and write access. If the initialization file is read only, this function returns 0.
RESOLUTION
You can resolve this error by making a call to GetPrivateProfileString before GetPrivateProfileSection. Make the GetPrivateProfileString call as follows before calling any other profile functions:
char buffer[4096];
GetPrivateProfileString(NULL, NULL, NULL,
buffer, sizeof(buffer), "ABC.INI");
The profile functions are provided for compatibility with 16-bit applications written for Windows. It is recommended that all Win32-based applications store initialization information in the registry and use the Win32 registry APIs to retrieve these values.
STATUS
Microsoft has confirmed this to be a bug in the Microsoft products listed at the beginning of this article.
Additional query words:
Keywords : kbKernBase kbRegistry kbOSWin95 kbOSWin98
Issue type : kbbug
Technology :
Andrey Fedorov » 06.06.2005 (Пн) 16:48
tyomitch писал(а):Andrey, может ini-файлы больше 64Кб вдруг стали?
Public Function GetIniSection(ByVal sSectionName As String, ByRef sReturn As String, ByVal iLen As Long, ByVal sFileName As String) As String
Static sINI As String
Dim iHFile As Integer, i As Long, s As String, ss As String, _
v As Variant, vv As Variant, b As Boolean, bb As Boolean, _
s1 As String, s2 As String
Dim sss As New StringBuilder
On Error GoTo Err_
If Len(sINI) = 0 Then
iHFile = FreeFile
Open sFileName For Binary As #iHFile
s = Space$(LOF(iHFile))
Get #iHFile, , s
Close #iHFile
End If
v = Split(s, vbCrLf)
ss = "[" & sSectionName & "]"
For i = 0 To UBound(v)
s = Trim$(v(i))
If Left$(s, 1) = "[" And Right$(s, 1) = "]" Then
If bb Then Exit For
If 0 = StrComp(s, ss, vbTextCompare) Then
b = True: bb = True
Else
b = False
End If
Else
If b Then
If Len(s) Then
If Left$(s, 1) <> ";" Then
vv = Split(s, "=", 2)
If UBound(vv) = 1 Then
s1 = RTrim$(vv(0)): s2 = LTrim$(vv(1))
If Len(s1) > 0 And Len(s2) > 0 Then
If sss.Length Then sss.Append Chr(0)
sss.Append s1 & "=" & s2
End If
End If
End If
End If
End If
End If
Next i
sReturn = sss
GetIniSection = sss.Length
Exit Function
Err_:
On Error Resume Next
If iHFile Then Close iHFile
End Function GSerg » 06.06.2005 (Пн) 16:50
Andrey Fedorov » 06.06.2005 (Пн) 17:16
GSerg писал(а):Ну тебе ж привели статью из MSDN...
Сними атрибут ReadOnly с файлов...
Public Function GetPrivateProfileSection(ByVal sSection As String, ByRef sReturnedString As String, ByVal iSize As Long, ByVal sFileName As String) As Long
GetPrivateProfileStringA vbNullChar, vbNullChar, vbNullChar, sReturnedString, iSize, sFileName
GetPrivateProfileSection = GetPrivateProfileSectionA(sSection, sReturnedString, iSize, sFileName)
End FunctionСейчас этот форум просматривают: Google-бот и гости: 188