Bonjour MOHAMEDORALL

>j'ais un code qui change la manier de prog.exe vous pouvez m'aider de changer
>merci

Désolé mais impossible de comprendre la question !
  un code qui mange ? la manière de prog.exe ?
Aider aquoi ? pourrais tu formuler une question complète, le contexte, la version de VFP utilisée....

Cordialement
Francis

Bonjour Mohamed
les fichier nécessaire au runtime de VFP8 :
http://fox.wikis.com/wc.dll?Wiki~VFP8RuntimeFiles~VFP
Cordialement

autre solution :p

FUNCTION RGB_to_Hexa(licolor as Integer) as string
LOCAL lcHexa
  lcHexa = RIGHT(TRANSFORM(licolor , "@0"),6)
RETURN SUBSTR(lcHexa,5,2) + SUBSTR(lcHexa,3,2) + SUBSTR(lcHexa,1,2)

Rectification dans la déclaration :
FUNCTION RBG_to_Hexa(licolor as Integer) as string

Bonjour,
Ton erreur repose sur le fait que tu considére que le nombre retourné par la fonction RGB() est un nombre qui correspondrait, une fois converti en hexa, a 3 octets dans l'ordre RGB,
or c'est l'inverse le poids fort c'est le B, donc BGR...
si tu veux transformer la valeur de RGB() en hexa RGB il te faut inverser les poids avant.

essayer avec cette fonction (surement optimisable :)


FUNCTION RBG_to_Hexa(licolor as Integer) as Integer
LOCAL lbR as Byte
LOCAL lbG as Byte
LOCAL lbB as Byte
  lbB = INT(licolor/256^2)
  licolor = licolor-lbB*256^2
  lbV = INT(licolor/256)
  licolor = licolor-lbV*256
  lbR = licolor
RETURN RIGHT(TRANSFORM(lbR*256^2+lbV*256+lbB, "@0"),6)

Puis je te proposer une version sans l'appel api :

* Code hexa en décimal
C_color = "FF00FF"
r = evaluate("0x"+substr(c_Color,1,2))
v = evaluate("0x"+substr(c_Color,3,2))
b = evaluate("0x"+substr(c_Color,5,2))
? r,v,b

* code décimal en hexa :
? right(TRANSFORM(r*256^2 + v*256 + b, "@0"),6)

Cordialement
Francis

si l'on pouvait décrypter MD5 .... : cela ne servirait plus a rien de crypter ... xD

Merci olivier
c'est simple et efficace.
Bravo

je propose que tu renseignes la même contrib sur www.atoutfox.org

cordialement
Francis

C'est Sympa !

Patrick,
super routine !
Pourrais tu mettre le source dans un fichier zip ?
cordialement
Francis