Создать пустое полноцветное изображение

[casio23]

скажите есть ли функция imagecreatetruecolor для делфи.В Си и PHP она есть. Функция imagecreatetruecolor - Создает пустое полноцветное изображение.

Синтаксис:
resource imagecreatetruecolor (int x_size, int y_size)[/I]

и вот еще одна magecopyresampled

вот код который нужно подстроить под делфи, кто знает синтаксис С помогите решить задачу. Главное 2 функции достать(imagecreatetruecolor, magecopyresampled)

    private function _getPixelsDiff($Image)
        {
           $Sample = imagecreatetruecolor(8, 8);
           imagecopyresampled($Sample, $Image, 0, 0, 0, 0, 8, 8, imagesx($Image), imagesy($Image));
           
           $Pixels = array();
           $Color = array(0, 0, 0);
           for ($y = 0; $y < 8; $y++)
           {
               for ($x = 0; $x < 8; $x++)
               {
                   $Color1 = imagecolorat($Sample, $x, $y);
                   $Color1 = $this->_scale255To9(array(
                       ($Color1 >> 16) & 0xFF,
                       ($Color1 >> 8) & 0xFF,
                       $Color & 0xFF
                   ));
                   
                   if ($x != 0 || $y != 0)
                   {
                       $Pixels[] = array(
                           $Color1[0] - $Color[0],
                           $Color1[1] - $Color[1],
                           $Color1[2] - $Color[2]
                       );
                   }
     
                    $Color = $Color1;
                }
            }

[SNUPY]

var
  Btm: TBitmap;
...
Btm := TBitmap.Create;
Btm.width :=X;
Btm.height :=X;

[casio23]

а как с этим быть?

imagecopyresampled($Sample, $Image, 0, 0, 0, 0, 8, 8, imagesx($Image), imagesy($Image));

[Rin]

а как с этим быть?

Код:


imagecopyresampled($Sample, $Image, 0, 0, 0, 0, 8, 8, imagesx($Image), imagesy($Image));

функция Bitblt.

[casio23]

вот что получилось
подскажите с кодом верен он или нет

В конструкторе на каждое изображение вызывается метод _getPixelsDiff(), и его результат кладется в массив Images. Этот метод производит такие манипуляции:
Уменьшает изображение до размеров 8x8.
Создает массив для цветов.
Проходится по каждому пикселю изображения:
Берет его цвет в RGB.
Каждый канал делит на 28.3 и округляет, чтобы максимальное значение канала было равно 9-ти.
Вычитает из каждого канала значение предыдущего пикселя.
Результат кладется в массив и возвращается.

Ну, далее в Compare() вызывается метод _getDiff(), который находит разницу между массивами.

С:

class ImagesComparer
{
 
    const
        BAD_ARGS = 1,
        UNSUPPORTED_FILETYPE = 2,
        ERROR_OPEN = 3;
 
    public $Images = array();
 
    private
        $_types = array('', 'gif', 'jpeg', 'png', '', '', 'wbmp', '', '', '', '', '');
 
    public $CompareWithFirst = false;
 
    public function __construct($Image1, $Image2 = null)
    {
        if (func_num_args() > 2)
            $Images = func_get_args();
        else if (is_array($Image1))
            $Images = $Image1;
        else
            $Images = array($Image1, $Image2);
 
        foreach ($Images as $Image)
        {
            if (is_string($Image))
                $this->_openImage($Image);
            else if (is_resource($Image))
                $this->Images[] = array($this->_getPixelsDiff($Image), array());
            else
                throw new Exception('Bad arguments.', self::BAD_ARGS);
        }
    }
 
    private function _getImageType($Image)
    {
        $Type = getimagesize($Image);
        if (!$Type = $this->_types[$Type[2]])
            throw new Exception('Image have an unsupported file type.', self::UNSUPPORTED_FILETYPE);
 
        return 'imagecreatefrom' . $Type;
    }
 
    private function _openImage($Image)
    {
        $Type = $this->_getImageType($Image);
        $Image = $Type($Image);
        if (!$Image)
            throw new Exception('Error opening image.', self::ERROR_OPEN);
 
        $this->Images[] = array($this->_getPixelsDiff($Image), array());
        imagedestroy($Image);
    }
 
    private function _getPixelsDiff($Image)
    {
        $Sample = imagecreatetruecolor(8, 8);
        imagecopyresampled($Sample, $Image, 0, 0, 0, 0, 8, 8, imagesx($Image), imagesy($Image));
 
        $Pixels = array();
        $Color = array(0, 0, 0);
        for ($y = 0; $y < 8; $y++)
        {
            for ($x = 0; $x < 8; $x++)
            {
                $Color1 = imagecolorat($Sample, $x, $y);
                $Color1 = $this->_scale255To9(array(
                    ($Color1 >> 16) & 0xFF,
                    ($Color1 >> 8) & 0xFF,
                    $Color & 0xFF
                ));
 
                if ($x != 0 || $y != 0)
                {
                    $Pixels[] = array(
                        $Color1[0] - $Color[0],
                        $Color1[1] - $Color[1],
                        $Color1[2] - $Color[2]
                    );
                }
 
                $Color = $Color1;
            }
        }
        imagedestroy($Sample);
 
        return $Pixels;
    }
 
    private function _scale255To9($NumArr)
    {
        return array(
            round($NumArr[0] / 28.3),
            round($NumArr[1] / 28.3),
            round($NumArr[2] / 28.3)
        );
    }
 
    private function _getDiff($Img1, $Img2)
    {
        $Diff = 0;
        for ($i = 0; $i < 63; $i++)
        {
            $Diff += abs($this->Images[$Img1][0][$i][0] - $this->Images[$Img2][0][$i][0]);
            $Diff += abs($this->Images[$Img1][0][$i][1] - $this->Images[$Img2][0][$i][1]);
            $Diff += abs($this->Images[$Img1][0][$i][2] - $this->Images[$Img2][0][$i][2]);
        }
 
        return $Diff;
    }
 
    public function Compare()
    {
        $count = count($this->Images);
 
        if ($this->CompareWithFirst)
        {
            for ($i = 1; $i < $count; $i++)
            {
                $this->Images[0][1][$i] = $this->_getDiff(0, $i);
            }
        }
        else
        {
            for ($i = 0; $i < $count; $i++)
            {
                for ($k = $i + 1; $k < $count; $k++)
                {
                    //echo "\r\n<br />" .
                    $this->Images[$k][1][$i] =
                        $this->Images[$i][1][$k] = $this->_getDiff($i, $k);
                }
            }
        }
    }
 
}

[casio23]

Делфи:

type Color = array [0..2] of integer;
Pixels = array [0..64] of Color;
end;
function _scale255To9(clr:Color):Color;
var clr1:Color;
begin
clr1[0]:=round(clr[0]/28.3);
clr1[1]:=round(clr[1]/28.3);
clr1[2]:=round(clr[2]/28.3);
Return:= clr1;
end;
 
function getImageType(image:TBitmap):Pixels;
var sample:TBitmap;
i,x,y,clr1:integer;
pixels:Pixels;
color,color1:Color;
begin
sample = TBitmap.create();
sample.wtidth := 8;
sample.height := 8;
image.Canvas.copyrect(Bounds(0,0,8,8),image.Canvas,Bounds(0,0,8,8));
i:=0;
for y := 0 to 8 do begin
for x := 0 to 8 do begin
clr1 := sample.Canvas.Pixels[x,y]; 
color1[0] :=(clr1 shr 16) and 255;
color1[1] :=(clr1 shr 8) and 255;
color1[2] := clr1 and 255;
color1 := _scale255To9(color1);
if (x= 0) or (y=0) then begin
color[0] := color1[0] - color[0];
color[1] := color1[1] - color[1];
color[2] := color1[2] - color[2];
pixels[i]: = color;
inc(i);
 
end;
color := color1;
end;
end;
Result:= pixels;
end;