Grafik im Speicher erstellen für BlobStream (DB)

[KodeZwerg]

Ps: Randomize << das noch aufrufen bevor Random() aufgerufen wird, habs vergessen im oberen source.

[NoGAD]

Danke nochmal, ich habe es in eine Function gegossen:

Delphi-Quellcode:

type
  TRGB = record
    b, g, r: Byte;
  end;

  ARGB = array [0 .. 1] of TRGB;
  PARGB = ^ARGB;


function RandomBitmap(bmp: VCL.Graphics.TBitmap; iWidth: Integer = 225; iHeight: Integer = 225): Boolean;
var
  ix, iy: Integer;
  p: PARGB;
begin

  Result := default (Boolean);

  if (iWidth = 0) and (iHeight = 0) then
    exit;

  Randomize;
  try
    bmp.PixelFormat := pf24bit;
    bmp.Width := iWidth;
    bmp.Height := iHeight;
    for iy := 0 to (bmp.Height - 1) do
    begin
      p := bmp.ScanLine[iy];
      for ix := 0 to (bmp.Width - 1) do
      begin
        p[ix].r := random(High(Byte));
        p[ix].g := random(High(Byte));
        p[ix].b := random(High(Byte));
      end;
    end;
  finally
    Result := true;
  end;

end;


// Aufruf z.B.:

var
  Dummy_Image: Vcl.Graphics.TBitmap;
begin
  Dummy_Image := Vcl.Graphics.TBitmap.Create;
  RandomBitmap(Dummy_Image, random(50) + 225, random(50) + 225);
// hier was mit dem Bild machen
  Dummy_Image.Free;
end;

LG und schlaf gut

[KodeZwerg]

Delphi-Quellcode:

function RandomBitmap(Abmp: VCL.Graphics.TBitmap; const AWidth: Integer = 225; const AHeight: Integer = 225): Boolean;
type
  TRGB = record
    b, g, r: Byte;
  end;
  ARGB = array [0 .. 1] of TRGB;
  PARGB = ^ARGB;
var
  x, y: Integer;
  p: PARGB;
begin
  Result := False;
  if (AWidth = 0) or (AHeight = 0) then
    Exit(False);

  Randomize;

  if Abmp = nil then
    Abmp :=  Vcl.Graphics.TBitmap.Create;
  try
    Abmp.PixelFormat := pf24bit;
    Abmp.Width := AWidth;
    Abmp.Height := AHeight;
    for y := 0 to (Abmp.Height - 1) do
    begin
      p := Abmp.ScanLine[y];
      for x := 0 to (Abmp.Width - 1) do
      begin
        p[x].r := Random(High(Byte));
        p[x].g := Random(High(Byte));
        p[x].b := Random(High(Byte));
      end;
    end;
  finally
    Result := True;
  end;
end;

minimal abgeändert, jedenfalls würde es so bei mir aussehen.

[DeddyH]

Und den Speicher hast Du im Griff?

[NoGAD]

Zitat von DeddyH:

Und den Speicher hast Du im Griff?

Meinst Du bezüglich KodeZwerg's

Delphi-Quellcode:

 if Abmp = nil then
    Abmp := Vcl.Graphics.TBitmap.Create;

?

Das würde bei mir auch mittels Exit, bei nil, vorher abgefangen werden. Hatte ich in meinem Code vergessen.

LG

[KodeZwerg]

Zitat von DeddyH:

Und den Speicher hast Du im Griff?

Definitiv positiv.
(kein objekt da = erschaffe eins, ist eins da = mach was)


//edit
(ich gebe solche objekte per freeandnil frei)

[venice2]

Delphi-Quellcode:

 if not Assigned(Abmp) then
    Abmp := Vcl.Graphics.TBitmap.Create;

EDIT:
Warum?

Es wird sich immer beschwert das man NIE auf True oder False hin prüfen soll.
Was ist eine Prüfung auf Nil.. Ja oder Nein, 1 oder 0, True oder False.

Also es ist in jedem fall eine Prüfung darauf ob der Wert True oder False ist.

Wenn man sich schon hier beschwert ->
if (x = True) then
sollte das gleiche auch bei Nil gelten.

Denn Assigned liefert den korrekten wert nämlich True oder False.

Es ist nicht grundsätzlich falsch auf NIL zu prüfen aber dann hat auch die Prüfung auf True wie im Beispiel seine Berechtigung.
Wenn nicht dann bitte schön konsequent bleiben und auch nicht auf NIL hin prüfen. Dafür gibt es Assigned.

[NoGAD]

Wenn das Objekt aber in der Function erstellt wurde, übersieht man dann nicht außerhalb die Freigabe?

LG 👋🏻

[KodeZwerg]

Zitat von venice2:

Delphi-Quellcode:

 if not Assigned(Abmp) then
    Abmp := Vcl.Graphics.TBitmap.Create;

EDIT:
Warum?

Es wird sich immer beschwert das man NIE auf True oder False hin prüfen soll.
Was ist eine Prüfung auf Nil.. Ja oder Nein, 1 oder 0, True oder False.

Also es ist in jedem fall eine Prüfung darauf ob der Wert True oder False ist.

Wenn man sich schon hier beschwert ->
if (x = True) then
sollte das gleiche auch bei Nil gelten.

Denn Assigned liefert den korrekten wert nämlich True oder False.

Es ist nicht grundsätzlich falsch auf NIL zu prüfen aber dann hat auch die Prüfung auf True wie im Beispiel seine Berechtigung.
Wenn nicht dann bitte schön konsequent bleiben und auch nicht auf NIL hin prüfen. Dafür gibt es Assigned.

Inhaltlich beißt sich da irgendwie die katze am eigenen schwanz, oder?
Eine "if" abfrage, egal wie man sie formuliert, bleibt immer eine True oder False abfrage.
Uwe Raabe hatte doch gerade erst gezeigt das eine "if nil" und ein "if assigned()" per debugger den gleichen code ausspuckt oder irre ich mich jetzt total?

Ich nehme natürlich gerne ratschläge dazu an, also Danke für Deinen Ratschlag!!

[NoGAD]

Eine letzte Frage noch an KodeZwerg.


Warum hast Du aus meinem iWidth und iHeight ein AWidth und AHeight gemacht?

Hat es etwas mit dem A auf sich?

Ich hatte bisher das immer so gemacht, dass ich Variablen/Konstanten mit dem Vorzeichen des Types versehen hatte. iHeight = Integer Height.

LG Mathias