• Home
 · 
• Windows API Call/Explanation
 · 
• Easy and Fast Way to Read Value from ini file using API Calls

Easy and Fast Way to Read Value from ini file using API Calls

Easy and Fast Way to Read Value from ini file using API Calls

API Declarations


API Calls Used:

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

Public DATABASE AS String
Public USERNAME AS String
Public PASSWORD AS String




Rate Easy and Fast Way to Read Value from ini file using API Calls

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

File Name:  DatabaseInfo.ini

[DataBaseUsed]

'Database Base Name
Database = "DBTOUSE"

'Valid User Name to Access
Username = "UserName01"

'Valid Password to access
Password = "Password01"

How to use:

fnGetValueFromIniFile "DataBaseUsed", "Database", DATABASE, DatabaseInfo.ini
fnGetValueFromIniFile "DataBaseUsed", "UserName", USERNAME, DatabaseInfo.ini
fnGetValueFromIniFile "DataBaseUsed", "Password", PASSWORD, DatabaseInfo.ini

'==============================================================================
Public Function fnGetValueFromIniFile (ByVal strApplicationName As String, ByVal strKeyName As String, ByRef strReturnedString As String, ByVal strFileName As String) As Boolean
    On Error GoTo LOCALERRORHANDLER
    Dim lngRc1           As Long                      'To store return value
    Dim lngRc2           As Long                      'To store return value
    Dim strCheckBuff     As String                    'To store and Check buffer
    Dim strDefault       As String                    'Default value
    '******************************************************
    fnGetIniString = False
    strReturnedString = String(261, 0)
    strDefault = vbNullString

    strFileName = App.Path + "\" + strFileName
    lngRc1 = GetPrivateProfileString(strApplicationName, strKeyName, strDefault, strReturnedString, 261, strFileName)

    If lngRc1 < 1 Then Exit Function

    strReturnedString = Left(strReturnedString, lngRc1)

    lngRc2 = lngRc1
    strCheckBuff = Chr(0)
    lngRc1 = InStr(1, strReturnedString, strCheckBuff, vbTextCompare)

    If lngRc1 > 0 Then
        lngRc2 = lngRc1 - 1
        strReturnedString = Left(strReturnedString, lngRc2)
    End If

    fnGetValueFromIniFile = True

    Exit Function
LOCALERRORHANDLER:
End Function
'==============================================================================