|
Registriert seit: 31. Mai 2009
1.198 Beiträge
Turbo Delphi für Win32
|
AW: Get Pixels
6. Mär 2011, 13:46
Delphi-Quellcode:
var
p: PByte;
a: array [0..689] of Byte;
with Form1.Image1.Picture.Bitmap do
p := Scanline[Height-1];
for i := 0 to 689 do
begin
a[i] := p^;
inc( p );
end;
...?
das Erkennen beginnt, wenn der Erkennende vom zu Erkennenden Abstand nimmt
MfG
|