Der Code enthält die AlphSkin Control, deswegen habe ich ihn nicht gepostet:
Delphi-Quellcode:
var
i : Integer;
IconsStream : TMemoryStream;
SizeOfIcon : Int64;
begin
IconsStream := TMemoryStream.Create;
//add all icons to stream:
for i := 0 to sAlphaImageList.Count - 1 do
begin
SizeOfIcon := sAlphaImageList.Items[i].ImgData.Size;
IconsStream.Write(SizeOfIcon,SizeOf(Int64));
IconsStream.Write(sAlphaImageList.Items[i].ImgData, SizeOfIcon);
end;
ImgData ist ein TMemorystream.