Bitmap aus Array

[fLaSh11]

Hallo,

In meinem

Delphi-Quellcode:

Array[1..50,1..50]of Byte

stehten Nullen und Einsen.
Wie kann ich nun aus meinem Array eine Bitmap erstellen.

-Wenn im Array eine 1 steht, soll das gleichnamige Pixel(z.B. [1,12]) grau werden.
-Wenn im Array eine 2 steht, soll das Pixel schwarz werden.
-Die Bitmap soll, wie das Array 50x50 (oder variabel, wie das Array) groß sein.

Also ich dachte mir, dass man mit einer for-Schleife kommt und innen dass für die Farben mit if-Schleifen. Aber ich hab keine Ahnung, wie man Pixel in einer Bitmap erstellt^^.

P.S.: Die Forensuche ergab nichts dergleichen o.O

[Luckie]

Wenn ich mich nicht irre, besitzt TBitmap die Methode SetPixel.

[semo]

*arrrggghhhh*

Zitat:

if-schleifen

:roll:

sowas gibt es nicht... :wink:

[Yahibanez]

kannst es mit nem temporären TImage versuchen.

Delphi-Quellcode:

Image1.Canvas.Pixels[pos_x,pos_y] := $00202020;

kannst dann ja die arrays in nen Hex-Code umwandeln, alle 3 Plätze gleichmachen und schon haste nen Grauton.
pos_x & pos_y kannste auch vom array abhängig machen

[Flo85]

Zitat:

Zitat von fLaSh11

Hallo,

In meinem

Delphi-Quellcode:

Array[1..50,1..50]of Byte

stehten Nullen und Einsen.
-Wenn im Array eine 1 steht, soll das gleichnamige Pixel(z.B. [1,12]) grau werden.
-Wenn im Array eine 2 steht, soll das Pixel schwarz werden.

wenn du nur grau und schwartz hast kanste doch Boolean nehmen

Delphi-Quellcode:

Array[1..50,1..50]of boolean

[DGL-luke]

Delphi-Quellcode:

type
  TGrayArray = array of array of Byte;

function MakeGray(values: TGrayArray): TBitMap;
var x,y:Integer;
begin
  Result := TBitmap.create;               //erzeugen
  Result.Width := length(values);
  Result.height := length(values[0]);
  Result.Canvas.Brush.Color := clblack;
  Result.canvas.Rectangle(0,0,Result.Width,Result.Height); //schwarz färben

  for x := 0 to high(values) do
    for y := 0 to high(values[x]) do
      if y < Result.Width then
        begin
          Result.Pixels[x,y] := rgb(values[x,y],values[x,y],values[x,y]); //sehr langsam! scanline/GR32 ist besser!
        end
      else
        Break;  //wir wollen nicht über die bitmapgrenzen hinaus malen
end;

Nicht getestet.

[turboPASCAL]

Übrigens, warum ein Array erstellen wenn man schon ein Bitmap hat ?
Dieses kann doch auch das Bitmap übernehmen ... nur mal so nebenbei.

[DGL-luke]

Ausgangssituation war "habe Array", nicht "habe Bitmap". :gruebel:

EDIT: hier nochmal mit scanline, man will ja nicht kleinlich sein:

Delphi-Quellcode:

type
  TGrayArray = array of array of Byte;

function MakeGray(values: TGrayArray): TBitMap;
var x,y:Integer;
    row: Pointer;
begin
  Result := TBitmap.create;               //erzeugen
  Result.Width := length(values);
  Result.height := length(values[0]);
  Result.Canvas.Brush.Color := clblack;
  Result.canvas.Rectangle(0,0,Result.Width,Result.Height); //schwarz färben

  for y := 0 to high(values[0]) do
    begin
      row := Result.ScanLine[y];
      for x := 0 to high(values) do
       if (y < Result.Width) and (x < Result.Height) then
          TColor(Pointer(Integer(row)+x)^) := rgb(values[x,y],values[x,y],values[x,y]);
    end;
end;

kompiliert, nicht getestet.

[Khabarakh]

Wenn du es schon schnell haben willst, würde ich die if-Abfrage aus der Schleife rausnehmen und noch RGB ersetzen ;) .
Btw: Es ging nicht um Byte-Werte, sondern (0, 1, 2). Wenn ein So-Gut-Wie-Weiß reicht:

Delphi-Quellcode:

// values[i] sei für alle i gleichlang

function MakeGray(values: TGrayArray): TBitMap;
var 
  x, y: Integer;
  ptr: PCardinal; // 32bit
begin
  Result := TBitmap.create; 
  Result.Width := length(values);
  Result.height := length(values[0]);
  
  for y := 0 to high(values[0]) do
    begin
      ptr := Result.ScanLine[y];
      for x := 0 to high(values) do
      begin 
          ptr^ := $7F7F7F * values[x, y];
          Inc(ptr);
      end;
    end;
end;