----boundary-LibPST-iamunique-554973902_-_-
Content-type: text/plain
P.S. If the resolution of GetSystemTime is acceptable to you, an alternative
to changing the definition of Blackbox Time is to use the existing BlackBox
function 'Services.Ticks'. Like GetSystemTime this is accurate to within
about 10-20 ms.
Chris Burrows
CFB Software
http://www.cfbsoftware.com/gpcp
> -----Original Message-----
> From: blackbox{([at]})nowhere.xy> Software
> Sent: Saturday, 16 April 2005 12:20 PM
> To: BlackBox Mailing List
> Subject: [BlackBox] - System time in BB
>
>
> Note that the accuracy of GetSystemTime at a resolution of tens of
> milliseconds or less is questionable. If you want more accurate
> timing than
> this investigate using Windows Multimedia Timer facilities. For an example
> of its use in Component Pascal look at the source code for the
> Blackbox Dev
> > Profiler tool.
>
> Chris Burrows
> CFB Software
> http://www.cfbsoftware.com
>
>
>
> > -----Original Message-----
> > From: blackbox{([at]})nowhere.xy> > skulski{([at]})nowhere.xy> > Sent: Saturday, 16 April 2005 3:13 AM
> > To: BlackBox Mailing List
> > Subject: [BlackBox] - System time in BB
> >
> >
> > Dear OMS:
> >
> > I suggest to provide the millisecond time field in future
> BlackBox 1.5.
> > Namely, I suggest to change Dates.Time from
> >
> > Time* = RECORD
> > hour*, minute*, second*: INTEGER (*BB 1.4 and 1.5 beta *)
> > END;
> >
> > to
> >
> > Time* = RECORD
> > hour*, minute*, second*, millisecond*: INTEGER (*BB 1.5 *)
> > END;
> >
> > The Windows system procedure KERNEL32.GetSystemTime provides this
> > information.
> >
> > Motivation: in data logging applications the one-second
> resolution is not
> > good enough.
> >
> > For the CookBook: I am now implementing the millisecond timer,
> and I will
> > send a HowTo message to the CookBook when I am done.
> >
> > Thanks,
> >
> > W.
> >
> > --- BlackBox
> > --- send subject HELP or UNSUBSCRIBE to blackbox{([at]})nowhere.xy> >
> >
> >
>
> --- BlackBox
> --- send subject HELP or UNSUBSCRIBE to blackbox{([at]})nowhere.xy>
>
--- BlackBox
--- send subject HELP or UNSUBSCRIBE to blackbox{([at]})nowhere.xy
----boundary-LibPST-iamunique-554973902_-_-
Content-type: application/rtf
Content-transfer-encoding: base64
Content-Disposition: attachment; filename="rtf-body.rtf"
e1xydGYxXGFuc2lcYW5zaWNwZzEyNTJcZnJvbXRleHQgXGRlZmYwe1xmb250dGJsDQp7XGYwXGZz
d2lzcyBBcmlhbDt9DQp7XGYxXGZtb2Rlcm4gQ291cmllciBOZXc7fQ0Ke1xmMlxmbmlsXGZjaGFy
c2V0MiBTeW1ib2w7fQ0Ke1xmM1xmbW9kZXJuXGZjaGFyc2V0MCBDb3VyaWVyIE5ldzt9fQ0Ke1xj
b2xvcnRibFxyZWQwXGdyZWVuMFxibHVlMDtccmVkMFxncmVlbjBcYmx1ZTI1NTt9DQpcdWMxXHBh
cmRccGxhaW5cZGVmdGFiMzYwIFxmMFxmczIwIFAuUy4gSWYgdGhlIHJlc29sdXRpb24gb2YgR2V0
U3lzdGVtVGltZSBpcyBhY2NlcHRhYmxlIHRvIHlvdSwgYW4gYWx0ZXJuYXRpdmVccGFyDQp0byBj
aGFuZ2luZyB0aGUgZGVmaW5pdGlvbiBvZiBCbGFja2JveCBUaW1lIGlzIHRvIHVzZSB0aGUgZXhp
c3RpbmcgQmxhY2tCb3hccGFyDQpmdW5jdGlvbiAnU2VydmljZXMuVGlja3MnLiBMaWtlIEdldFN5
c3RlbVRpbWUgdGhpcyBpcyBhY2N1cmF0ZSB0byB3aXRoaW5ccGFyDQphYm91dCAxMC0yMCBtcy5c
cGFyDQpccGFyDQpDaHJpcyBCdXJyb3dzXHBhcg0KQ0ZCIFNvZnR3YXJlXHBhcg0KaHR0cDovL3d3
dy5jZmJzb2Z0d2FyZS5jb20vZ3BjcFxwYXINClxwYXINClxwYXINCj4gLS0tLS1PcmlnaW5hbCBN
ZXNzYWdlLS0tLS1ccGFyDQo+IEZyb206IGJsYWNrYm94QG9iZXJvbi5jaCBbbWFpbHRvOmJsYWNr
Ym94QG9iZXJvbi5jaF1PbiBCZWhhbGYgT2YgQ0ZCXHBhcg0KPiBTb2Z0d2FyZVxwYXINCj4gU2Vu
dDogU2F0dXJkYXksIDE2IEFwcmlsIDIwMDUgMTI6MjAgUE1ccGFyDQo+IFRvOiBCbGFja0JveCBN
YWlsaW5nIExpc3RccGFyDQo+IFN1YmplY3Q6IFtCbGFja0JveF0gLSBTeXN0ZW0gdGltZSBpbiBC
QlxwYXINCj5ccGFyDQo+XHBhcg0KPiBOb3RlIHRoYXQgdGhlIGFjY3VyYWN5IG9mIEdldFN5c3Rl
bVRpbWUgYXQgYSByZXNvbHV0aW9uIG9mIHRlbnMgb2ZccGFyDQo+IG1pbGxpc2Vjb25kcyBvciBs
ZXNzIGlzIHF1ZXN0aW9uYWJsZS4gSWYgeW91IHdhbnQgbW9yZSBhY2N1cmF0ZVxwYXINCj4gdGlt
aW5nIHRoYW5ccGFyDQo+IHRoaXMgaW52ZXN0aWdhdGUgdXNpbmcgV2luZG93cyBNdWx0aW1lZGlh
IFRpbWVyIGZhY2lsaXRpZXMuIEZvciBhbiBleGFtcGxlXHBhcg0KPiBvZiBpdHMgdXNlIGluIENv
bXBvbmVudCBQYXNjYWwgbG9vayBhdCB0aGUgc291cmNlIGNvZGUgZm9yIHRoZVxwYXINCj4gQmxh
Y2tib3ggRGV2XHBhcg0KPiA+IFByb2ZpbGVyIHRvb2wuXHBhcg0KPlxwYXINCj4gQ2hyaXMgQnVy
cm93c1xwYXINCj4gQ0ZCIFNvZnR3YXJlXHBhcg0KPiBodHRwOi8vd3d3LmNmYnNvZnR3YXJlLmNv
bVxwYXINCj5ccGFyDQo+XHBhcg0KPlxwYXINCj4gPiAtLS0tLU9yaWdpbmFsIE1lc3NhZ2UtLS0t
LVxwYXINCj4gPiBGcm9tOiBibGFja2JveEBvYmVyb24uY2ggW21haWx0bzpibGFja2JveEBvYmVy
b24uY2hdT24gQmVoYWxmIE9mXHBhcg0KPiA+IHNrdWxza2lAcGFzLnJvY2hlc3Rlci5lZHVccGFy
DQo+ID4gU2VudDogU2F0dXJkYXksIDE2IEFwcmlsIDIwMDUgMzoxMyBBTVxwYXINCj4gPiBUbzog
QmxhY2tCb3ggTWFpbGluZyBMaXN0XHBhcg0KPiA+IFN1YmplY3Q6IFtCbGFja0JveF0gLSBTeXN0
ZW0gdGltZSBpbiBCQlxwYXINCj4gPlxwYXINCj4gPlxwYXINCj4gPiBEZWFyIE9NUzpccGFyDQo+
ID5ccGFyDQo+ID4gICBJIHN1Z2dlc3QgdG8gcHJvdmlkZSB0aGUgbWlsbGlzZWNvbmQgdGltZSBm
aWVsZCBpbiBmdXR1cmVccGFyDQo+IEJsYWNrQm94IDEuNS5ccGFyDQo+ID4gTmFtZWx5LCBJIHN1
Z2dlc3QgdG8gY2hhbmdlIERhdGVzLlRpbWUgZnJvbVxwYXINCj4gPlxwYXINCj4gPiAgIFRpbWUq
ID0gUkVDT1JEXHBhcg0KPiA+ICAgICBob3VyKiwgbWludXRlKiwgc2Vjb25kKjogSU5URUdFUiAg
ICgqQkIgMS40IGFuZCAxLjUgYmV0YSAqKVxwYXINCj4gPiAgIEVORDtccGFyDQo+ID5ccGFyDQo+
ID4gdG9ccGFyDQo+ID5ccGFyDQo+ID4gICBUaW1lKiA9IFJFQ09SRFxwYXINCj4gPiAgICAgaG91
ciosIG1pbnV0ZSosIHNlY29uZCosIG1pbGxpc2Vjb25kKjogSU5URUdFUiAgICgqQkIgMS41ICop
XHBhcg0KPiA+ICAgRU5EO1xwYXINCj4gPlxwYXINCj4gPiBUaGUgV2luZG93cyBzeXN0ZW0gcHJv
Y2VkdXJlIEtFUk5FTDMyLkdldFN5c3RlbVRpbWUgcHJvdmlkZXMgdGhpc1xwYXINCj4gPiBpbmZv
cm1hdGlvbi5ccGFyDQo+ID5ccGFyDQo+ID4gTW90aXZhdGlvbjogaW4gZGF0YSBsb2dnaW5nIGFw
cGxpY2F0aW9ucyB0aGUgb25lLXNlY29uZFxwYXINCj4gcmVzb2x1dGlvbiBpcyBub3RccGFyDQo+
ID4gZ29vZCBlbm91Z2guXHBhcg0KPiA+XHBhcg0KPiA+IEZvciB0aGUgQ29va0Jvb2s6IEkgYW0g
bm93IGltcGxlbWVudGluZyB0aGUgbWlsbGlzZWNvbmQgdGltZXIsXHBhcg0KPiBhbmQgSSB3aWxs
XHBhcg0KPiA+IHNlbmQgYSBIb3dUbyBtZXNzYWdlIHRvIHRoZSBDb29rQm9vayB3aGVuIEkgYW0g
ZG9uZS5ccGFyDQo+ID5ccGFyDQo+ID4gVGhhbmtzLFxwYXINCj4gPlxwYXINCj4gPiBXLlxwYXIN
Cj4gPlxwYXINCj4gPiAtLS0gQmxhY2tCb3hccGFyDQo+ID4gLS0tIHNlbmQgc3ViamVjdCBIRUxQ
IG9yIFVOU1VCU0NSSUJFIHRvIGJsYWNrYm94QG9iZXJvbi5jaFxwYXINCj4gPlxwYXINCj4gPlxw
YXINCj4gPlxwYXINCj5ccGFyDQo+IC0tLSBCbGFja0JveFxwYXINCj4gLS0tIHNlbmQgc3ViamVj
dCBIRUxQIG9yIFVOU1VCU0NSSUJFIHRvIGJsYWNrYm94QG9iZXJvbi5jaFxwYXINCj5ccGFyDQo+
XHBhcg0KXHBhcg0KLS0tIEJsYWNrQm94XHBhcg0KLS0tIHNlbmQgc3ViamVjdCBIRUxQIG9yIFVO
U1VCU0NSSUJFIHRvIGJsYWNrYm94QG9iZXJvbi5jaFxwYXINCn19AFZlcnM=
----boundary-LibPST-iamunique-554973902_-_---
Received on Sun Apr 17 2005 - 05:14:25 UTC