Discussion :

[Demonaz]

Hello !

J'ai un fichier qui contient une image au milieu d'autres données.
Je voudrais afficher cette image dans un TPicture.
Pour le moment je lis mon fichier dans un Array of Byte dynamique que je parse pour trouver l'adresse de mon image.
Par contre après je coince.
J'arrive à extraire l'image dans un fichier JPEG avec un classique BlockWrite sous la forme suivante

Code :

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

BlockWrite(fichier,TabFichier[664],taille);

De cette manière j'arrive à avoir juste mon image sans éléments parasites.
Existe t'il une solution aussi simple pour coller le tout dans un MemoryStream ?
Voilà l'ébauche du truc

Code :

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

1
2
3
4
Stream:=TMemoryStream.Create;
    Stream.Size:=taille;
    Stream.Write(TabFichier[664],taille);
    Image1.Picture.Bitmap.LoadFromStream(Stream);

En faisant ça mon Stream est vide....

[Eric Boisvert]

Code :

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

1
2
3
4
Stream:=TMemoryStream.Create;
    Stream.Size:=taille;
    Stream.Write(TabFichier[664],taille);
    Image1.Picture.Bitmap.LoadFromStream(Stream);

En faisant ça mon Stream est vide....

En faite, il n'est pas vide... il est tout simplement à la fin je crois....

Code :

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

1
2
3
4
5
6
    Stream:=TMemoryStream.Create;
    Stream.Size:=taille;
    Stream.Write(TabFichier[664],taille);
    Stream.Position:=0; //<- Remet au debut le stream
    Image1.Picture.Bitmap.LoadFromStream(Stream);

[Demonaz]

Vu sous cet angle...
Normalement en théorie ça devrait fonctionner ?
Je veux dire c'est pas une aberration de faire un

Code :

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

Stream.Write(TabFichier[664],taille);

En toute bonne logique le Stream devrait se remplir avec ce qui se trouve à l'index 664 de mon tableau et ce jusqu'à la taille indiquée.

Ou alors j'ai tout faux...

[Eric Boisvert]

Il se rempli bien effectivement...
mais c'est lors du LoadFromStream() que le probleme se pose.

LoadFromStream commence à la position... et load jusqu'à la fin.
Si position est = à Stream.Size... ben là... il ne load rien...

[Demonaz]

Ouf c'est déjà ça
Merci !
Je pensais avoir délirer (faut dire que conceptualiser du code pendant une formation pro, c'est pas le top...)

Ca passe par contre j'ai un message "Erreur Bitmap incorrect"
J'ai mis un point d'arrêt sur la ligne où Stream est envoyé dans le TPicture et il n'y a rien dedans au survol de la souris...

EDIT: c'est bon, je suis un boulet...
Je balançais mon Stream directement dedans alors que c'est un JPEG...

Code :

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

1
2
3
4
5
6
7
8
 
    Stream:=TMemoryStream.Create;
    Stream.Size:=taille;
    Stream.Write(Gbx[664],taille);
    Stream.Position:=0;
    jpg:=TJPEGImage.Create;
    jpg.LoadFromStream(Stream);
    Image1.Picture.Bitmap.Assign(jpg);

Ca fonctionne bien mieux !!
Merci !

[Eric Boisvert]

etant donnée que c'est un jpeg que tu load.. ca fait du sens non?