TRessourceStream lädt Bitmap nicht vollständig.

[hoika]

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