JPEG Error

[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); .

[p80286]

nicht zu Ende gedacht

Gruß
K-H