Forum: Multimedia
Delphi
by himitsu,
8. Sep 2004
Also PByteArray ist ein Zeiger auf TByteArray und TByteArray ist als "Array of Byte" definiert.
Length(P) hätte eh nicht funktioniert, da P ein Pointer ist und immer 4 Byte (derzeit) ist
So, das mit CompareMem läuft jetzt:
Procedure TForm1.Button1Click(Sender: TObject);
Var i, R, W, L, X: Integer;
BitMap, BitMap2: TBitMap;
Begin
BitMap := TBitMap.create;
Forum: Multimedia
Delphi
by himitsu,
8. Sep 2004
och menno, mußt du doch tatsächlich sowas altes ausgraben und dann auchnoch behaupten es ginge nicht :?
:coder2: Na dann werd' ich wohl mal nachgucken müssen
Forum: Multimedia
Delphi
by himitsu,
18. Mär 2004
p und p2 sind nur Zeiger auf die Array's (ScanLine's) und diese sind immer unterschiedlich, da die beiden Array's nie den selben Speicherplatz verwenden ;)
Du muß also die Daten vergleichen - ich hoffe mal, dass es mit CompareMem geht.
procedure TForm1.Button1Click(Sender: TObject);
var
i,w,r,x : integer ;
BitMap, BitMap2 : TBitMap;
P,P2 : PByteArray;