я пока вот до такого дошел)
mas:array of byte;
b:bitmap;
begin
b.Height:=750;
b.width:=1000;
setlength(mas,750*1000*3);
//я решил не гемороиться многомерным массивом, и сделал одномерный массив в котором 3(RGB)*750(высота битмапа)*1000(ширина битмапа)
for ch:=1 to 750 do copymemory(@(mas[ch*3000]),b.ScanLine[ch-1],3000);
end;
работает, но вроде с GETDIBits должно побыстрее??
|