JPEG Error

[Zodi]

Hi Delphianers

Ich erzeuge einen Screenshot als Bitmap diesen Wandle ich in ein JPG um.
Nach ca. 60x Schreenshot erzeugen bekomme ich ne Error meldung "Zur verabeitung dieses Befehls sind nicht genügens Speicherressourcen verfügbar.

Delphi-Quellcode:

function GetScreenShot: TBitmap;
var
  Desktop: HDC;
begin
  Result  := TBitmap.Create;
  Desktop := GetDC(0);
  try
    try
      Result.PixelFormat := pf32bit;
      Result.Width := Screen.Width;
      Result.Height := Screen.Height;
      BitBlt(Result.Canvas.Handle, 0, 0, Result.Width, Result.Height, Desktop, 0, 0, SRCCOPY);
      Result.Modified := True;
    finally
      ReleaseDC(0, Desktop);
    end;
  except
    Result.Free;
    Result := nil;
  end;
end;

Function SaveShotToStream(PIC: TBitmap): AnsiString;
var
   myjpg: TJPEGImage;
   myImg: TImage;
   mm: TMemoryStream;
begin

   mm := TMemoryStream.Create;

   myImg:= TImage.Create(nil);
   myjpg := TJPEGImage.Create;

   myjpg.CompressionQuality := 50;
   myjpg.Compress;

   myimg.Picture.Bitmap := GetScreenShot;

   myjpg.Assign(myimg.Picture.Bitmap);

   myjpg.SaveToStream(mm);
 
   myImg.Free;
   myjpg.Free;
   mm.Free;

end;

[Redeemer]

myimg.Picture.Bitmap wird nicht freigegeben. myimg.Picture.Bitmap.Free(); kann man nicht aufrufen. Korrekt weist man Bilder mit myimg.Picture.Assign(Bild); zu, da wird das alte Bild gelöscht. Die Verwendung von TImage ist hier sowieso komplett fehl am Platze, ganz zu schweigen vom fehlenden try..finally. Da war ich jetzt aber zu faul für, das auch noch zu ergänzen.

Delphi-Quellcode:

Function SaveShotToStream(PIC: TBitmap): AnsiString;
var
   myjpg: TJPEGImage;
   mybmp: Graphics.TBitmap;
   mm: TMemoryStream;
begin

   mm := TMemoryStream.Create;

   myjpg := TJPEGImage.Create;

   myjpg.CompressionQuality := 50;
   myjpg.Compress;

   mybmp := GetScreenShot;

   myjpg.Assign(mybmp);

   mybmp.Free;

   myjpg.SaveToStream(mm);
 
   myImg.Free;
   myjpg.Free;
   mm.Free;

end;

[Schokohase]

Zitat von Redeemer:

myimg.Picture.Bitmap wird nicht freigegeben. myimg.Picture.Bitmap.Free(); kann man nicht aufrufen. Korrekt weist man Bilder mit myimg.Picture.Assign(Bild); zu, da wird das alte Bild gelöscht.

Das stimmt so nicht.

Wenn TPicture.Bitmap etwas zugewiesen wird, dann erfolgt intern ein Assign.
Es ist also wurscht ob man pic.Bitmap := myBmp; oder pic.Bitmap.Assign(myBmp); schreibt, denn es passiert das Gleiche.

Was hier nicht freigegeben wird, ist die Bitmap-Instanz die man per GetScreenshot holt.

Delphi-Quellcode:

Function SaveShotToStream(PIC: TBitmap): AnsiString;
var
   myjpg: TJPEGImage;
   myImg: TImage;
   mm: TMemoryStream;
   bmp: TBitmap;
begin

   mm := TMemoryStream.Create;

   myImg:= TImage.Create(nil);
   myjpg := TJPEGImage.Create;

   myjpg.CompressionQuality := 50;
   myjpg.Compress;

   bmp := GetScreenShot;
   try
      myimg.Picture.Bitmap := bmp;
   finally
      bmp.Free;
   end;

   myjpg.Assign(myimg.Picture.Bitmap);

   myjpg.SaveToStream(mm);
 
   myImg.Free;
   myjpg.Free;
   mm.Free;

end;

Allerdings ist der Umweg über TImage hier nicht notwendig und bmp könnte man gleich myjpg zuweisen.

[EWeiss]

Und wo ist das PIC das übergeben wird?
Wenn es nicht verarbeitet wird in dieser Funktion sondern über
bmp := GetScreenShot;

eingeholt wird dann benötigt man die Übergabe in der Funktion auch nicht.
Genauso wie die Rückgabe AnsiString die Funktion ist einfach unsinnig!

Zitat:

bmp könnte man gleich myjpg zuweisen.

nö wenn dann PIC schließlich wird es übergeben oder was soll das!

Man holt den Screenshot über GetScreenShot außerhalb der Funktion und übergibt dann das Resultat an die Funktion als PIC.
Anschließend kann man bmp das PIC zuweisen.

gruss

[p80286]

Dann macht mans so
procedure GetScreenShot(var mybm: TBitmap); Gruß
K-H

P.s.
c&P at ist best

[EWeiss]

Zitat von p80286:

Dann macht mans so
procedure GetScreenShot(var mybm: TBitmap); Gruß
K-H

P.s.
c&P at ist best

Der sinn hinter deiner procedure erschließt sich mir auch nicht. Sorry.
Ob man das jetzt über eine Function regelt oder über eine Procedure spielt eigentlich keine rolle.
Ist Auslegungssache.
Wichtig ist doch nur das ein Bitmap zurückgegeben wird.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  bmp :TBitmap;
begin
  bmp := GetScreenShot; // TBitmap das zurückgegeben wird
  SaveShotToStream(bmp)
  bmp.Free;
end;

procedure SaveShotToStream(PIC: TBitmap);
// bla, bla
bmp := PIC;
//hier nix mit bmp.free wird nachher freigegeben.

gruss

[himitsu]

Zitat:

Delphi-Quellcode:

  except
    Result.Free;
    Result := nil;
  end;

Ich würde ja mal vermuten der kommt öfters dort rein und da irgendein Idiot Typ hier Fehlermeldungen grob fahrlässig unterdrückt und vernichtet,
sowie in der anderen Funktion sämtliche Ressourcenschutzblöcke vergaß ............ schön viele Speichlecks usw.

[p80286]

Zitat von EWeiss:

Wichtig ist doch nur das ein Bitmap zurückgegeben wird.

"Ein Objekt soll da freigegeben werden, wo es erstellt wird"
Ich habe aus eigener schmerzlicher Erfahrung lernen müssen, daß der Satz seine Berechtigung hat. Darum sollte die Bitmap an die Scrennshot-Routine übergeben werden. Das erleichtert die Fehlersuche doch ungemein.

Gruß
K-H

[EWeiss]

Zitat von p80286:

Zitat von EWeiss:

Wichtig ist doch nur das ein Bitmap zurückgegeben wird.

"Ein Objekt soll da freigegeben werden, wo es erstellt wird"
Ich habe aus eigener schmerzlicher Erfahrung lernen müssen, daß der Satz seine Berechtigung hat. Darum sollte die Bitmap an die Scrennshot-Routine übergeben werden. Das erleichtert die Fehlersuche doch ungemein.

Gruß
K-H

OK muss ich dir recht geben.
Ziehe meinen Einwand zurück.
Davon ab diesen C&P Code kann man eh vergessen, wie dem auch sei.

gruss

[Schokohase]

Zitat von p80286:

Zitat von EWeiss:

Wichtig ist doch nur das ein Bitmap zurückgegeben wird.

"Ein Objekt soll da freigegeben werden, wo es erstellt wird"
Ich habe aus eigener schmerzlicher Erfahrung lernen müssen, daß der Satz seine Berechtigung hat. Darum sollte die Bitmap an die Scrennshot-Routine übergeben werden. Das erleichtert die Fehlersuche doch ungemein.

Gruß
K-H

Ja, das sollte man so machen, aber warum dann

Zitat von p80286:

Dann macht mans so
procedure GetScreenShot(var mybm: TBitmap);

also als var Argument? Das macht doch gar keinen Sinn. Denn diesen Referenz-Zeiger die man hineingibt will man doch nicht in der Methode ändern.

Da sollte man besser ein const von machen (was im Hinblick auf ARC auch noch einen Vorteil bringt).

Also procedure GetScreenShot(const mybm: TBitmap); .