PByteArray - Scanline für große Bilder

[bernhard_LA]

habe jetzt diese verwendet

Delphi-Quellcode:

type

  PLargeByteArray = ^TLargeByteArray;
  TLargeByteArray = array of Byte;

und dann in der Funktion

Delphi-Quellcode:

    
   aScanLineARRAY :  TLargeByteArray ;
    ysize : Integer ;
   

  begin

    aBmp.pixelformat := pf24bit;

    ysize := round (aBMP.Width *3) ;

    setlength( aScanLineARRAY, ysize );

    ....
           ByteLine := aBmp.ScanLine[ j ];



            BValueArray[ i - xstart, j - ystart ] := aScanLineARRAY[ 3 * i ];
            GValueArray[ i - xstart, j - ystart ] := aScanLineARRAY[ 3 * i + 1 ];
            RvalueArray[ i - xstart, j - ystart ] := aScanLineARRAY[ 3 * i + 2 ];

    ..