----boundary-LibPST-iamunique-3657229_-_-
Content-type: text/plain
> -----Original Message-----
> From: blackbox{([at]})nowhere.xy> Behalf Of Alexander Iljin
> Sent: Thursday, 30 November 2006 6:37 PM
> To: BlackBox Mailing List
> Subject: [BlackBox] - Settings
>
>
> Hello!
>
> Is there a standard way in BlackBox for keeping program's settings
> between runs?
> HostRegistry is not a good idea, because it is not portable.
> I'm talking about some sort of configuration files, like ini-files?
> Did anyone work with those? Do you have any modules of subsystems
> you could share?
>
Hi Alexander,
I don't know about a standard way for BlackBox but I've done some work
on this using GPCP and have designed a system that can be
interchangeable between Ini files and Registry keys. The following
snippet should give you a feel for how it works:
VAR
formHeight: IniFile.IntegerItem;
formTitle: IniFile.StringItem;
maximised: IniFile.BooleanItem;
list: IniFile.List;
BEGIN
NEW(list);
IniFile.Init(list, 'test.ini');
(* Associate INI file keys with program variables and default values
*)
list.AddInteger('Form Height', formHeight, 400);
list.AddString('Form Title', formTitle, 'Test Program');
list.AddBoolean('Maximised', maximised, TRUE);
(* Read the contents of the INI file and assign values to the program
variables *)
list.Load();
...
...
...
formHeight.value := formHeight.value + 20;
formTitle.value := formTitle.value + ' v1.0';
maximised.value := ~ maximised.value;
(* Write the updated values to the INI file *)
list.Save();
With the above code, if the initial IniFile, 'test.ini', had the
contents:
Form Height = 420
Maximised = FALSE
After executing the code the IniFile would have the contents:
Form Height = 440
Form Title = Test Program v1.0
Maximised = TRUE
It shouldn't take long to port it to BlackBox - it's mainly the text
file IO that would have to be translated. Let me know if you are
interested and I'll give it a go.
Chris Burrows
CFB Software
http://www.cfbsoftware.com/gpcp
--- BlackBox
--- send subject HELP or UNSUBSCRIBE to blackbox{([at]})nowhere.xy
----boundary-LibPST-iamunique-3657229_-_-
Content-type: application/rtf
Content-transfer-encoding: base64
Content-Disposition: attachment; filename="rtf-body.rtf"
e1xydGYxXGFuc2lcYW5zaWNwZzEyNTJcZnJvbXRleHQgXGRlZmYwe1xmb250dGJsDQp7XGYwXGZz
d2lzcyBBcmlhbDt9DQp7XGYxXGZtb2Rlcm4gQ291cmllciBOZXc7fQ0Ke1xmMlxmbmlsXGZjaGFy
c2V0MiBTeW1ib2w7fQ0Ke1xmM1xmbW9kZXJuXGZjaGFyc2V0MCBDb3VyaWVyIE5ldzt9fQ0Ke1xj
b2xvcnRibFxyZWQwXGdyZWVuMFxibHVlMDtccmVkMFxncmVlbjBcYmx1ZTI1NTt9DQpcdWMxXHBh
cmRccGxhaW5cZGVmdGFiMzYwIFxmMFxmczIwID4gLS0tLS1PcmlnaW5hbCBNZXNzYWdlLS0tLS1c
cGFyDQo+IEZyb206IGJsYWNrYm94QG9iZXJvbi5jaCBbbWFpbHRvOmJsYWNrYm94QG9iZXJvbi5j
aF0gT24gXHBhcg0KPiBCZWhhbGYgT2YgQWxleGFuZGVyIElsamluXHBhcg0KPiBTZW50OiBUaHVy
c2RheSwgMzAgTm92ZW1iZXIgMjAwNiA2OjM3IFBNXHBhcg0KPiBUbzogQmxhY2tCb3ggTWFpbGlu
ZyBMaXN0XHBhcg0KPiBTdWJqZWN0OiBbQmxhY2tCb3hdIC0gU2V0dGluZ3NccGFyDQo+IFxwYXIN
Cj4gXHBhcg0KPiBIZWxsbyFccGFyDQo+IFxwYXINCj4gICBJcyB0aGVyZSBhIHN0YW5kYXJkIHdh
eSBpbiBCbGFja0JveCBmb3Iga2VlcGluZyBwcm9ncmFtJ3Mgc2V0dGluZ3NccGFyDQo+ICAgYmV0
d2VlbiBydW5zP1xwYXINCj4gICBIb3N0UmVnaXN0cnkgaXMgbm90IGEgZ29vZCBpZGVhLCBiZWNh
dXNlIGl0IGlzIG5vdCBwb3J0YWJsZS5ccGFyDQo+ICAgSSdtIHRhbGtpbmcgYWJvdXQgc29tZSBz
b3J0IG9mIGNvbmZpZ3VyYXRpb24gZmlsZXMsIGxpa2UgaW5pLWZpbGVzP1xwYXINCj4gICBEaWQg
YW55b25lIHdvcmsgd2l0aCB0aG9zZT8gRG8geW91IGhhdmUgYW55IG1vZHVsZXMgb2Ygc3Vic3lz
dGVtc1xwYXINCj4gICB5b3UgY291bGQgc2hhcmU/XHBhcg0KPiBccGFyDQpccGFyDQpIaSBBbGV4
YW5kZXIsXHBhcg0KXHBhcg0KSSBkb24ndCBrbm93IGFib3V0IGEgc3RhbmRhcmQgd2F5IGZvciBC
bGFja0JveCBidXQgSSd2ZSBkb25lIHNvbWUgd29ya1xwYXINCm9uIHRoaXMgdXNpbmcgR1BDUCBh
bmQgaGF2ZSBkZXNpZ25lZCBhIHN5c3RlbSB0aGF0IGNhbiBiZVxwYXINCmludGVyY2hhbmdlYWJs
ZSBiZXR3ZWVuIEluaSBmaWxlcyBhbmQgUmVnaXN0cnkga2V5cy4gVGhlIGZvbGxvd2luZ1xwYXIN
CnNuaXBwZXQgc2hvdWxkIGdpdmUgeW91IGEgZmVlbCBmb3IgaG93IGl0IHdvcmtzOlxwYXINClxw
YXINClZBUlxwYXINCiAgZm9ybUhlaWdodDogSW5pRmlsZS5JbnRlZ2VySXRlbTtccGFyDQogIGZv
cm1UaXRsZTogSW5pRmlsZS5TdHJpbmdJdGVtO1xwYXINCiAgbWF4aW1pc2VkOiBJbmlGaWxlLkJv
b2xlYW5JdGVtO1xwYXINCiAgbGlzdDogSW5pRmlsZS5MaXN0O1xwYXINCiAgXHBhcg0KQkVHSU5c
cGFyDQogIE5FVyhsaXN0KTtccGFyDQogIEluaUZpbGUuSW5pdChsaXN0LCAndGVzdC5pbmknKTtc
cGFyDQpccGFyDQogICgqIEFzc29jaWF0ZSBJTkkgZmlsZSBrZXlzIHdpdGggcHJvZ3JhbSB2YXJp
YWJsZXMgYW5kIGRlZmF1bHQgdmFsdWVzXHBhcg0KKilccGFyDQogIGxpc3QuQWRkSW50ZWdlcign
Rm9ybSBIZWlnaHQnLCBmb3JtSGVpZ2h0LCA0MDApOyAgXHBhcg0KICBsaXN0LkFkZFN0cmluZygn
Rm9ybSBUaXRsZScsIGZvcm1UaXRsZSwgJ1Rlc3QgUHJvZ3JhbScpO1xwYXINCiAgbGlzdC5BZGRC
b29sZWFuKCdNYXhpbWlzZWQnLCBtYXhpbWlzZWQsIFRSVUUpO1xwYXINClxwYXINCiAgKCogUmVh
ZCB0aGUgY29udGVudHMgb2YgdGhlIElOSSBmaWxlIGFuZCBhc3NpZ24gdmFsdWVzIHRvIHRoZSBw
cm9ncmFtXHBhcg0KdmFyaWFibGVzICopXHBhcg0KICBsaXN0LkxvYWQoKTtccGFyDQouLi5ccGFy
DQouLi5ccGFyDQouLi5ccGFyDQogIGZvcm1IZWlnaHQudmFsdWUgOj0gZm9ybUhlaWdodC52YWx1
ZSArIDIwO1xwYXINCiAgZm9ybVRpdGxlLnZhbHVlIDo9IGZvcm1UaXRsZS52YWx1ZSArICcgdjEu
MCc7XHBhcg0KICBtYXhpbWlzZWQudmFsdWUgOj0gfiBtYXhpbWlzZWQudmFsdWU7XHBhcg0KXHBh
cg0KICAoKiBXcml0ZSB0aGUgdXBkYXRlZCB2YWx1ZXMgdG8gdGhlIElOSSBmaWxlICopXHBhcg0K
ICBsaXN0LlNhdmUoKTtccGFyDQpccGFyDQogXHBhcg0KV2l0aCB0aGUgYWJvdmUgY29kZSwgaWYg
dGhlIGluaXRpYWwgSW5pRmlsZSwgJ3Rlc3QuaW5pJywgaGFkIHRoZVxwYXINCmNvbnRlbnRzOlxw
YXINClxwYXINCiAgRm9ybSBIZWlnaHQgPSA0MjBccGFyDQogIE1heGltaXNlZCA9IEZBTFNFXHBh
cg0KXHBhcg0KQWZ0ZXIgZXhlY3V0aW5nIHRoZSBjb2RlIHRoZSBJbmlGaWxlIHdvdWxkIGhhdmUg
dGhlIGNvbnRlbnRzOlxwYXINClxwYXINCiAgRm9ybSBIZWlnaHQgPSA0NDBccGFyDQogIEZvcm0g
VGl0bGUgPSBUZXN0IFByb2dyYW0gdjEuMFxwYXINCiAgTWF4aW1pc2VkID0gVFJVRVxwYXINClxw
YXINCkl0IHNob3VsZG4ndCB0YWtlIGxvbmcgdG8gcG9ydCBpdCB0byBCbGFja0JveCAtIGl0J3Mg
bWFpbmx5IHRoZSB0ZXh0XHBhcg0KZmlsZSBJTyB0aGF0IHdvdWxkIGhhdmUgdG8gYmUgdHJhbnNs
YXRlZC4gTGV0IG1lIGtub3cgaWYgeW91IGFyZVxwYXINCmludGVyZXN0ZWQgYW5kIEknbGwgZ2l2
ZSBpdCBhIGdvLlxwYXINClxwYXINCkNocmlzIEJ1cnJvd3NccGFyDQpDRkIgU29mdHdhcmVccGFy
DQpodHRwOi8vd3d3LmNmYnNvZnR3YXJlLmNvbS9ncGNwXHBhcg0KXHBhcg0KLS0tIEJsYWNrQm94
XHBhcg0KLS0tIHNlbmQgc3ViamVjdCBIRUxQIG9yIFVOU1VCU0NSSUJFIHRvIGJsYWNrYm94QG9i
ZXJvbi5jaH19ABRhDJ4UYb6jEBk=
----boundary-LibPST-iamunique-3657229_-_---
Received on Sat Dec 09 2006 - 01:15:07 UTC