Hallo,
folgender Code soll eine 694 Byte grosses Bitmap laden.
Delphi-Quellcode:
ResourceStream:= TResourceStream.Create(HInstance, 'BMVERLAUF', RT_BITMAP);
ResourceStream.Position:= 0;
theResFileName:= MyGetTempFileName(GetEnvironmentVariable('TEMP'), 'VER');
FileStream:= TFileStream.Create(theResFileName, fmCreate);
FileStream.Position:= 0;
FileStream.CopyFrom(ResourceStream, ResourceStream.Size);
Leider werden nur 680 Byte geladen (ResourceStream.Size) und gespeichert.
Was ist heute nur für ein verhexter Tag ;(
Weiss jemand, was ich falsch mache ?
#Update:#
Erledigt !!!
Ich habe jetzt
BitMap.LoadFromResourceName(HInstance, 'BMVERLAUF') genommen.
Danke
Heiko