Discussion :

[portu]

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 :

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

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 :

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

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.

[lil_jam63]

Avant ton saveToFile, tu devrais faire rembobiner ton stream.

Code :

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

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;

[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

[smyley]

Code :

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

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;

[portu]

Merci Smyley, ca marche bien.
J'ai aussi trouvé entre temps ceci qui marche aussi

Code :

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

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

Merci à vous.

A+

[smyley]

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

Code :

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

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