Using INI file to Visual Foxpro Applications

Ada banyak cara untuk menyimpan variabel-variabel yang digunakan dalam pembuatan program. Saya ambil beberapa contoh sebagai berikut :

• Penggunaan file MEM (dengan perintah save to file_name)
• Penggunaan memo dalam file DBF (informasi berupa array)
• Penggunaan Registry windows
• Penggunaan file INI (ini yang akan saya bahas

Buatlah 2 function, sbb (silahkan copy paste listing berikut) :

PROCEDURE WritePrivStr(tcSection, tcKey, tcValue, tcINIFile)
DECLARE INTEGER WritePrivateProfileString IN Win32API String cSection, String cKey, String cValue, String cINIFile
WritePrivateProfileString(tcSection, tcKey, RTRIM(tcValue), tcINIFile)
RETURN

FUNCTION GetPrivStr(tcSection, tcKey, tcINIFile)
LOCAL lcBuffer
DECLARE INTEGER GetPrivateProfileString IN Win32API ;
String cSection, String cKey, String cDefault, String @cBuffer, Integer nBufferSize, String cINIFile
lcBuffer = SPACE(255)
GetPrivateProfileString(tcSection, tcKey, 'nggak ada', @lcBuffer, LEN(lcBuffer), tcINIFile)
lcBuffer = LEFT(lcBuffer, LEN(RTRIM(lcBuffer))-1)
RETURN RTRIM(lcBuffer)

Penggunaannya adalah sebagai berikut :

pastikan file INI yang digunakan ditempatkan 1 folder dengan aplikasi, jika tidak silahkan sesuaikan sendiri source codenya.

Untuk memanggil variabel, ketik syntax berikut (sesuaikan!)
cIniFile = FULLPATH('config.ini')
cHasil = GetPrivStr('Setup2','TEST1',cIniFile)

Untuk mengganti/menyimpan variabel dengan variabel yang baru, ketik syntax berikut!
WritePrivStr('Setup2','TEST1','hacked',cIniFile)

Silahkan mencoba, semoga bermanfaat !