Discussion :

[Tux74]

Bonjour,

Je ne parviens pas à convertir le contenu d'un champ enregistré dans un fichier XML en image. Le document XML a été généré avec Delphi 6 et contenait les différentes données d'une table.

Code XML :

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

<DATAPACKET Version="2.0">

Le champ qui me pose problème

Code XML :

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

<FIELD attrname="img" fieldtype="bin.hex" SUBTYPE="Graphics"/>

Le début du contenu du champ dans le fichier XML :

Code XML :

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

img="/9j/4AAQSkZJRg ...="

Je parviens bien à ouvrir le fichier XML en utilisant dom et xmlRead comme units.
Ensuite j'isole le contenu de ce champ dans un stream

Code :

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

1
2
3
4
5
6
7
8
9
var
    DataImg : TMemoryStream;
    ContenuImg : string;     
 
ContenuImg := NoeudRow.Attributes.Item[i].NodeValue; // la chaine est bien récupérée
ContenuImg :=  Decode64(ContenuImg); // une fonction récupérée sur le net
DataImg:= TMemoryStream.Create;
DataImg.Write(ContenuImg, length(ContenuImg));
DataImg.SaveToFile('monimage.jpg');

A l'arrivée monimage.jpg ne correspond pas au fichier jpg d'origine.

J'ai vu du côté de OmniXML pour les conversions mais le code ne semble pas compatible avec Lazarus.

Une idée ?

[Tux74]

Finalement j'ai suivi ce post :
http://stackoverflow.com/questions/6...ng-delphi-2007

Les fonctions et procédures d'OmniXML ont fonctionné dans le code Lazarus.

Code :

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

1
2
3
4
5
6
// récupération de la chaine du fichier XML  
ContenuImg := NoeudRow.Attributes.Item[i].NodeValue;
// utilisation de la fonction présente dans OmniXMLUtils.pas
SaveBase64ToFile(ContenuImg_img,PathImgProv); // chaine Base64 en fichier binaire  
// récupération de l'image sur le disque
DBImage.Picture.LoadFromFile(PathImgProv);