OleVariant --> Stream

Version imprimable

Bonsoir,
J'ai installé un controle ActiveX permettant de lire les cartes d'identité électronique (Des ptits belges).
Je bloque sur un truc qui permet de récupérer la photo.

Code en VB que je n'arrive pas à convertir en Delphi
Code:

1 2 3 4 5 6 7 8 Dim picture As Variant .... picture = MapColPicture.GetValue("Picture") writeBinFile "photo.jpg", picture ImagePic.picture = LoadPicture("photo.jpg") ImagePic.Stretch = True ImagePic.Visible = True
MapColPicture.GetValue("Picture") renvoie un Olevariant devant contenir une succession de bytes (Format image JPEG).

J'ai essayé un truc du genre
Code:

1 2 3 4 5 6 7 8 9 10 Var Buffer : Array of Byte; Begin ..... Photo := TMemoryStream.Create; Buffer := Map.GetValue('Picture'); Photo.Write(Buffer, Length(Buffer)); Photo.SaveToFile('c:\photo.jpg'); Photo.Free;
J'obtiens bien des données dans mon fichier mais il n'est pas lisible.
Pouvez-vous m'aider ?

Merci d'avance.

Avant ton saveToFile, tu devrais faire rembobiner ton stream.

Code:

1
2
3
4
5
6
 
Buffer := Map.GetValue('Picture');
Photo.Write(Buffer, Length(Buffer));
Photo.Seek(0, soFromBeginning); // toujours avant de faire un enregistrement ou une lecture complete
Photo.SaveToFile('c:\photo.jpg');
Photo.Free;

07/10/2005, 22h54
portu

Hmmm, le remettre au début pour le lire --> je suis d'accord, mais de le mettre au début pour l'enregistrer, je ne vois aucun changement.
J'ai tj fais sans le remettre au début et tj de bons résultats.
Ceci dit, mon fichier est bien créé et sa taille est de 3028 octets. Donc, maintenant, le problème ne vient pas de l'enregistrement mais du formatage alors ?
Dans la doc, il parle d'image jpeg pourtant :cry:

Code:

1
2
3
4
5
6
7
8
9
10
 
Var
Buffer : Array of Byte;
Begin
.....
Photo := TMemoryStream.Create;
Buffer := Map.GetValue('Picture');
Photo.Write(Pointer(Buffer)^, Length(Buffer)); //ICI, essai çà
Photo.SaveToFile('c:\photo.jpg');
Photo.Free;

:roll:

07/10/2005, 23h20
portu
:wink: Merci Smyley, ca marche bien.
J'ai aussi trouvé entre temps ceci qui marche aussi
Code:

1 2 Photo.Write(Buffer[0], Length(Buffer));
Merci à vous.

A+
07/10/2005, 23h26
smyley
Citation:
Envoyé par portu

J'ai aussi trouvé entre temps ceci qui marche aussi

Code:

1 2 Photo.Write(Buffer[0], Length(Buffer));
Oui, en plus j'ai déjà eu ces pbs, la solution universelle ( et ma préférée ) c'est de faire un Pointeur ( Pointer(blabla)^ ), le petit chapeau est indispensable en passant. Si par exemple tu veux écrire une chaine, il faut faire soit un pointeur, soit Chaine[1], et pour ne pas faire de confusion entre les càs où utiliser 0 ou 1, il vaut donc mieux passer par les pointeurs ;)