WDForge.org - Forums

Re: Windev +SQLite3 +blob

Sujet: Re: Windev +SQLite3 +blob
par SSX9999 sur 22/2/2008 15:09:29

changer la fonction mySQLLitmemo dans la classe comme cela
en fait la methode a un bug mais comme j'utilise SQLManagerX le bug n'apparait pas pour la classe car le code est renvoyer avant

PROCEDURE mySQLLitMemo(requestNumber, numField, fieldName)

LOCAL
	fileName is string
myRequestNumber is int
myNumField is unsigned int
v_blob est une chaîne

myNumField = numField - 1
myRequestNumber = requestNumber
fileName = fFichierTemp("BIN")
IF (SansEspace(fileName) <> "") THEN
	AppelDLL32(:NomDLL,"_SQLiteLitMemo", myRequestNumber, myNumField, fileName)
	v_blob =:mySQLEscapeString(fChargeTexte(fileName),False)
	v_blob = Remplace(v_blob,Caract(13)+Caract(10),Caract(10))
	fSauveTexte(fileName,v_blob)	
	SI fieldName = "" ALORS RENVOYER fChargeTexte(fileName)
	SWITCH ({fieldName}..Type)
		CASE typBarreOutils, typBouton, typOnglet, typOptionMenu, typJauge, typPotentiomètre, typPotentiomètreRotatif
			{fieldName}..Image = fileName
		OTHER CASE
			{fieldName} = fileName
	END
	fSupprime(fileName)
END

j'ai fait les test
je versionnerais la classe SQLite4WD