TBitmap.....LoadFromResourceName Führt zu SystemFehler 87 und Application Crash

**DSCHUCH**

Hallo,

ich untersuche gerade einige Performance-Effekte insb. mit dem DBNavigator. Dabei gab es bei mir irgendwann immer einen Crash Code 87. Ich konnte das jetzt auf ein Programm mit wenigen Zeilen reproduzierbar machen. Das ganze passiert in Delphi XE. Kann das mal bitte jemand validieren?

Neue Delphi-Anwendung (VCL Formular). Button drauf und einfach folgenden Click-Code. Achtung, das uses mitnehmen, kann ja direkt über die ClickProcedure.

zusammenfalten · markieren

Delphi-Quellcode:

			uses ExtCtrls, DBCtrls, DB;

procedure TFormX.ButtonXClick(Sender: TObject);

var I, H : Integer;

    t    : TTime;

begin

 Screen.Cursor:=crHourGlass;

try

 t:=Now;

 for I := 0 to 5000 do //crash ab 5000;;; SystemFehler: Code 87 ... auch mit 500, dann halt ca. 10 mal clicken.

     TBitmap.Create.LoadFromResourceName(HInstance, 'dbn_FIRST');

finally

 Screen.Cursor:=crDefault;

end;

 ShowMessage('Done:'+TimeToStr(Now-t));

end;

VG,
Daniel.

TBitmap.....LoadFromResourceName Führt zu SystemFehler 87 und Application Crash

TBitmap.....LoadFromResourceName Führt zu SystemFehler 87 und Application Crash

Forumregeln