Discussion :

[Argonz]

Bonjour,

J'aimerai faire un truc un peu spécial.
J'aimerai généré une TImage à partir d'une chaine de caractère qui serait en fait une suite de nombre Héxadécimal représentant un bitmap.

En fait je prend un projet (VCL/Forms) tout bête j'ajoute un composant TImage puis depuis la propriété Picture j'ouvre une image BMP. Ensuite je vais dans le DFM et la je trouve mon image sous la forme :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
  object Image1: TImage
    Left = 32
    Top = 216
    Width = 73
    Height = 73
    Picture.Data = {      07544269746D6170A6020000424DA60200000000000036000000280000001000      00000D0000000100180000000000700200000000000000000000000000000000      0000000000000000000000000000000000000000000000000000000000000000      0000000000000000000000000000000000000000000000000000000000000000      0000000000000000000000000000000000000000000000000000000000000000      0000000000000000000000000000000000000000000000000000000000000000      0000000000000000000000000000000000000000000000000000000000000000      0000000000000000000000000000000000000000000000000000000000000000      0000000000000000000000000000000000000000000000000000000000000000     0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000      0000000000000000000000000000000000000000000000000000000000000000      0000000000000000000000000000000000000000000000000000000000000000      0000000000000000000000000000000000000000000000000000000000000000      0000000000000000000000000000000000000000000000000000000000000000      0000000000000000000000000000000000000000000000000000000000000000      0000000000000000000000000000000000000000000000000000000000000000      0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000    0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000}

J'aimerais simplement reprendre la partie située dans "Picture.Data", la mettre dans un .pas p.ex :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
var
  Image   : AnsiString;
begin
    Image :=
      '07544269746D6170A6020000424DA60200000000000036000000280000001000' +      '00000D0000000100180000000000700200000000000000000000000000000000' +   '0000000000000000000000000000000000000000000000000000000000000000' +   '0000000000000000000000000000000000000000000000000000000000000000' +    '0000000000000000000000000000000000000000000000000000000000000000' +
 '0000000000000000000000000000000000000000000000000000000000000000' +   '0000000000000000000000000000000000000000000000000000000000000000' +      '0000000000000000000000000000000000000000000000000000000000000000' 
+      '0000000000000000000000000000000000000000000000000000000000000000' +     '0000000000000000000000000000000000000000000000000000000000000000' +   '0000000000000000000000000000000000000000000000000000000000000000' +    '0000000000000000000000000000000000000000000000000000000000000000' +    '0000000000000000000000000000000000000000000000000000000000000000' +
 '0000000000000000000000000000000000000000000000000000000000000000' +     '0000000000000000000000000000000000000000000000000000000000000000' +      '0000000000000000000000000000000000000000000000000000000000000000' +     '0000000000000000000000000000000000000000000000000000000000000000' +     '0000000000000000000000000000000000000000000000000000000000000000' +      '0000000000000000000000000000000000000000000000000000000000000000' +      '0000000000000000000000000000000000000000000000000000000000000000' +    '0000000000000000000000000000000000000000000000000000000000000000' +'000000000000000000000000000000000000';

Et hop pas un procédé miraculeux que vous aller me décrire je vais pouvoir la charger dans un TImage.

Vous avez une idée ??

[Okaryn]

Il me semble que l'on voit dans les dfm le représentation hexa de l'image, comme s'il s'agissait d'un fichier.

Il faut donc charger l'image via les fonctions LoadFromxxxx (file, stream ou clipboard) des composants TImage.

Soit tu crées un fichier texte, tu y colles tes données, tu fais un LoadFromfile du fichier puis effaces le fichier,

Soit tu crées un TSTream, tu y envoies les données et tu recharges avec un LoadFromStream,

Ou enfin, tu copies les données dans le presse papiers et les récupère via un LoadFromClipboard.

Personnellement, j'utilise la méthode SaveToStream et LoadFromStream pour sauvegarder et recharger des icones, bmp et png choisis par l'utilisateur dans une base de données.

[anapurna]

salut

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
function StringToComponent(const AString: String; AComp: TComponent): TComponent;
var
  InputStream: TStringStream;
  OutputStream: TMemoryStream;
begin
  InputStream := TStringStream.Create(AString);
  OutputStream := TMemoryStream.Create;
  try
    { Turn string into component }
    ObjectTextToBinary(InputStream, OutputStream);
    { Go back to start of output stream }
    OutputStream.Seek(0, soFromBeginning);
    { Read component from stream, creating one if one is not passed in }
    Result := OutputStream.ReadComponent(AComp)
  finally
    InputStream.Free;
    OutputStream.Free
  end
end;

@+ Phil

[Argonz]

Bonsoir !!

Déja merci de vos réponse.


anapurna :
T'as technique ma parait pas mal. Cependant lorsque je la mets en application j'ai l'erreur suivant (Type EParseError) elle est produite par la fonction ObjectTextToBinary :

OBJECT Excepted on line 1

As-tu une idée sur le pourquoi du comment ??

Okaryn :
Pour ce qui est de ta solution c'est en effet ce que je pensais faire. Cependant le soucis est que lorsque j'utilise ma grosse chaine de caracètre et que je la met dans un StringField et que je le load dans un TImage (.Picture.Bitmap.LoadFromStream), il me dit comme quoi mon fichier n'est pas du bon type. Normal vu que le problème et que le Stream va transformer ma chaine de caractère en héxa au lieu de me la mettre directement en tant qu'image héxa. Vous voyez ce que je veux dire ??

En fait faudrait que ma chaîne de caracètre soit prise tel quel en mémoire sans typage.

En tout cas merci de me filer un coup de main.

[Argonz]

Yeah !! J'ai compris !!!

En fait la fonction StringToComponent fonctionne tout à fait bien. Mais j'avais pas compris que fallait mettre vraiment toute la partie relative au composant du DFM dans la String!! Du coup je met vraiment tout le TImage complet dans ma chaine de caracètre et on est content, fait beau les mouches pètes !!

Top Cool.

Je vais implémenter tout ça !! Merci beaucoup pour votre aide....

PS au modérateur : Je termine le poste quand je suis süre que tout marche.