- 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
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 !