WDForge.org - Forums

Re: MySQL, Champ Binaire et Export

Sujet: Re: MySQL, Champ Binaire et Export
par daniel sur 7/6/2007 14:25:12

Si le problème vient uniquement des caractères 0, il suffit de les remplacer par
X = Remplace(X, Caract(0), "\0")

Sinon une solution est de transformer dans ton export la valeur de X par du base64

Si tu restes dans du cadre Windev/Windev utiliser la fonction crypte ou décrypte qui va te faire un base64 pas conforme mais qui fonctionnera dans le cadre Windev/Windev/Webdev.

Si tu veux faire du base64 conforme voici le code qui permet de le faire

Faire du Base64

PROCEDURE B64E(pChaine est une chaîne)
T est une chaîne =""
// ok sauf formatage sur 76 caractères

SELON modulo(Taille(pChaine),3)
	CAS 0 : T=""
	CAS 1 : T="=="
	CAS 2 : T="="
FIN

RENVOYER Crypte(pChaine,"",crypteAucun)+T

Décoder du Base64

PROCEDURE B64D(pChaine est chaîne)
T est une chaîne

T = Remplace(pChaine,"=","")
RENVOYER Décrypte(T,"",crypteAucun)