xsharp.eu

Code: Select all

METHOD GetString(cSection, cEntry) 
LOCAL ptrBuffer AS PTR
LOCAL cValue AS STRING
	
ptrBuffer := MemAlloc(INI_STRING_LEN)
GetPrivateProfileString(String2Psz(cSection), String2Psz(cEntry), String2Psz(" "), PSZ( _CAST, ptrBuffer ), INI_STRING_LEN, String2Psz(SELF:fullPath))
cValue := Psz2String(PSZ(_CAST, ptrBuffer))
MemFree(ptrBuffer)
RETURN cValue

Code: Select all

METHOD GetSection(cSection) CLASS IniFile
LOCAL cBuffer AS STRING
LOCAL ptrBuffer AS PTR
LOCAL nLen AS DWORD
	
ptrBuffer := MemAlloc(INI_STRING_LEN)
nLen := GetPrivateProfileString(String2Psz(cSection), NULL_PSZ, String2Psz(" "), PSZ(_CAST, ptrBuffer), INI_STRING_LEN, String2Psz(SELF:FullPath))
cBuffer := Psz2String(PSZ(_CAST, ptrBuffer))
MemFree(ptrBuffer)
RETURN IIF(nLen<=0, {}, String2Array(Left(cBuffer, nLen-1), _CHR(0)))

Code: Select all

public virtual method GetSection( cSection as string ) as array
	local aReturn		as array
	local pszBuffer		as byte[]
	local aEntries		as string[]
	local nPos			as int
	local nMaxLen		as int

	aReturn				:= {}
	nMaxLen			:= 65767
	pszBuffer			:= byte[]{ nMaxLen }
	if IniFile.GetSection( cSection, pszBuffer, nMaxLen, _cFileName )
		aEntries			:= Encoding.ASCII:GetString( pszBuffer ):Trim( '' ):Split( '' )
		foreach cEntry as string in aEntries
			AAdd( aReturn, cEntry )
		next
	endif

	return aReturn
[DllImport("kernel32.dll",CharSet:=CharSet.Ansi,EntryPoint:="GetPrivateProfileSection")];
static method GetSection(lpAppName as string, lpszReturnBuffer as byte[], nSize as int, lpFileName as string) as logic pascal

Code: Select all

METHOD GetSection(cSection) CLASS IniFile
LOCAL ptrBuffer AS PTR
LOCAL nLen AS DWORD
local aValues := {} as array 

ptrBuffer := MemAlloc(INI_STRING_LEN)

nLen := GetPrivateProfileString(String2Psz(cSection), NULL_PSZ, String2Psz(" "), PSZ(_CAST, ptrBuffer), INI_STRING_LEN, String2Psz(SELF:FullPath))

if nLen > 0 

   aValues := Psz2Array ( ptrBuffer )

endif 

MemFree(ptrBuffer)

RETURN aValues 

Code: Select all

FUNCTION Psz2Array ( ptrEnv AS PTR ) AS ARRAY PASCAL
LOCAL ptrTemp AS BYTE PTR
LOCAL cString AS STRING
LOCAL aRet := {} AS ARRAY

	ptrTemp := ptrEnv

	cString := Psz2String ( ptrTemp )

	WHILE cString != NULL_STRING
	
		AAdd ( aRet , cString  )
	
		ptrTemp +=  SLen ( cString ) + 1
	
		cString := Psz2String ( ptrTemp )
	
	ENDDO

	RETURN  aRet

Code: Select all

METHOD GetSection(cSection) CLASS IniFile
LOCAL cBuffer AS STRING
LOCAL nLen AS DWORD
	
cBuffer := Buffer(4096)
nLen := GetPrivateProfileString(PSZ(cSection), NULL_PTR, PSZ(" "), PSZ(cBuffer), 4096, PSZ(SELF:FullPath))
RETURN IIF(nLen<=0, {}, String2Array(Left(cBuffer, nLen-1), _CHR(0)))

Code: Select all

[DllImport("kernel32.dll" ...

Code: Select all

error XS0120: An object reference is required for the non-static field, method, or property 'IniFile.GetSection(params XSharp.__Usual[])'
error XS0103: The name 'Encoding' does not exist in the current context

Code: Select all

[DllImport("kernel32.dll",CharSet:=CharSet.Ansi,EntryPoint:="GetPrivateProfileSection")];
static method GetSectionX(lpAppName as string, lpszReturnBuffer as byte[], nSize as int, lpFileName as string) as logic pascal

Code: Select all

using System.Text

Code: Select all

System.Text.Encoding.ASCII:GetString( pszBuffer )

Code: Select all

PUBLIC VIRTUAL METHOD GetSection( cSection AS STRING ) AS ARRAY
...
IF IniFile.GetSectionX( cSection, pszBuffer, nMaxLen, "C:WINAPPSPDFMAILPDFMAIL.INI" )
...
[DllImport("kernel32.dll",CharSet:=CharSet.Ansi,EntryPoint:="GetPrivateProfileSection")];
STATIC METHOD GetSectionX(lpAppName AS STRING, lpszReturnBuffer AS BYTE[], nSize AS INT, lpFileName AS STRING) AS LOGIC PASCAL

Code: Select all

error XS0246: The type or namespace name 'DllImportAttribute' could not be found (are you missing a using directive or an assembly reference?)
error XS0246: The type or namespace name 'DllImport' could not be found (are you missing a using directive or an assembly reference?)
error XS0246: The type or namespace name 'CharSet' could not be found (are you missing a using directive or an assembly reference?)
error XS0103: The name 'CharSet' does not exist in the current context
error XS0246: The type or namespace name 'EntryPoint' could not be found (are you missing a using directive or an assembly reference?)

Code: Select all

using System.Runtime.InteropServices

Code: Select all

error XS1503: Argument 1: cannot convert from 'string' to 'char'

Code: Select all

aEntries := Encoding.ASCII:GetString( pszBuffer ):Trim( c'' ):Split( c'' )

Code: Select all

public virtual method GetSection( cSection as string ) as Dictionary<string,string>
	local oReturn		as Dictionary<string,string>
	local pszBuffer		as byte[]
	local aEntries		as string[]
	local cKey			as string
	local cValue		as string
	local nPos			as int
	local nMaxLen		as int

	oReturn				:= Dictionary<string,string>{}
	nMaxLen				:= 65767
	pszBuffer			:= byte[]{ nMaxLen }
	if IniFile.GetSection( cSection, pszBuffer, nMaxLen, _cFileName )
		aEntries			:= Encoding.ASCII:GetString( pszBuffer ):Trim( '' ):Split( '' )
		foreach cEntry as string in aEntries
			nPos				:= cEntry:IndexOf( "=" )
			if nPos > 0
				cKey				:= cEntry:SubStr( 0, nPos )
				cValue				:= cEntry:SubStr( nPos + 1 )
				oReturn:Add( cKey, cValue )
			endif
		next
	endif

	return oReturn