Intégrer le contenu d'une variable au Project en mode développement

Question

Hello !  



Je reconnais que le titre n'est pas super ! En fait, je d&#233;veloppe un
OCX pour les GIF anim&#233;s et il y a une propri&#233;t&#233; "Embed" qui permettrait
d'int&#233;grer une image au Project.



Je m'explique : Mon OCX contient une fonction 'ExtractImages(buf As
String)' qui permet de charger le GIF &#224; partir de ses octets, et comme
je l'ai dit, cette fameuse propri&#233;t&#233; 'Embed' qui fonctionne ainsi : Si
elle est r&#233;gl&#233;e &#224; 'False' en mode d&#233;veloppement, les octets du fichier
source contenu dans 'FileName' ne sont pas sauvegard&#233;s au project... et
je voudrais que si 'Embed' est r&#233;gl&#233; &#224; 'True', que les octets soient
sauvegard&#233;s dans la variable 'm_OctetsFile'.



Le probl&#232;me r&#233;side dans le fait que quand on fait 'F5', les octets sont
bien stock&#233;s dans la variable mais celle-ci est d&#233;charg&#233;e une fois
qu'on quitte le prog... et je voudrais justement qu'ils soient encore
dans la variable, et que si on sauvegarde le project, qu'on le ferme et
le r&#233;-ouvre, que la variable contienne encore les octets, ce qui n'est
pas le cas 

 Je n'aurais alors plus qu'&#224; appeler la fonction 'ExtractImages' en lui passant les octets.



C'est exactement le m&#234;me principe qu'avec une PictureBox : en mode
&#233;dition, on peut d&#233;finir le fichier Image source et les octets sont
carr&#233;ment int&#233;gr&#233; au programme (m&#234;me &#224; l'EXE une fois compil&#233;). C'est
ce que je voudrais faire.



J'esp&#232;re avoir &#233;t&#233; compr&#233;hensible 



Merci d'avance !!!



SkyRocKo

cs_Jack · Answer

Salut
Tu peux sauver et relire le param&#233;trage de ton composant en utilisant les 
UserControl_WriteProperties   et
UserControl_ReadProperties
Regarde dans l'aide.

Vala
Jack
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Le savoir est la seule mati&#232;re qui s'accroit quand on la partage. (Socrate)

SkyRocKo · Answer

Salut !



Merci jack pour cette r&#233;ponse 



On peut m&#234;me stocker un string de plusieurs dizaines de ko avec UserControl_WriteProperties 



Le probl&#232;me c'est que si je met &#231;a dans UserControl_WriteProperties :



If Embed = True Then Call PropBag.WriteProperty("OctetsFichier", m_OctetsFile)



...alors on verra une nouvelle propri&#233;t&#233; "OctetsFichier" ajout&#233;e &#224; l'OCX, ou je me trompe 



Je vais faire un tour dans l'aide, je n'ai pas vu le probl&#232;me abord&#233; sur ce site.



Merci d'avance 



SkyRocKo

SkyRocKo · Answer

Hello jack 



J'ai essay&#233;, &#231;a fonctionne en partie !



UserControl_WriteProperties sauvegarde bien la variable... mais pas en entier !



Il s'agit d'une variable de type String, je suis all&#233; voir dans le
fichier .frm du project contenant l'OCX avec notepad et il y a ceci :



Begin Animated_GIF.AnimatedGIF AnimatedGIF1 

      AutoSize        =   0   'False

      AutoStart       =   -1  'True

      BackColor       =   12648447

      BackStyle       =   1

      Embed           =   -1  'True

      FileName        =   "c:\mon_fichier.gif"

      Interval        =   0

      OctetsFile      =   "GIF89ax"   <= Juste le header !!!

   End



J'ai ouvert avec un &#233;diteur hexad&#233;cimal le fichier GIF de mon project et il y a bien un Chr(0) apr&#232;s 
"GIF89ax" comme je l'attendais. Je pense que la suite du fichier n'a donc pas &#233;t&#233; enregistr&#233; &#224; cause du Chr(00)   



Y-a-t-il une astuce pour contourner cela 




Merci d'avance 



SkyRocKo

SkyRocKo · Answer

J'ai regard&#233; le fichier .frm d'un project utilisant un OCX du m&#234;me
genre que le mien et qui lui, permet d'int&#233;grer l'image GIF au project.
Le fichier Form1.frm contient ceci :



Begin GIF89LibCtl.Gif89a Gif89a1 

      Height          =   1710

      Left            =   3360

      OleObjectBlob   =   "FORM1.frx":0000   <= hehe !

      TabIndex        =   0

      Top             =   2880

      Width           =   1800

   End



Apparemment, l'image est stock&#233;e dans le fichier "Form1.frx". 



A quoi correspond 'OleObjectBlob'... et surtout, comment faire pareil en VB6 

Comment est-ce faisable 



Ca ferait grandement avancer le d&#233;veloppement de l'OCX !!!



Merci d'avance 



SkyRocKo

Intégrer le contenu d'une variable au Project en mode développement

4 réponses

Discussions similaires