Probao sam
procedure TForm1.Button1Click(Sender: TObject);
Var i,Row : Integer;
a : Array of Integer;
begin
Row:=0;
SetLength(a,Image1.Width);
For i:=0 To Image1.Width-1 do a[i]:=Image1.Canvas.Pixels[i,Row];
end;
ali je prilicno sporo.
|
Prebacivanje bitmape u niz |
|
|
| ||||||||||
| ||||||||||
| ||||||||||
| ||||||||||
| ||||||||||
| ||||||||||
| ||||||||||
| ||||||||||
| ||||||||||
| ||||||||||
|
|