Get Pixels

[XXcD]

Hallo,
kann mir einer verraten wie ich das von Flash in Delphi übersetzen kann?

Code:

function handleLoadComplete(event:Event) : void {
    var ba:ByteArray;
    
    var event:* = event;
    ba = event.target.content.bitmapData.getPixels(new Rectangle(0, 0, 30, 23));

Momentan mache ich das so:

Delphi-Quellcode:

var
a: array [0..689] of Byte;
...

  for I := 0 to 23 - 1 do
   begin
      for N := 0 to 30 - 1 do
       begin
        a[I*N]:=GetPixel(Form1.Image1.Picture.Bitmap.Handle, N, I);
       end;
   end;

Aber wenn ich versuche aus dem Array einen sha256 hash zu erstellen kommt ein falscher Wert raus.

[Notxor]

Warum i*n ?

Ich nehme mal an, du willst die einzelnen Pixel durchnummerieren.

Wenn du aber mit i*n rechnest, überschreibst du immer wieder mal alte Werte
(0*0 = 0*1 = 0*2 = ...)
Die Formel müsste also passend geändert werden

[XXcD]

Ahhhh stimmt, werde ich sofort ändern.

Ist das denn sonst so richtig?

[Notxor]

Delphi-Quellcode:

dc := GetDC(0);
farbe:=GetPixel(dc,x,y);
ReleaseDC(0, dc);

so in der Richtung müsste es gehen

[himitsu]

Zitat:

Zitat von XXcD (Beitrag 1085724)

Aber wenn ich versuche aus dem Array einen sha256 hash zu erstellen kommt ein falscher Wert raus.

Ich vermute auch mal, daß ein Pixel größer ist, als ein einzelnes Byte.
(jenachdem wie das Bild kodiert ist)

Man müßte also mal wissen was getPixels macht, bzw. in welchem Format es die Rohdaten der Pixel liefert und vorallem wieviele Bytes es zurückgibt.

[XXcD]

Also es ist ein PNG Bild mit 32 Bit.

Ich vermute mal, dass die Flash Version den Alphachannel mit ausliest.
Aber wie geht das in Flash, werden da die Daten hintereinander eingelesen?

ALso etwa so?

Byte[0]=Rotwert Pixel 1
Byte[1]=Grün Pixel 1
Byte[2]=Blau Pixel 1
Byte[3]=Alpha Pixel 1
Byte[4]=Rot Pixel 2
Byte[5]=Grün Pixel 2
...

[XXcD]

Ich wollte mal pushen, vielleicht kann mir ja noch einer helfen. Das Thema ist immernoch aktuell.

[Aphton]

Delphi-Quellcode:

var
  p: PByte;
  a: array [0..689] of Byte;

  with Form1.Image1.Picture.Bitmap do
    p := Scanline[Height-1];
  
  for i := 0 to 689 do
  begin
    a[i] := p^;
    inc( p );
  end;

...?

[Medium]

Die Reihenfolgen der Kanäle werden recht unterschiedlich gebraucht. Üblich sind ARGB, RGBA, ABGR und BGRA, wobei durch Endianess+Wortbreite dann noch quasi praktisch jede andere Kombination auftauchen könnte. Wenn du an die Flashquellen nicht ran kommst, hilft fast nur noch ausprobieren und Ergebnisse vergleichen. Ich weiss auch grad nicht aus dem Kopf, in wie weit PNG da variabel ist, wobei eben auch wenn man das wüsste, nicht gesichert ist, dass ein Loader da nicht wieder eine Neuordnung vornimmt.