Discussion :

[jfdeterme]

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 :

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

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

[supersnail]

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 :

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

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)

[Linkin]

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

Donc un LoadFromStream du TJpegImage devrait convenir.

[NapsterVB]

Code :

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

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 .

[supersnail]

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 :

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

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;

[jfdeterme]

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.