Re: [BLACKBOX] Converters

From: Campbell, Robert (SELEX GALILEO, UK) <Robert.D.Campbell{([at]})nowhere.xy>
Date: Wed, 17 Sep 2008 13:37:59 +0100

----boundary-LibPST-iamunique-1462623374_-_-
Content-type: text/plain

Thanks Igor

I used the (*Horrible*) way from HostBitmaps, and it is working fine.

I agree that adding a routine:

PROCEDURE GetFileName*(f: Files.File; OUT name: ARRAY OF CHAR)

to HostFiles would be a much cleaner solution - what about this for 1.6
final Oms?

Cheers

Robert


PS: Helmut, I can't use your suggestion as I don't have the filename.

>> -----Original Message-----
>> From: BlackBox [mailto:BLACKBOX{([at]})nowhere.xy
>> Of igor_d{([at]})nowhere.xy
>> Sent: 17 September 2008 10:05

>> R> It there a way of finding a file's pathName?
>> Yes. But the way is horrible. See procedure HostBitmaps.ImportBitmap.
>>
>> PROCEDURE ImportBitmap* (f: Files.File; OUT s:
>> Stores.Store); TYPE Str = POINTER TO ARRAY [untagged] OF
>> CHAR; VAR name: Str; BEGIN
>> name := SYSTEM.VAL(Str, SYSTEM.VAL(INTEGER, f) + 40);
>>
>> The magic number 40 is the offset of the field 'name' in a
>> record of type HostFiles.File.
>>
>> R> Any suggestions?
>> I prefer to customise module HostFiles by adding a simple procedure.
>> PROCEDURE GetFileName*(f: Files.File; VAR name: ARRAY OF CHAR);

SELEX Sensors and Airborne Systems Limited
Registered Office: Sigma House, Christopher Martin Road, Basildon, Essex SS14 3EL
A company registered in England & Wales. Company no. 02426132
********************************************************************
This email and any attachments are confidential to the intended
recipient and may also be privileged. If you are not the intended
recipient please delete it from your system and notify the sender.
You should not copy it or use it for any purpose nor disclose or
distribute its contents to any other person.
********************************************************************

----
To unsubscribe, send a message with body "SIGNOFF BLACKBOX" to LISTSERV{([at]})nowhere.xy----boundary-LibPST-iamunique-1462623374_-_-
Content-type: application/rtf
Content-transfer-encoding: base64
Content-Disposition: attachment; filename="rtf-body.rtf"
e1xydGYxXGFuc2lcYW5zaWNwZzEyNTJcZnJvbXRleHQgXGRlZmYwe1xmb250dGJsDQp7XGYwXGZz
d2lzcyBBcmlhbDt9DQp7XGYxXGZtb2Rlcm4gQ291cmllciBOZXc7fQ0Ke1xmMlxmbmlsXGZjaGFy
c2V0MiBTeW1ib2w7fQ0Ke1xmM1xmbW9kZXJuXGZjaGFyc2V0MCBDb3VyaWVyIE5ldzt9fQ0Ke1xj
b2xvcnRibFxyZWQwXGdyZWVuMFxibHVlMDtccmVkMFxncmVlbjBcYmx1ZTI1NTt9DQpcdWMxXHBh
cmRccGxhaW5cZGVmdGFiMzYwIFxmMFxmczIwIFRoYW5rcyBJZ29yXHBhcg0KXHBhcg0KSSB1c2Vk
IHRoZSAoKkhvcnJpYmxlKikgd2F5IGZyb20gSG9zdEJpdG1hcHMsIGFuZCBpdCBpcyB3b3JraW5n
IGZpbmUuXHBhcg0KXHBhcg0KSSBhZ3JlZSB0aGF0IGFkZGluZyBhIHJvdXRpbmU6XHBhcg0KXHBh
cg0KUFJPQ0VEVVJFIEdldEZpbGVOYW1lKihmOiBGaWxlcy5GaWxlOyBPVVQgbmFtZTogQVJSQVkg
T0YgQ0hBUilccGFyDQpccGFyDQp0byBIb3N0RmlsZXMgd291bGQgYmUgYSBtdWNoIGNsZWFuZXIg
c29sdXRpb24gLSB3aGF0IGFib3V0IHRoaXMgZm9yIDEuNlxwYXINCmZpbmFsIE9tcz9ccGFyDQpc
cGFyDQpDaGVlcnNccGFyDQpccGFyDQpSb2JlcnRccGFyDQpccGFyDQpccGFyDQpQUzogSGVsbXV0
LCBJIGNhbid0IHVzZSB5b3VyIHN1Z2dlc3Rpb24gYXMgSSBkb24ndCBoYXZlIHRoZSBmaWxlbmFt
ZS4gXHBhcg0KXHBhcg0KPj4gLS0tLS1PcmlnaW5hbCBNZXNzYWdlLS0tLS1ccGFyDQo+PiBGcm9t
OiBCbGFja0JveCBbbWFpbHRvOkJMQUNLQk9YQExJU1RTLk9CRVJPTi5DSF0gT24gQmVoYWxmIFxw
YXINCj4+IE9mIGlnb3JfZEBwb2NodGEucnVccGFyDQo+PiBTZW50OiAxNyBTZXB0ZW1iZXIgMjAw
OCAxMDowNVxwYXINClxwYXINCj4+IFI+IEl0IHRoZXJlIGEgd2F5IG9mIGZpbmRpbmcgYSBmaWxl
J3MgcGF0aE5hbWU/XHBhcg0KPj4gWWVzLiBCdXQgdGhlIHdheSBpcyBob3JyaWJsZS4gU2VlIHBy
b2NlZHVyZSBIb3N0Qml0bWFwcy5JbXBvcnRCaXRtYXAuXHBhcg0KPj4gXHBhcg0KPj4gUFJPQ0VE
VVJFIEltcG9ydEJpdG1hcCogKGY6IEZpbGVzLkZpbGU7IE9VVCBzOiBccGFyDQo+PiBTdG9yZXMu
U3RvcmUpOyAgVFlQRSBTdHIgPSBQT0lOVEVSIFRPIEFSUkFZIFt1bnRhZ2dlZF0gT0YgXHBhcg0K
Pj4gQ0hBUjsgIFZBUiBuYW1lOiBTdHI7IEJFR0lOXHBhcg0KPj4gICBuYW1lIDo9IFNZU1RFTS5W
QUwoU3RyLCBTWVNURU0uVkFMKElOVEVHRVIsIGYpICsgNDApO1xwYXINCj4+IFxwYXINCj4+IFRo
ZSBtYWdpYyBudW1iZXIgNDAgaXMgdGhlIG9mZnNldCBvZiB0aGUgZmllbGQgJ25hbWUnIGluIGEg
XHBhcg0KPj4gcmVjb3JkIG9mIHR5cGUgSG9zdEZpbGVzLkZpbGUuXHBhcg0KPj4gXHBhcg0KPj4g
Uj4gQW55IHN1Z2dlc3Rpb25zP1xwYXINCj4+IEkgcHJlZmVyIHRvIGN1c3RvbWlzZSBtb2R1bGUg
SG9zdEZpbGVzIGJ5IGFkZGluZyBhIHNpbXBsZSBwcm9jZWR1cmUuXHBhcg0KPj4gUFJPQ0VEVVJF
IEdldEZpbGVOYW1lKihmOiBGaWxlcy5GaWxlOyBWQVIgbmFtZTogQVJSQVkgT0YgQ0hBUik7XHBh
cg0KXHBhcg0KU0VMRVggU2Vuc29ycyBhbmQgQWlyYm9ybmUgU3lzdGVtcyBMaW1pdGVkXHBhcg0K
UmVnaXN0ZXJlZCBPZmZpY2U6IFNpZ21hIEhvdXNlLCBDaHJpc3RvcGhlciBNYXJ0aW4gUm9hZCwg
QmFzaWxkb24sIEVzc2V4IFNTMTQgM0VMXHBhcg0KQSBjb21wYW55IHJlZ2lzdGVyZWQgaW4gRW5n
bGFuZCAmIFdhbGVzLiAgQ29tcGFueSBuby4gMDI0MjYxMzJccGFyDQoqKioqKioqKioqKioqKioq
KioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKlxwYXIN
ClRoaXMgZW1haWwgYW5kIGFueSBhdHRhY2htZW50cyBhcmUgY29uZmlkZW50aWFsIHRvIHRoZSBp
bnRlbmRlZFxwYXINCnJlY2lwaWVudCBhbmQgbWF5IGFsc28gYmUgcHJpdmlsZWdlZC4gSWYgeW91
IGFyZSBub3QgdGhlIGludGVuZGVkXHBhcg0KcmVjaXBpZW50IHBsZWFzZSBkZWxldGUgaXQgZnJv
bSB5b3VyIHN5c3RlbSBhbmQgbm90aWZ5IHRoZSBzZW5kZXIuXHBhcg0KWW91IHNob3VsZCBub3Qg
Y29weSBpdCBvciB1c2UgaXQgZm9yIGFueSBwdXJwb3NlIG5vciBkaXNjbG9zZSBvclxwYXINCmRp
c3RyaWJ1dGUgaXRzIGNvbnRlbnRzIHRvIGFueSBvdGhlciBwZXJzb24uXHBhcg0KKioqKioqKioq
KioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioq
KipccGFyDQpccGFyDQpccGFyDQotLS0tXHBhcg0KVG8gdW5zdWJzY3JpYmUsIHNlbmQgYSBtZXNz
YWdlIHdpdGggYm9keSAiU0lHTk9GRiBCTEFDS0JPWCIgdG8gTElTVFNFUlZATElTVFMuT0JFUk9O
LkNIfX0AbmFsQQ=
----boundary-LibPST-iamunique-1462623374_-_---

Received on Wed Sep 17 2008 - 14:37:59 UTC