Discussion :

[krzysiu]

Bonjour à tous,

je refais ici un fil pour cette histoire d'image XML...

Dans le sens Image Vers XML c'est ici que cela comment

https://www.developpez.net/forums/d1...e-fichier-xml/

et se termine la :

https://www.developpez.net/forums/d1...ize-in-encode/

Pour moi tout semble bine fonctionner.
Mais maintenant , j'aimerais récupérer cet image dans le fichier XML et l'afficher à nouveau dans sont TImage

voici comment je fais :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
  var
 
    LStream: TMemoryStream;
    STRStream:TStringStream;
 
...  
// Dossier.ChildValues[0] => mon image dans le fichier XML
 
  STRStream:=TStringStream.Create(Dossier.ChildValues[0]);
  LStream := TMemoryStream.Create;
 
 
  imgSignature.Bitmap.LoadFromStream(LStream);

et bien sur j'obtiens une erreur : le chargement du bitmap à échouer

Est ce quelqu'un peu me venir en aide ??

merci beaucoup

[Andnotor]

Et où est le décodage ?

[Papy214]

quelle version de delphi ?

[Papy214]

en attendant la réponse, sous Berlin, écrit à la va-vite (mais testé quand même)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
 
uses System.NetEncoding, xml.xmldoc, Xml.XMLIntf;
 
function EncodedBMP(const NomFichier: string): string;
var
  MemStreamIn: TMemoryStream;
  Bts: TBytes;
begin
 
  MemStreamIn := TMemoryStream.Create;
  MemStreamIn.LoadFromFile(NomFichier);
  MemStreamIn.Seek(0, 0);
 
  SetLength(Bts, MemStreamIn.Size);
  MemStreamIn.ReadData(Bts, MemStreamIn.Size);
  MemStreamIn.Free;
 
  Result := TNetEncoding.Base64.EncodeBytesToString(Bts);
end;
 
procedure TForm21.Button1Click(Sender: TObject);
var
  xlm: IXMLDocument;
  node: IXMLNode;
  Bts: TBytes;
  Bmp: TBitmap;
  MemStreamIn: TBytesStream;
begin
 
  // Création du fichier XML
  xlm := NewXMLDocument();
  xlm.AddChild('Images');
  xlm.DocumentElement.AddChild('bmp')
     .NodeValue := EncodedBMP('D:\Divers\Images\Réception.bmp');
  xlm.SaveToFile('g:\Images.xml');
  xlm := nil;
 
  // Récupération du xml pour générer le bitmap
  xlm := LoadXMLDocument('g:\Images.xml');
  Bts := TNetEncoding.Base64.DecodeStringToBytes(xlm.DocumentElement.ChildValues['bmp']);
  MemStreamIn := TBytesStream.Create(Bts);
  MemStreamIn.Seek(0, 0);
 
  Bmp := TBitmap.Create;
  Bmp.LoadFromStream(MemStreamIn);
  image1.Picture.Bitmap.Assign(Bmp);
  Bmp.SaveToFile('D:\Divers\Images\Réception2.bmp');
 
  FreeAndNil(Bmp);
  FreeAndNil(MemStreamIn);
 
  xlm := nil;
end;

[krzysiu]

Merci pour vos réponses...

effectivement il faut décoder, mais même avec j'ai un soucis...

ma version est XE8 et je suis en FMX (Pas le bon cote du forum, désolé), mais je me suis dit que cela doit fonctionner un peu pareil...

je teste ta solution Papy214 et te dit quoi !!!

Merci

[krzysiu]

je sais pas si je doit répondre je suis un vrai boulet, je vais aller me coucher, et je reviendrais demain....

ton code fonctionne parfaitement bien papy214

et le mien aussi (pas celui que j'ai posté (manque le décodage) un peu trop vite d'ailleurs...)

mais voilà ce qui arrive quand on code dans l'urgence et a l'arrache

en tout cas merci pour tout... est désole pour le dérangement