[settings]
config=30313233343536373839000D 

if right$(DefaultDir$,1)<>"\" then
    DefaultDir$=DefaultDir$+"\"
end if
inifile$ = DefaultDir$ + "JunkINIstruct.ini"

print inifile$

struct structName, keychars$ as CHAR[11] ' if CHAR[10] you can only write 9 characters

ret = WriteINIStruct1("settings","config","0123456789",structName,inifile$)
print "ret from write: ";ret

'structName.keychars$.struct = ""
'print "test struct clear: "+structName.keychars$.struct

ret = GetINIStruct1("settings","config",GetKeyChars$,structName,inifile$)
print "ret from get: ";ret
print "Got this: ->"+GetKeyChars$+"<- (from GetINIStruct1)"

end

function WriteINIStruct1(SectionName$,KeyName$,KeyChars$,structName,inifile$)
    ' Returns true (1) if nothing wrong or false (0) if a problem
    'code by Richard Russell
    structName.keychars$.struct = KeyChars$
    size = len(structName.struct) 
    calldll #kernel32, "WritePrivateProfileStructA", _ 
    SectionName$ as ptr, _  ' Section name 
    KeyName$ as ptr, _    ' Key name 
    structName as struct, _   ' Structure 
    size as ulong, _      ' Size of structure 
    inifile$ as ptr, ret as long
    WriteINIStruct1 = ret
end function

function GetINIStruct1(SectionName$,KeyName$,byref GetKeyChars$,structName,inifile$)
    ' Returns true (1) if nothing wrong or false (0) if a problem
    'code by Richard Russell
    size = len(structName.struct) 
    calldll #kernel32, "GetPrivateProfileStructA", _ 
    SectionName$ as ptr, _  ' Section name 
    KeyName$ as ptr, _    ' Key name 
    structName as struct, _   ' Structure 
    size as ulong, _      ' Size of structure 
    inifile$ as ptr, ret as long
    GetKeyChars$ = structName.keychars$.struct
    'GetINIStruct1 = structName.keychars$.struct ' this won't work. "Type mismatch" error.
    GetINIStruct1 = ret
end function
 

'===========================================
' WritePrivateProfileStructA Demo
'===========================================
' Acknowledgements to the original authors
' Submitted by pnlawrence 11/21/2015

' This is only one example on how to perform INI file Section writing with a STRUCT. 
'   Of course, the STRUCT(s) can be rewritten and the FUNCTION(s) 
'   can be slightly rewritten to return almost any INI file data.

if right$(DefaultDir$,1)<>"\" then
    DefaultDir$=DefaultDir$+"\"
end if
inifile$ = DefaultDir$ + "JunkINIstruct.ini"

print inifile$

' STRUCT can be created however required with many different types included
'   nothing in the resulting INI file section delineates the different parts of the STRUCT
'   the resulting INI file section also includes a checksum to detect changes
'   the resulting INI file section is more than double the original total length of the values written
'       because each input character string/value is written as double-digit ASCII + nul termination + checksum
'   the STRUCT is GLOBAL

struct structName, keychars$ as CHAR[12] ' fails when CHAR[32766] is exceeded

print "Return from write: "; WriteINIStruct("settings","config","0123456789:",inifile$)

print "Return from get: ->"+GetINIStruct$("settings","config",inifile$)+"<-"

end

'===========================================
'   FUNCTIONS
'===========================================

function WriteINIStruct(SectionName$,KeyName$,KeyChars$,inifile$)
    ' Returns true (1) if nothing wrong or false (0) if a problem
    'code by Richard Russell
    structName.keychars$.struct = KeyChars$
    size = len(structName.struct) 
    calldll #kernel32, "WritePrivateProfileStructA", _ 
    SectionName$ as ptr, _  ' Section name 
    KeyName$ as ptr, _    ' Key name 
    structName as struct, _   ' Structure 
    size as ulong, _      ' Size of structure 
    inifile$ as ptr, ret as long
    WriteINIStruct = ret
end function

function GetINIStruct$(SectionName$,KeyName$,inifile$)
    ' Returns string value if nothing wrong or NULL if a problem
    'code by Richard Russell
    size = len(structName.struct) 
    calldll #kernel32, "GetPrivateProfileStructA", _ 
    SectionName$ as ptr, _  ' Section name 
    KeyName$ as ptr, _    ' Key name 
    structName as struct, _   ' Structure 
    size as ulong, _      ' Size of structure 
    inifile$ as ptr, ret as long
    if ret = 0 then GetINIStruct$ = "" : exit function
    GetINIStruct$ = structName.keychars$.struct
end function