TRGBTriple

[Reap3r]

Hi Leute!

Ich habe eine Frage zu TRGBTriple.

Ich habe eine Variable, die als ^TRGBTriple deklariert wird.
Wenn ich Scanline verwende, weise ich der Variablen damit eine Zeile oder einen Pixel zu?

Was bewirkt inc(Variable) in diesem Fall?

danke für eure Antworten!

[Bummi]

Ein Zeiger auf 3 Byte für ein Bitmap mit dem Pixelformat pf24bit, ein inc setzt ihn um 3 Byte weiter also auf das nächste "Pixel".

[himitsu]

Delphi-Quellcode:

type
  TRGBRec = packed record  R, G, B: Byte;  end;  // oder war's B,G,R ?
  TRGBArr = array[0..0] of TRGBRec;
  PRGBArr = ^TRGBArr;

Und nun einfach den Scanline-Pointer nach PRGB casten.
Das Ergebnis ist nun ein Array aller Pixel der gewählten Zeile.

Delphi-Quellcode:

var 
  P: PRGBArr;
  Pixel: TRGBRec;
P := PRGBArr(b.Scanline[x]);
Pixel := P^[y];  // das ^ ist in Delphi nicht unbedingt nötig
Pixel := P[y];
Pixel := PRGBArr(b.Scanline[x])[y];

Und natürlich nicht das pf24bit vergessen.

[Reap3r]

Hab ich das so richtig verstanden? :

Scanline weißt einer Variablen eine ganze Zeile einer bmp zu.
Durch inc wird immer der nächste Pixel dieser Zeile genommen.

[himitsu]

Jupp.

Inc auf einen typisierten Zeiger angewendet, setzt diesen auf den nächsten Wert.


aus

Delphi-Quellcode:

Inc(P);

wird delphiintern quasi

Delphi-Quellcode:

Inc(P, SizeOf(P^));

, bzw. sowas Ähnliches wie

Delphi-Quellcode:

P := Pointer(Integer(P) + SizeOf(P^));

.

[Reap3r]

Alles klar, danke!

[s.h.a.r.k]

Zitat:

Zitat von himitsu (Beitrag 1085750)

Delphi-Quellcode:

type
  TRGBRec = packed record  R, G, B: Byte;  end;  // oder war's B,G,R ?
  TRGBArr = array[0..0] of TRGBRec;
  PRGBArr = ^TRGBArr;

Und nun einfach den Scanline-Pointer nach PRGB casten.
Das Ergebnis ist nun ein Array aller Pixel der gewählten Zeile.

Delphi-Quellcode:

var 
  P: PRGBArr;
  Pixel: TRGBRec;
P := PRGBArr(b.Scanline[x]);
Pixel := P^[y];  // das ^ ist in Delphi nicht unbedingt nötig
Pixel := P[y];
Pixel := PRGBArr(b.Scanline[x])[y];

Und natürlich nicht das pf24bit vergessen.

Noch ein Hinweis hierzu: Sollte man die Bereichsüberprüfung aktiviert haben, dann kracht es unter Umständen aufgrund dieser Definition:

Delphi-Quellcode:

TRGBArr = array[0..0] of TRGBRec;

. Man sollte daher die obere Grenze nicht 0, sondern wesentlich größer setzen, sodass die Bereichsprüfung nicht zuschlagen kann.