FiveTech Software tech support forums

Antonio Linares wrote:Marc,

It fails because the field "hexcode" is type char and you are assigning it a nil value:

aadd( aMail ,{ cdd, If( cHex == nil, "", cHex ) } )

Indeed... This solved my problem and i think other problems I had before also. Never thinking of a NIL value..

Thank You !!

Marc,

It fails because the field "hexcode" is type char and you are assigning it a nil value:

aadd( aMail ,{ cdd, If( cHex == nil, "", cHex ) } )

Antonio Linares wrote:Marc,

fields assignment must use ":="

shopcolor->kleuren := cKleur
shopcolor->hexcode := Chex

Same error...

Enrico Maria Giordano wrote:

Antonio Linares wrote:Marc,

fields assignment must use ":="

shopcolor->kleuren := cKleur
shopcolor->hexcode := Chex

It's not true. In that context, the two operators = and := are equivalent.

EMG

Enrico,

It works because the alias is specified. Remove the alias and it will fail.

Antonio Linares wrote:Marc,

fields assignment must use ":="

shopcolor->kleuren := cKleur
shopcolor->hexcode := Chex

It's not true. In that context, the two operators = and := are equivalent.

EMG

Marc,

fields assignment must use ":="

shopcolor->kleuren := cKleur
shopcolor->hexcode := Chex

The difference is this: Windows COLORREF constants, when expressed in hex are 0xBBGGRR If we have such a color string "BBGGRR" then nHex( cHex ) or HEXTONUM( cHex ) would convert the hex string to numeric value. Mostly in web and other platforms colors are expressed as "#RRGGBB" ...

There is also:

function nHex( cHex ) --> nValue

NTOC( nInteger ( or cHex ), ; nBase, ; // 2 to 36. Default 10 nLength, ; cPadChar ) // default Space. nBase (also known as RADIX in math) is for Binary : 2, Octal : 8, Decimal : 10, Hex : 16. We can also choose any other number. Example ...

I have theese routines written by Badara (an old fivewin user). I hope they fulfil your needs. FUNCTION StrToBase64( cTexte ) LOCAL X, cHex, cTexte64 := "" DO WHILE !( cTexte == "" ) cHex := "" FOR X := 1 TO 3 cHex += CarToBin( LEFT(cTexte, 1) ) IF LEN(cTexte) ...

... SetAtLike([<nNewMode>],[<cWildCard>])->nOldMode SetBit(<nInteger>|<cHex>,[<nBitPos,...>])->nInteger SetBlink([<lToggle>])->lCurrentSetting SetCancel([<lOnOff>])->lOldSetting SetClearA([<xColor>])->cNull ...

... SetAtLike([<nNewMode>],[<cWildCard>])->nOldMode SetBit(<nInteger>|<cHex>,[<nBitPos,...>])->nInteger SetBlink([<lToggle>])->lCurrentSetting SetCancel([<lOnOff>])->lOldSetting SetClearA([<xColor>])->cNull ...

... CheckSum(<cString>)->nCheckSum Chr(<nCode>)->cChar ClearBit(<nInteger>|<cHex>,[<nBitPos,...>])->nNewValue ClearEol([<nRow>],[<nCol>],[<xColor>],[<xChar>])->cNull ClearSlow(<nDelay>,[<nTop>],[<nLeft>],[<nBottom>],[<nRight>],[<xChar>])->cNull ...

... convirtiendo el valor decimal primero a Hexadecimal con la funcion de Harbour NumToHex(nDecimal), luego usa la funcion siguiente: HexToBinary(cHex) FUNCTION HexToBinary(cHex)    LOCAL nLenBin, nX, nPos, cBinNumber, cCharHex, cBinBase    aHexBinary  := {    {"0",  ...

... * Le '=' (65e caractère) est utilisé dans le processus de codage pour les caractères finaux. LOCAL cTexte64 := "" LOCAL X LOCAL cHex DO WHILE !( cTexte == "" ) cHex := "" * Le processus de codage représente des groupes de 24 bits de données en entrée par une ...