Conversion OleVariant to JPEG

Bonjour,
J'ai un petit problème de conversion :
J'ai une fonction qui me rend une image au format JPEG mais sous une variable du type OleVariant. ( Cette fonction extrait l'image d'une carte à puce, je ne peux m'en passer :( )
J'aimerai afficher cette image dans un composant TImage...
Mais je n'arrive pas à convertir mon OleVariant en un type de donnée affichable par un composant TImage.
Je lit en fait une carte d'identité belge et j'utilise le EID runtime pour lire celle-ci.
La fonction que j'utilise se nomme BEID_GETPicture.
Pour avoir une description détaillée de celle-ci : http://www.belgium.be/zip/DeveloperGuide.pdf page 11.

Voici mon code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

procedure TForm1.btnLireClick(Sender: TObject); var Handle : integer; Image : IMapCollection; certif : ICertifCheck; Photo : OleVariant; begin Form1.EIDlib1.Init('', 0, 0, Handle); // Initialisation Form1.EIDlib1.GetPicture(Image, certif); Photo := Image.GetValue('Picture'); Form1.Image1.Picture := Photo; // Ca coince... Form1.EIDlib1.Exit; end;

---

Merci d'avance de votre aide :)

T'as déjà entendu parler du "transtypage"?
Le transtypage sert à transformer un type de variable en un autre.


Programme exemple(dans n'importe quelle procédure)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

var texte : string; titre : string; begin texte := "Salut tout le monde!"; titre := "Exemple de transtypage"; //ici,on affiche la boîte de message   Application.MessageBox(PAnsiChar(texte),PAnsiChar(titre),MB_OK);   end;

---

On peut donc appliquer ce principe pour convertir le OleVariant en TJpegImage(sans oublier l'unité Jpeg)

Je pense que l'image est stocké sous forme de stream.

Donc un LoadFromStream du TJpegImage devrait convenir.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Correction var texte : string; titre : string; begin texte := ' Salut tout le monde! '; titre := ' Exemple de transtypage '; //ici,on affiche la boîte de message Application.MessageBox(PAnsiChar(texte),PAnsiChar(titre),MB_OK); end;

---

salut ,
j'ai fait juste une petit correction dans :
text := 'Salut tout le monde !';
titre := ' Example de transtypage ';
aulieu de ,
text :=" Salut tout le monde !";
titre :=" Example de transtypage ";
merci pour cet example .

J'ai regardé la documentation,et tu n'as pas besoin de mettre,un OleVariant,car il te met directement le message au format JPEG,tu n'as besoin que de récupérer la fonction dans un TJpegImage.Et ensuite,tu convertis le TJpegImage en TBitmap.
Pour le bitmap créé,tu utilises

bmp.Assign( jpeg );.
Ton code devient donc:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

procedure TForm1.btnLireClick(Sender: TObject); var Handle : integer; Image : IMapCollection; certif : ICertifCheck; Photo : TJPEGImge; begin Form1.EIDlib1.Init('', 0, 0, Handle); // Initialisation Form1.EIDlib1.GetPicture(Image, certif); Photo := Image.GetValue('Picture');   Form1.Image1.Assign(Photo) Form1.EIDlib1.Exit; end;

---

Salut,
merci beaucoup à tous, ca faisait un moment que j'avais posté ce sujet, depuis j'ai désespéré.:?
Enfin bon, le sujet en intéressera peut-être plus d'un :)
Je vais donc le mettre en résolu-délestage vu que les réponses ont l'air concluantes.
Je jeterai un coup d'oeil sur vos solutions pour voir si ca marche dès que j'aurai le temps et si ca marche je mettrai ce sujet en résolu.
Sinon, linkin, il me semble (ça fait longtemps) que j'avais testé le LoadFromStream et que ca a échoué.
Encore merci à tous. ;)