Array of byte + image + Stream

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:

---

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:

---

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....

Citation:

---

Envoyé par Demonaz

Code:

---

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:

---

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);

---

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

Code:

---

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... :)

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...

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:

---

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 !

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