Grafik im Speicher erstellen für BlobStream (DB)

[NoGAD]

Jetzt habe ich auch eine aussagekräftige Fehlermeldung:


[dcc32 Fehler] Unit_Hauptformular.pas(1390): E2010 Inkompatible Typen: 'tagBITMAP' und 'TBitmap'

var
Dummy_Image: TBitmap;
begin
Dummy_Image := Vcl.Graphics.TBitmap.Create;


Was ist bitte tagBITMAP?

LG


Edit: https://www.delphipraxis.net/192782-...verwendet.html dort war die Lösung versteckt

[KodeZwerg]

Nutze auch im var den vollen namen.
tagBITMAP ist in Windows definiert. da beißt sich was.

also es gibt auch winapi.windows.tbitmap <<< deswegen

[NoGAD]

Vielen Dank, Du hast mir sehr geholfen

PS: gibt es schon eine fertige Funktion, um ein Zufallsbild zu erzeugen?

LG

[KodeZwerg]

nicht das ich wüsste, aber per iteration (über width und height) kannst du bunte punkte setzen...

Zitat von NoGAD:

Vielen Dank, Du hast mir sehr geholfen

Gerne!

[KodeZwerg]

nur mal auf die schnelle dahingedaddelt. erwarte keine wunder.

Delphi-Quellcode:

procedure TForm9.FormCreate(Sender: TObject);
type
  TRGB = record
    b,g,r: Byte;
  end;
  ARGB = array [0..1] of TRGB;
  PARGB = ^ARGB;
var
  p: PARGB;
  x,y: Integer;
  bmp: Vcl.Graphics.TBitmap;
begin
  bmp := Vcl.Graphics.TBitmap.Create;
  try
    bmp.PixelFormat := pf24bit;
    bmp.Width := 50;
    bmp.Height := 50;
    for y := 0 to (bmp.Height - 1) do
    begin
      p := bmp.ScanLine[y];
      for x := 0 to (bmp.Width - 1) do
        begin
          p[x].r := Random(High(Byte));
          p[x].g := Random(High(Byte));
          p[x].b := Random(High(Byte));
        end;
    end;
    // mach was...
  finally
    bmp.Free;
  end;
end;

[NoGAD]

Das ist nett

[KodeZwerg]

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