TheGameCreators - CodeBase - INI File Functions

Return to the CodeBase listing

Category: Functions

Version: 2.0

Information

Uploaded: 21st Oct 2003 21:15

Modified: 22nd Oct 2003 18:59

Author: Genesis Rage

Summary

Easily read and write .ini files, with no external .dll to download!

Full Description

Got this code from someone in the forums, changed some stuff around and added help files!<br /> <br /> Simply insert this code into your application, or save it as source code, and include it into your application. It uses a Windows .dll, so as long as you are using Windows there is nothing additional you or your user has to do!<br /> <br /> Developed for Win 2k and Win XP, and only tested on Win XP.

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

`Title: INI file functions

`Version: 2.0

`Developer: Unknown (re-coded by Genesis Rage)

`Date: 10-22-2003

`Email: ceo@genesisrage.com

`Web: http://genesisrage.com

`History:

`  2.0   code completely re-done, got from forums actually, just spreading the wealth!

`        and this also comes complete with help files... if you download the file!

`  1.3   fixed bug that would not return default value if key was not found

`  1.2   Optimized INI_ReadValue

`  1.1   Fixed bug, no longer searches after value has been found

`  1.0   Initial release (only read capabilities)

`Example Usage:

`  Return String = INI_ReadString("config","Section","Key","Default Value")

`  Return Integer or Float = INI_ReadInteger("config","Section","Key",1458)

`  INI_WriteSring("config","Section","Key","Value")

`  INI_WriteInteger("config","Section","Key",500)

`Info:

`  the file path is generated from you current directory 'get dir$()' so change directory if file

`  is located elsewhere. Do NOT change the FileName arguments in this code, Win 2k and Win XP must

`  have FULL PATH NAME to read or write the file.

`  You MUST load the DLL, either manually or by using 'InitialiseKernel32DLL()' function. The default

`  number in THIS code is '203' if you change it, make sure to update the rest of the code.

function InitialiseKernel32DLL()

load dll "kernel32.dll", 203

endfunction

function ShutdownKernel32DLL()

delete dll 203

endfunction

function INI_ReadInteger(FileName as string, Section as string, KeyName as string, Default as integer)

r as integer

r=val(INI_ReadString(FileName, Section, KeyName, str$(Default)))

endfunction r

function INI_WriteInteger(FileName as string, Section as string, KeyName as string, Value as integer)

INI_WriteString(FileName, Section, KeyName, str$(Value))

endfunction

function INI_ReadString(FileName as string, Section as string, KeyName as string, Default as string)

r as string

r=space$(1024)

FileName = get dir$() + "" + FileName + ".ini"

call dll 203, "GetPrivateProfileStringA", Section, KeyName, Default, r, len(r), FileName

endfunction r

function INI_WriteString(FileName as string, Section as string, KeyName as string, Value as string)

FileName = get dir$() + "" + FileName + ".ini"

call dll 203, "WritePrivateProfileStringA", Section, KeyName, Value, FileName

endfunction

Download

Please login to download

Comments

No comments yet.

Author Name:	Genesis Rage
CodeBase Entries:	1

CodeBase - INI File Functions

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments