INI files

Can anyone see anything wrong with this?

I keep getting a runtime errror 49 "bad DLL calling convention". I am using a "c:\apps\stock\test.ini" file and trying to retrieve a "fred" variable


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


Private Sub Command1_Click()
Dim nChar As Long
Dim ReturnedString As String
Dim Parsed() As String 'not used

ReturnedString = String(512, 0)
nChar = GetPrivateProfileString("test", "fred", "", ReurnedString, 512, "c:\apps\stock\test.ini")
Debug.Print (nChar)
End Sub

I'm doing a completely different thing and getting the same error. Can anyone help?

My code (peices)

VB Code:

Declare Function GetPrivateProfileString Lib "kernel32" _
  Alias "GetPrivateProfileStringA" _
  (ByVal lpApplicationName As String, _
   ByVal lpKeyName As String, _
   ByVal lpDefault As String, _
   ByVal lpReturnedString As String, _
   ByVal nSize As Long, _
   ByVal lpFileName As String) As Long
 
Public Function Devour(ByVal FullFileName As String) As Long
  Dim ReturnedString As String
  Dim ReturnedSize As Long
 
  ReturnedSize = GetPrivateProfileString ("Properties", "WorkStation", "", ReturnedString, 256, FullFileName)
End Function

My error

Quote:

---

The instruction at "0x77e873dc" referenced memory at "0x00000000". The memory could not be "written".

---

Course, the wording on my error isn't but so important. It looks like it is trying to write to a bogus memory address. I've stepped through the code, and I get the error on the API call. The error is bad enough to crash Studio.

I'm using VS6 on W2KPro.

Never mind, I just fixed my own problem.

VB Code:

Public Function Devour(ByVal FullFileName As String) As Long
  Dim ReturnedString As String * 256
  Dim ReturnedSize As Long
 
  ReturnedSize = GetPrivateProfileString ("Properties", "WorkStation", "", ReturnedString, 256, FullFileName)
End Function

You have to give the string a length. :rolleyes: