hi,
nachdem ich im Alaska Forum gesucht habe bin ich auf den "Fehler" gestossen :
Thomas (incorrectly IMHO) uses Var2Bin and Bin2Var to do this, BIT
they are special xBase functions, and anything converted with Var2Bin
starts with XB++, then some binary data, THIS IS NOT what we want in a
Registry Entry.
deshalb gibt es die Fehlermeldung
oError:args :
-> VALTYPE: C VALUE: ‗■·· ─···
oError:canDefault : N
oError:canRetry : N
oError:canSubstitute: J
oError:cargo : NIL
oError:description : Kein XPF-Format oder falsche Versionsnummer
oError:filename :
oError:genCode : 42
oError:operation : bin2Var
oError:osCode : 0
oError:severity : 2
oError:subCode : 1102
oError:subSystem : BASE
oError:thread : 1
oError:tries : 0
-----------------------------------------------------------------
CALLSTACK:
-----------------------------------------------------------------
Aufgerufen von XBPREG:GETVALUE(607)
also habe ich nun die XBTools Function
StrToHex() benutzt und siehe da habe ich meinen "String"
soweit so gut, aber nun muss ich das ja wieder in die "Structure" bringen ...
Code: Alles auswählen
local cTZI := l2bin(0)+; // LONG Bias; TZI _TimeZoneInfo 4 1- 4
space(64)+; // WCHAR StandardName[32]; 64 5- 68
replicate(W2bin(0),8)+;// SYSTEMTIME StandardDate; 16 69- 84
l2bin(0)+; // LONG StandardBias; 4 85- 88
space(64)+; // WCHAR DaylightName[ 32 ]; 64 89-152
replicate(W2bin(0),8)+;// SYSTEMTIME DaylightDate; 16 153-168
l2bin(0) // LONG DaylightBias; 4 169-172
// wir brauchen hiervon nur die 3 Bias !
bei
L2bin() bekomme ich ja 4 Zeichen zurück
Frage : wie bekomme ich nun meine "Hex" String a.) "zerlegt" und b.) nach "cBinary" ?
ich "denke" da an so was
Code: Alles auswählen
cTeil := SUBSTR(xHexString,1,4)
nNum := HEX2NUM(cTeil)
l2Bin(nNum)
oder liege ich das total falsch ?