Hallo Gemeinde,
ich würde gern den mittleren
RGB-Wert eines Bitmaps berechnen, und bin nun auf folgenden C++ Code
gestoßen , von dem ich ahne
, dass er ganu das macht, was ich bräuchte.
Problem:
C++!
Hat jemand von euch vielleicht genügend C++ Kenntnisse um mir bei der Übersetzung nach Delphi zu helfen?
Delphi-Quellcode:
public static function averageColours( source:BitmapData, colours:int ):Array
{
var averages:Array = new Array();
var columns:int = Math.round( Math.sqrt( colours ) );
var row:int = 0;
var col:int = 0;
var x:int = 0;
var y:int = 0;
var w:int = Math.round( source.width / columns );
var h:int = Math.round( source.height / columns );
for (var i:int = 0; i < colours; i++)
{
var rect:Rectangle = new Rectangle( x, y, w, h );
var box:BitmapData = new BitmapData( w, h, false );
box.copyPixels( source, rect, new Point() );
averages.push( averageColour( box ) );
box.dispose();
col = i % columns;
x = w * col;
y = h * row;
if ( col == columns - 1 ) row++;
}
return averages;
}
Probleme bereitet mir z.B. die Deklaration des Arrays:
var averages:Array = new Array();
Von welchem Typ ist das Array -- ist das ein dynamsiches Array?
Was sind BitmapData -- eine Var vom Typ TImage?
Ihr seht -- Hilfe wäre schon prima.
Vielen Dank
Jazzman