Hallo,
ich verwende Delphi5 Enterprise (Servicepack 1).
Ich lade in meiner Anwendung sehr viele Bitmaps, welche ich in einer ObjectList verwalte. Leider bekomme ich immer bei einer fixen Anzahl, auf meinem Laptop sind das 9961, einen
Win32-Fehler. Code87 Falscher Parameter.
Die Googel Suche hat immer nur etwas übers Drucken gebracht.
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
function nGetBitMap: Graphics.TBitMap;
begin
Result := Graphics.TBitMap.Create;
Result.PixelFormat := pf4bit;
Result.TransparentMode := tmAuto;
Result.Transparent := true;
end;
var
lObjectList: TObjectList;
lBitmap: Graphics.TBitMap;
i, lCount: integer;
begin
lObjectList := TObjectList.Create(true);
try
lCount := 9961;
for i := 0 to lCount do
begin
lBitmap := nGetBitMap;
lBitMap.LoadFromFile('c:\test.bmp');
lObjectList.Add(lBitMap);
end;
ShowMessage('Ready');
finally
lObjectList.Free;
end;
end;
Bei der Datei handelt es sich um eine kleine existierende Bitmap Datei (11x11 pixel).
Wie kann ich dieses Problem umgehen?
P.S.: Dieser Code stellt bei mir den Fehler nach, dh. er tritt mit diesem auch auf ... ich bin auch so erst an die genaue Anzahl gekommen.