archivos .ini

oscar
28 de Julio del 2004
como incluyo un archivo de configuracion (.ini) en un programa y como se lee el contenido

emilsonpineda
28 de Julio del 2004
para eso necesitaras usas DLLS o API de Window's

create un prg y ahi almacena estas funciones, luego en una linea del programa principal debes de poner este comando "set procedure to <nombre del PRG>"

*!***********************************************************************************
*!*
*!* Funciones utilizadas para manipular archivos INI
*!* Programador.: Marvin Emilson Pineda.
*!* Fecha.: Martes, 1 de Junio del 2004
*!*
*!***********************************************************************************

function LoadDLLFuncs()
local nHKey,cSubKey,nResult
local nKey,cValueName,nType,cData,nSizeData

*- Carga las DLL'S para manipular archivos INI
declare integer GetPrivateProfileString ;
in WIN32API ;
as GetINIFile ;
string cSection, ;
string cKey, ;
string cDefault, ;
string @cBuffer, ;
integer nBufSize, ;
string cINIFile

declare integer WritePrivateProfileString ;
in WIN32API ;
as WriteINIFile ;
string cSection, ;
string cKey, ;
string cValue, ;
string cINIFile

declare integer GetSysColor ;
in win32api ;
integer
endfunc

function GetINI(cSection,cEntry,cINIFile)
local cBuffer,nBufSize,cValue
if type("m.cINIFile") # "C" .or. empty(m.cINIFile)
m.cINIFile = sFileINI
endif
m.cBuffer = space(10)
m.nBufSize = ;
GetINIFile(m.cSection, ;
m.cEntry, ;
"", ;
@m.cBuffer, ;
len(m.cBuffer), ;
cINIFile)
if empty(m.nBufSize)
m.cValue = ""
else
m.cValue = left(m.cBuffer,m.nBufSize)
endif
return m.cValue
endfunc

function WriteINI(cSection,cEntry,cValue,cINIFile)
if type("m.cINIFile") # "C" .or. empty(m.cINIFile)
m.cINIFile = sFileINI
endif
return WriteINIFile(m.cSection,m.cEntry,m.cValue,cINIFile)
ENDFUNC


estas funciones utilizo yo en todas mis aplicaciones, cualquier duda no dudes en consultar