Image aus XML-File in Imagelist laden

[Lord_Stifterl]

Hallo an alle,

ich habe eine XML Datei, welche ein Image (lt. Größenangabe 16x14 sollte es ein Icon sein) in einem Tag hinterlegt hat.

Delphi-Quellcode:

- <Vendor>
  <Id>2</Id> 
  <Name>Beckhoff Automation GmbH</Name> 
  <ImageData16x14>424DE6000000000000007600000028000000100000000E000000010004000000000070000000120B0000120B0000100000001000000000000000000080000080000000808000800000008000800080800000C0C0C000808080000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF009D9DD99DD9DDD9DD9D9D9DD9D9DDD9DD999D9DD9D999D9999D9D9DD9D9DDD9DD9D9DD99DD999D999DDDDDDDDDDDDDDDD88888888888888888888888888888888DDDDDDDDDDDDDDDD999D999DD99DD9D99D9D9DDD9DD9D9D999DD999D9DDDD99D9D9D9DDD9DD9D99D999D999DD99DD9D9</ImageData16x14> 
  </Vendor>

Ich soll dieses XML-File auslesen und das zugehörige Icon/Image in einer Treeview anzeigen. Hab schon ein bisschen gegoogelt und auch hier im Forum ein wenig gesucht, jedoch nichts wirklich zutreffendes gefunden.

Hat jemand einen Ansatz zur Lösung dieses Problems bzw. einen Vorschlag wie ich das Image in eine Imagelist bekomme.

Danke,
Liebe Grüße
Alex

[geofranz01]

Hi,

weiß nicht, ob meine Methode besonders schon ist :wink: (kanst du ja noch ändern):

Delphi-Quellcode:

Function HexToStr(s: String): String;
Var i: Integer;
Begin
  Result:=''; i:=1;
  While i<Length(s) Do Begin
    Result:=Result+Chr(StrToIntDef('$'+Copy(s,i,2),0));
    Inc(i,2);
  End;
End;

procedure TForm30.Button1Click(Sender: TObject);
var
   HexBild:string;
   picfile:TextFile;
begin
HexBild:=Edit1.Text;  //XML-Daten ('424DE...DD9D9') auslesen und als String in HexBild speichern
HexBild:=Hextostr(HexBild);
assignfile(picfile,'D:\test.bmp');
Rewrite(picfile);
Write(picfile,HexBild);
closefile(picfile);
end;

//Und jetzt das bmp in die Imagelist laden

Viele Grüße,
geofranz

[Muetze1]

Schau dir mal die Funktion HexToBin() an. Danach dann TMemoryStream sowie TBitmap und bei dem dann speziell TBitmap.LoadFromStream()

[shmia]

Code-Library: Hexstring <-> Binärstring