----boundary-LibPST-iamunique-379732697_-_-
Content-type: text/plain
Hello Gerhard,
I get the same result with both procedures (User Name Error message).
You have to initialize the variable size with the length of the array.
Adding size := 40 after str:="", solves the problem.
Regards,
Juan Antonio
----- Original Message -----
From: <Gerhard.Marent{([at]})nowhere.xy
To: <blackbox{([at]})nowhere.xy
Sent: Tuesday, May 20, 2003 4:34 PM
Subject: Untagged Arrays
Hello Blackbox Users,
when I tried to use WinApi.GetUsername I found a strange behavior which I
can not explain.
The two versions of Procedure Run of the module TestWin differ only in a
superfluous local
variable h: SHORTINT in the second version but the result is different.
I suppose that the effect comes from the untagged array in the WinApi
procedure which I don't
use the right way. But what would be correct?
For your help, thanks in advance.
Gerhard Marent
E-Mail: gerhard.marent{([at]})nowhere.xy
MODULE TestWin;
IMPORT SYSTEM, Strings, WinApi, Out, Dialog;
PROCEDURE Run1*;
VAR str0: ARRAY [untagged] 40 OF SHORTCHAR; str: Dialog.String; size, i:
INTEGER;
BEGIN
str0 := "";
IF WinApi.GetUserName (str0, size) # 0 THEN
FOR i := 0 TO size DO str[i] := LONG(str0[i]); END;
Out.String(str); Out.Ln;
ELSE
Dialog.Beep; Dialog.ShowMsg("User Name Error");
END;
END Run1;
PROCEDURE Run2*;
VAR str0: ARRAY [untagged] 40 OF SHORTCHAR; str: Dialog.String; h: SHORTINT;
size, i: INTEGER;
BEGIN
str0 := "";
IF WinApi.GetUserName (str0, size) # 0 THEN
FOR i := 0 TO size DO str[i] := LONG(str0[i]); END;
Out.String(str); Out.Ln;
ELSE
Dialog.Beep; Dialog.ShowMsg("User Name Error");
END;
END Run2;
END TestWin.
--------------------------------------------
To unsubscribe from this mailing list, send a message containing the word
"unsubscribe" to:
blackbox-request{([at]})nowhere.xy
To get a list of valid e-mail commands and instructions on their usage, send
a message containing the word "help" to the above address.
Send any problem reports or questions related to this email list to the list
owner at
owner-blackbox{([at]})nowhere.xy
Current posting policy:
a) To post you should use the same address by which you are subscribed to
the mailing list. That way, the list server will recognize you as subscriber
and forward your posting immediately, without creating any overhead.
b) If, for some reason, you cannot post from the address, by which you are
subscribed, your message will be moderated to avoid spam. Please understand
that moderation will often cause some delay, in particular over weekends or
holydays.
--------------------------------------------
To unsubscribe from this mailing list, send a message containing the word "unsubscribe" to:
blackbox-request{([at]})nowhere.xy
To get a list of valid e-mail commands and instructions on their usage, send a message containing the word "help" to the above address.
Send any problem reports or questions related to this email list to the list owner at
owner-blackbox{([at]})nowhere.xy
Current posting policy:
a) To post you should use the same address by which you are subscribed to the mailing list. That way, the list server will recognize you as subscriber and forward your posting immediately, without creating any overhead.
b) If, for some reason, you cannot post from the address, by which you are subscribed, your message will be moderated to avoid spam. Please understand that moderation will often cause some delay, in particular over weekends or holydays.
----boundary-LibPST-iamunique-379732697_-_-
Content-type: application/rtf
Content-transfer-encoding: base64
Content-Disposition: attachment; filename="rtf-body.rtf"
e1xydGYxXGFuc2lcYW5zaWNwZzEyNTJcZnJvbXRleHQgXGRlZmYwe1xmb250dGJsDQp7XGYwXGZz
d2lzcyBBcmlhbDt9DQp7XGYxXGZtb2Rlcm4gQ291cmllciBOZXc7fQ0Ke1xmMlxmbmlsXGZjaGFy
c2V0MiBTeW1ib2w7fQ0Ke1xmM1xmbW9kZXJuXGZjaGFyc2V0MCBDb3VyaWVyIE5ldzt9fQ0Ke1xj
b2xvcnRibFxyZWQwXGdyZWVuMFxibHVlMDtccmVkMFxncmVlbjBcYmx1ZTI1NTt9DQpcdWMxXHBh
cmRccGxhaW5cZGVmdGFiMzYwIFxmMFxmczIwIEhlbGxvIEdlcmhhcmQsXHBhcg0KXHBhcg0KSSBn
ZXQgdGhlIHNhbWUgcmVzdWx0IHdpdGggYm90aCBwcm9jZWR1cmVzIChVc2VyIE5hbWUgRXJyb3Ig
bWVzc2FnZSkuXHBhcg0KWW91IGhhdmUgdG8gaW5pdGlhbGl6ZSB0aGUgdmFyaWFibGUgc2l6ZSB3
aXRoIHRoZSBsZW5ndGggb2YgdGhlIGFycmF5LlxwYXINCkFkZGluZyBzaXplIDo9IDQwIGFmdGVy
IHN0cjo9IiIsIHNvbHZlcyB0aGUgcHJvYmxlbS5ccGFyDQpccGFyDQpSZWdhcmRzLFxwYXINCkp1
YW4gQW50b25pb1xwYXINClxwYXINCi0tLS0tIE9yaWdpbmFsIE1lc3NhZ2UgLS0tLS1ccGFyDQpG
cm9tOiA8R2VyaGFyZC5NYXJlbnRAdmt3LmF0PlxwYXINClRvOiA8YmxhY2tib3hAb2Jlcm9uLmNo
PlxwYXINClNlbnQ6IFR1ZXNkYXksIE1heSAyMCwgMjAwMyA0OjM0IFBNXHBhcg0KU3ViamVjdDog
VW50YWdnZWQgQXJyYXlzXHBhcg0KXHBhcg0KXHBhcg0KSGVsbG8gQmxhY2tib3ggVXNlcnMsXHBh
cg0KXHBhcg0Kd2hlbiBJIHRyaWVkIHRvIHVzZSBXaW5BcGkuR2V0VXNlcm5hbWUgSSBmb3VuZCBh
IHN0cmFuZ2UgYmVoYXZpb3Igd2hpY2ggSVxwYXINCmNhbiBub3QgZXhwbGFpbi5ccGFyDQpUaGUg
dHdvIHZlcnNpb25zIG9mIFByb2NlZHVyZSBSdW4gb2YgdGhlIG1vZHVsZSBUZXN0V2luIGRpZmZl
ciBvbmx5IGluIGFccGFyDQpzdXBlcmZsdW91cyBsb2NhbFxwYXINCnZhcmlhYmxlIGg6IFNIT1JU
SU5UIGluIHRoZSBzZWNvbmQgdmVyc2lvbiBidXQgdGhlIHJlc3VsdCBpcyBkaWZmZXJlbnQuXHBh
cg0KXHBhcg0KSSBzdXBwb3NlIHRoYXQgdGhlIGVmZmVjdCBjb21lcyBmcm9tIHRoZSB1bnRhZ2dl
ZCBhcnJheSBpbiB0aGUgV2luQXBpXHBhcg0KcHJvY2VkdXJlIHdoaWNoIEkgZG9uJ3RccGFyDQp1
c2UgdGhlIHJpZ2h0IHdheS4gQnV0IHdoYXQgd291bGQgYmUgY29ycmVjdD9ccGFyDQpccGFyDQpG
b3IgeW91ciBoZWxwLCB0aGFua3MgaW4gYWR2YW5jZS5ccGFyDQpccGFyDQpHZXJoYXJkIE1hcmVu
dFxwYXINClxwYXINCkUtTWFpbDogZ2VyaGFyZC5tYXJlbnRAdmt3LmF0XHBhcg0KXHBhcg0KXHBh
cg0KXHBhcg0KXHBhcg0KTU9EVUxFIFRlc3RXaW47XHBhcg0KXHBhcg0KSU1QT1JUIFNZU1RFTSwg
U3RyaW5ncywgV2luQXBpLCBPdXQsIERpYWxvZztccGFyDQpccGFyDQpccGFyDQpQUk9DRURVUkUg
UnVuMSo7XHBhcg0KVkFSIHN0cjA6IEFSUkFZIFt1bnRhZ2dlZF0gNDAgT0YgU0hPUlRDSEFSOyBz
dHI6IERpYWxvZy5TdHJpbmc7IHNpemUsIGk6XHBhcg0KSU5URUdFUjtccGFyDQpCRUdJTlxwYXIN
CnN0cjAgOj0gIiI7XHBhcg0KSUYgV2luQXBpLkdldFVzZXJOYW1lIChzdHIwLCBzaXplKSAjIDAg
VEhFTlxwYXINCkZPUiBpIDo9IDAgVE8gc2l6ZSBETyBzdHJbaV0gOj0gTE9ORyhzdHIwW2ldKTsg
RU5EO1xwYXINCk91dC5TdHJpbmcoc3RyKTsgT3V0LkxuO1xwYXINCkVMU0VccGFyDQpEaWFsb2cu
QmVlcDsgRGlhbG9nLlNob3dNc2coIlVzZXIgTmFtZSBFcnJvciIpO1xwYXINCkVORDtccGFyDQpF
TkQgUnVuMTtccGFyDQpccGFyDQpQUk9DRURVUkUgUnVuMio7XHBhcg0KVkFSIHN0cjA6IEFSUkFZ
IFt1bnRhZ2dlZF0gNDAgT0YgU0hPUlRDSEFSOyBzdHI6IERpYWxvZy5TdHJpbmc7IGg6IFNIT1JU
SU5UO1xwYXINCnNpemUsIGk6IElOVEVHRVI7XHBhcg0KQkVHSU5ccGFyDQpzdHIwIDo9ICIiO1xw
YXINCklGIFdpbkFwaS5HZXRVc2VyTmFtZSAoc3RyMCwgc2l6ZSkgIyAwIFRIRU5ccGFyDQpGT1Ig
aSA6PSAwIFRPIHNpemUgRE8gc3RyW2ldIDo9IExPTkcoc3RyMFtpXSk7IEVORDtccGFyDQpPdXQu
U3RyaW5nKHN0cik7IE91dC5MbjtccGFyDQpFTFNFXHBhcg0KRGlhbG9nLkJlZXA7IERpYWxvZy5T
aG93TXNnKCJVc2VyIE5hbWUgRXJyb3IiKTtccGFyDQpFTkQ7XHBhcg0KRU5EIFJ1bjI7XHBhcg0K
XHBhcg0KRU5EIFRlc3RXaW4uXHBhcg0KLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0t
LS0tLS0tLS0tLS1ccGFyDQpccGFyDQpUbyB1bnN1YnNjcmliZSBmcm9tIHRoaXMgbWFpbGluZyBs
aXN0LCBzZW5kIGEgbWVzc2FnZSBjb250YWluaW5nIHRoZSB3b3JkXHBhcg0KInVuc3Vic2NyaWJl
IiB0bzpccGFyDQogICBibGFja2JveC1yZXF1ZXN0QG9iZXJvbi5jaFxwYXINClxwYXINClRvIGdl
dCBhIGxpc3Qgb2YgdmFsaWQgZS1tYWlsIGNvbW1hbmRzIGFuZCBpbnN0cnVjdGlvbnMgb24gdGhl
aXIgdXNhZ2UsIHNlbmRccGFyDQphIG1lc3NhZ2UgY29udGFpbmluZyB0aGUgd29yZCAiaGVscCIg
dG8gdGhlIGFib3ZlIGFkZHJlc3MuXHBhcg0KXHBhcg0KU2VuZCBhbnkgcHJvYmxlbSByZXBvcnRz
IG9yIHF1ZXN0aW9ucyByZWxhdGVkIHRvIHRoaXMgZW1haWwgbGlzdCB0byB0aGUgbGlzdFxwYXIN
Cm93bmVyIGF0XHBhcg0KICAgb3duZXItYmxhY2tib3hAb2Jlcm9uLmNoXHBhcg0KXHBhcg0KQ3Vy
cmVudCBwb3N0aW5nIHBvbGljeTpccGFyDQpccGFyDQphKSBUbyBwb3N0IHlvdSBzaG91bGQgdXNl
IHRoZSBzYW1lIGFkZHJlc3MgYnkgd2hpY2ggeW91IGFyZSBzdWJzY3JpYmVkIHRvXHBhcg0KdGhl
IG1haWxpbmcgbGlzdC4gVGhhdCB3YXksIHRoZSBsaXN0IHNlcnZlciB3aWxsIHJlY29nbml6ZSB5
b3UgYXMgc3Vic2NyaWJlclxwYXINCmFuZCBmb3J3YXJkIHlvdXIgcG9zdGluZyBpbW1lZGlhdGVs
eSwgd2l0aG91dCBjcmVhdGluZyBhbnkgb3ZlcmhlYWQuXHBhcg0KXHBhcg0KYikgSWYsIGZvciBz
b21lIHJlYXNvbiwgeW91IGNhbm5vdCBwb3N0IGZyb20gdGhlIGFkZHJlc3MsIGJ5IHdoaWNoIHlv
dSBhcmVccGFyDQpzdWJzY3JpYmVkLCB5b3VyIG1lc3NhZ2Ugd2lsbCBiZSBtb2RlcmF0ZWQgdG8g
YXZvaWQgc3BhbS4gUGxlYXNlIHVuZGVyc3RhbmRccGFyDQp0aGF0IG1vZGVyYXRpb24gd2lsbCBv
ZnRlbiBjYXVzZSBzb21lIGRlbGF5LCBpbiBwYXJ0aWN1bGFyIG92ZXIgd2Vla2VuZHMgb3JccGFy
DQpob2x5ZGF5cy5ccGFyDQpccGFyDQotLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0t
LS0tLS0tLS0tLVxwYXINClxwYXINClRvIHVuc3Vic2NyaWJlIGZyb20gdGhpcyBtYWlsaW5nIGxp
c3QsIHNlbmQgYSBtZXNzYWdlIGNvbnRhaW5pbmcgdGhlIHdvcmQgInVuc3Vic2NyaWJlIiB0bzpc
cGFyDQogICBibGFja2JveC1yZXF1ZXN0QG9iZXJvbi5jaFxwYXINClxwYXINClRvIGdldCBhIGxp
c3Qgb2YgdmFsaWQgZS1tYWlsIGNvbW1hbmRzIGFuZCBpbnN0cnVjdGlvbnMgb24gdGhlaXIgdXNh
Z2UsIHNlbmQgYSBtZXNzYWdlIGNvbnRhaW5pbmcgdGhlIHdvcmQgImhlbHAiIHRvIHRoZSBhYm92
ZSBhZGRyZXNzLlxwYXINClxwYXINClNlbmQgYW55IHByb2JsZW0gcmVwb3J0cyBvciBxdWVzdGlv
bnMgcmVsYXRlZCB0byB0aGlzIGVtYWlsIGxpc3QgdG8gdGhlIGxpc3Qgb3duZXIgYXRccGFyDQog
ICBvd25lci1ibGFja2JveEBvYmVyb24uY2hccGFyDQpccGFyDQpDdXJyZW50IHBvc3RpbmcgcG9s
aWN5OlxwYXINClxwYXINCmEpIFRvIHBvc3QgeW91IHNob3VsZCB1c2UgdGhlIHNhbWUgYWRkcmVz
cyBieSB3aGljaCB5b3UgYXJlIHN1YnNjcmliZWQgdG8gdGhlIG1haWxpbmcgbGlzdC4gVGhhdCB3
YXksIHRoZSBsaXN0IHNlcnZlciB3aWxsIHJlY29nbml6ZSB5b3UgYXMgc3Vic2NyaWJlciBhbmQg
Zm9yd2FyZCB5b3VyIHBvc3RpbmcgaW1tZWRpYXRlbHksIHdpdGhvdXQgY3JlYXRpbmcgYW55IG92
ZXJoZWFkLlxwYXINClxwYXINCmIpIElmLCBmb3Igc29tZSByZWFzb24sIHlvdSBjYW5ub3QgcG9z
dCBmcm9tIHRoZSBhZGRyZXNzLCBieSB3aGljaCB5b3UgYXJlIHN1YnNjcmliZWQsIHlvdXIgbWVz
c2FnZSB3aWxsIGJlIG1vZGVyYXRlZCB0byBhdm9pZCBzcGFtLiBQbGVhc2UgdW5kZXJzdGFuZCB0
aGF0IG1vZGVyYXRpb24gd2lsbCBvZnRlbiBjYXVzZSBzb21lIGRlbGF5LCBpbiBwYXJ0aWN1bGFy
IG92ZXIgd2Vla2VuZHMgb3IgfX0AIHN1YnNjcmliZWQsIA==
----boundary-LibPST-iamunique-379732697_-_---
Received on Tue May 20 2003 - 17:58:31 UTC