yve

le problème: j'ai une image bitmap qui pèse 700k dans
une Form

j'ai encodé les Picture.Data dans un unit pour les recréer à l'exécution .Donc pendant la création je cré un fichier texte avec exactement les mêmes références que dans la Form.
soit : objet imageb TImage
left = 0
top = 0
width = 520
height = 520
Picture.Data = {bla bla bla }
end

après je cré l'imagex:=TImage.create(self);

COMMENT attribuer les Picture.Data à l'image ?
où est-ce possible ?
200k encodé
au lieu de 700

ben je crois que c'est image1.picture := loadfromfile('tonfichier');



-------------------------------
Réponse au message :
-------------------------------

> yve
>
> le problème: j'ai une image bitmap qui pèse 700k dans
> une Form
>
> j'ai encodé les Picture.Data dans un unit pour les recréer à l'exécution .Donc pendant la création je cré un fichier texte avec exactement les mêmes références que dans la Form.
> soit : objet imageb TImage
> left = 0
> top = 0
> width = 520
> height = 520
> Picture.Data = {bla bla bla }
> end
>
> après je cré l'imagex:=TImage.create(self);
>
> COMMENT attribuer les Picture.Data à l'image ?
> où est-ce possible ?
> 200k encodé
> au lieu de 700

yve
Oui ,Habituellement c'est ça.mais dans ce cas ci,ce n'est pas un fichier *.Bitmap et donc Erreur IO.

avec la fonction
StringToComponent(Value: string): TComponent;
image1.picture :=StringToComponent(Tout le fichier texte !):
?
comment envoyer tout le fichier dans une string ?


-------------------------------
Réponse au message :
-------------------------------

> ben je crois que c'est image1.picture := loadfromfile('tonfichier');
>
>
>
> -------------------------------
> Réponse au message :
> -------------------------------
>
> > yve
> >
> > le problème: j'ai une image bitmap qui pèse 700k dans
> > une Form
> >
> > j'ai encodé les Picture.Data dans un unit pour les recréer à l'exécution .Donc pendant la création je cré un fichier texte avec exactement les mêmes références que dans la Form.
> > soit : objet imageb TImage
> > left = 0
> > top = 0
> > width = 520
> > height = 520
> > Picture.Data = {bla bla bla }
> > end
> >
> > après je cré l'imagex:=TImage.create(self);
> >
> > COMMENT attribuer les Picture.Data à l'image ?
> > où est-ce possible ?
> > 200k encodé
> > au lieu de 700
>

yve

ok,avec un buffer ça fonctionne..MAIS.

exemple:
le problème demeure entier ,lorsque l'on copie une image dans le presse-papier et qu'on ouvre ensuite le presse-papier on a une image et non du texte.

On peut enregistrer sous...
-autres
*.txt.
alors on à le mappage de l'image en texte.

si , l'on enlève tout le texte de ce nouveau fichier jusqu'a BM... et qu'on l'enregistre , On pourra par la suite le réouvrir avec un éditeur de dessin ,car le fichier est revenue valide et commence par BM .

Mais Pas question de le renommer à nouveau en *.BMP ,car le formattage disparait...

Ces fameux symboles codés...
pas moyens de copier-coller...
l'important n'est pas de décoder mais de reproduire !

-------------------------------
Réponse au message :
-------------------------------

>
> yve
> Oui ,Habituellement c'est ça.mais dans ce cas ci,ce n'est pas un fichier *.Bitmap et donc Erreur IO.
>
> avec la fonction
> StringToComponent(Value: string): TComponent;
> image1.picture :=StringToComponent(Tout le fichier texte !):
> ?
> comment envoyer tout le fichier dans une string ?
>
>
> -------------------------------
> Réponse au message :
> -------------------------------
>
> > ben je crois que c'est image1.picture := loadfromfile('tonfichier');
> >
> >
> >
> > -------------------------------
> > Réponse au message :
> > -------------------------------
> >
> > > yve
> > >
> > > le problème: j'ai une image bitmap qui pèse 700k dans
> > > une Form
> > >
> > > j'ai encodé les Picture.Data dans un unit pour les recréer à l'exécution .Donc pendant la création je cré un fichier texte avec exactement les mêmes références que dans la Form.
> > > soit : objet imageb TImage
> > > left = 0
> > > top = 0
> > > width = 520
> > > height = 520
> > > Picture.Data = {bla bla bla }
> > > end
> > >
> > > après je cré l'imagex:=TImage.create(self);
> > >
> > > COMMENT attribuer les Picture.Data à l'image ?
> > > où est-ce possible ?
> > > 200k encodé
> > > au lieu de 700
> >
>

yve
Bon Ok,j'ai résolu la question,je l'ai recréé avec un canvas en prenant une image vide.

Donc,si l'image n'existe pas ,je la cré et je l'enregistre sous bmp.

ensuite à chaque nouvelle exécution elle sera surement disponible!!!

47 Ko
contre
772 Ko
ça été long mais 8 fois plus petit

-------------------------------
Réponse au message :
-------------------------------

>
> yve
>
> ok,avec un buffer ça fonctionne..MAIS.
>
> exemple:
> le problème demeure entier ,lorsque l'on copie une image dans le presse-papier et qu'on ouvre ensuite le presse-papier on a une image et non du texte.
>
> On peut enregistrer sous...
> -autres
> *.txt.
> alors on à le mappage de l'image en texte.
>
> si , l'on enlève tout le texte de ce nouveau fichier jusqu'a BM... et qu'on l'enregistre , On pourra par la suite le réouvrir avec un éditeur de dessin ,car le fichier est revenue valide et commence par BM .
>
> Mais Pas question de le renommer à nouveau en *.BMP ,car le formattage disparait...
>
> Ces fameux symboles codés...
> pas moyens de copier-coller...
> l'important n'est pas de décoder mais de reproduire !
>
> -------------------------------
> Réponse au message :
> -------------------------------
>
> >
> > yve
> > Oui ,Habituellement c'est ça.mais dans ce cas ci,ce n'est pas un fichier *.Bitmap et donc Erreur IO.
> >
> > avec la fonction
> > StringToComponent(Value: string): TComponent;
> > image1.picture :=StringToComponent(Tout le fichier texte !):
> > ?
> > comment envoyer tout le fichier dans une string ?
> >
> >
> > -------------------------------
> > Réponse au message :
> > -------------------------------
> >
> > > ben je crois que c'est image1.picture := loadfromfile('tonfichier');
> > >
> > >
> > >
> > > -------------------------------
> > > Réponse au message :
> > > -------------------------------
> > >
> > > > yve
> > > >
> > > > le problème: j'ai une image bitmap qui pèse 700k dans
> > > > une Form
> > > >
> > > > j'ai encodé les Picture.Data dans un unit pour les recréer à l'exécution .Donc pendant la création je cré un fichier texte avec exactement les mêmes références que dans la Form.
> > > > soit : objet imageb TImage
> > > > left = 0
> > > > top = 0
> > > > width = 520
> > > > height = 520
> > > > Picture.Data = {bla bla bla }
> > > > end
> > > >
> > > > après je cré l'imagex:=TImage.create(self);
> > > >
> > > > COMMENT attribuer les Picture.Data à l'image ?
> > > > où est-ce possible ?
> > > > 200k encodé
> > > > au lieu de 700
> > >
> >
>