EOutOfResources - Systemressourcen erschöpft. Warum???

[romber]

Beim Versuch, generiertes Screenshot in eine Stream zu speichern bekomme ich ständig die o.g. Fehlermeldung. Warum? Was ist falsch?

Hier ist mein Code:

Delphi-Quellcode:

var 
  HDdc: HDC; 
  Bild: TBitmap;
  CopyWidth: integer;
  CopyHeight: integer;
  fStream: TMemoryStream; 
begin 
  fStream := TMemoryStream.Create;
  repeat
    HDdc := GetDC(0); 
    CopyWidth := Screen.Width;
    CopyHeight := Screen.Height;
    Bild := TBitmap.Create; 
    Bild.PixelFormat := pf24bit; 
    Bild.SetSize(CopyWidth, CopyHeight); 
    BitBlt(Bild.Canvas.Handle, 0, 0, CopyWidth, CopyHeight, HDdc, 0, 0, SRCCOPY); 
    ReleaseDC(0, HDdc); 
    fStream.Clear;
    fStream.Position := 0;
    Bild.SaveToStream(fStream);   //  <--- An dieser Stelle kommt es zu der Fehlermeldung. Wenn ich die Zeile auskommentiere, passiert nichts.
    Bild.Free;
  until cStop > 0;
  fStream.Free;

[omata]

Welche Delphi-Version benutzt du?

TBitmap.SetSize kennt mein Delphi nicht.

TStream kennt bei mir kein Clear, du erstellst ja auch einen TMemoryStream wieso ist dann die Variable ein TStream?

Was ist SaveToStr, wo kommt das her? Was macht das? Sollte das SaveToStream heissen?

Und was genau macht cStop?

[romber]

Delphi 2007.

Ich habe die Code korrigiert. Aus TStream wurde TMemoryStream. MemoryStream besitzt die Methode Clear.

Waraum bekomme ich diese Fehlermeldung?

[WS1976]

Hallo,

wenn du die Frage dauernd wiederholst ohne uns die Möglichkeit zu geben den Code zu testen kriegst du nie eine Antwort.
Also was ist cstop?

Grüsse
Rainer

[romber]

Sorry, cStop ist einfach eine Integer-Variable, mit der ich die schleife unterbreche, wenn es nötig ist. Mehr nichts.