Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.05.23;
Скачать: [xml.tar.bz2];

Вниз

Можно ли как-нибудь ускорить работу с Canvas.Pixels   Найти похожие ветки 

 
JC   (2002-05-04 12:04) [0]

Мне надо обрабатывать Большую картинку (1024х768) переставляя в ней пиксели, но при стандартных функциях это занимает от 30 сек до 1,5 минуты, видел подобную программу под DOS, скорость мгновенная. Заранее благодарен.


 
Song   (2002-05-04 12:44) [1]

Эта програма была сделана на асме.


 
JC   (2002-05-04 12:49) [2]

Помоему на "C"...


 
MBo   (2002-05-04 14:08) [3]

при работе через Scanline скорость повысится на 1-2 порядка.
При использовани GetDiBits, если это подходит, можно еще быстрее.
Посмотри также сайт delphigfx.mastak.ru.


 
SPeller   (2002-05-04 14:13) [4]

Используй WinAPI и всё будет "летать".


 
JC   (2002-05-07 20:43) [5]

SPeller А можно хотя-бы одну процедуру(функцию) для поиска.


 
Nikolay   (2002-05-07 21:03) [6]

scanline


 
JC   (2002-05-07 23:45) [7]

Да, может что-то со мной, но по-моему GetDiBits копирует построчно, а надо попиксельно. Если я ошибаюсь, кто-нибудь приведите пример аналога Canvas.Pixels[x+z,y]:=Canvas.Pixels[x,y]


 
MBo   (2002-05-08 07:08) [8]

C помощью GetDiBits получаем двумерный массив, причем с инверсией - левй угол картинки в конце массива, делаем манипуляции, потом SetDiBits


 
JC   (2002-05-08 19:52) [9]

А хоть чуть-чуть исходника, если можно.


 
JC   (2002-05-09 16:04) [10]

MBo можешь хоть короткий пример привести?


 
MBo   (2002-05-09 21:24) [11]

procedure TForm1.Button1Click(Sender: TObject);
var b:tbitmap;
a:array[0..9,0..9] of TRGBQuad;
bi:tbitmapinfo;
i,j:integer;
s:string;
begin
b:=tbitmap.create;
b.PixelFormat:=pf24bit;
b.width:=10;
b.height:=10;
b.canvas.MoveTo(0,0);
b.canvas.LineTo(5,5);
image1.picture.assign(b);
with bi.bmiHeader do begin
biWidth:=b.Width;
biHeight:=b.Height;
biSize:=SizeOf(TBITMAPINFOHEADER);
biCompression:=BI_RGB;
biBitCount:=32;
biPlanes:=1;
biSizeImage:=0;
end;
GetDiBits(b.canvas.handle,b.handle,0,10,@a,bi,DIB_RGB_COLORS);
for i:=0 to 9 do begin
s:="";
for j:=0 to 9 do
s:=s+inttohex(a[i,j].rgbGreen,2) +" ";
memo1.lines.add(s);
end;
memo1.lines.add("");

PatBlt(b.canvas.handle,0,0,10,10,whiteness) ;

for i:=0 to 9 do
for j:=0 to 9 do begin
a[i,j].rgbRed:=0;
a[i,j].rgbGreen:=255*Ord(i<>j);
a[i,j].rgbBlue:=0;
end;

for i:=0 to 9 do begin
s:="";
for j:=0 to 9 do
s:=s+inttohex(a[i,j].rgbGreen,2) +" ";
memo1.lines.add(s);
end;

SetDiBits(b.canvas.handle,b.handle,0,10,@a,bi,DIB_RGB_COLORS);
image2.picture.assign(b);
b.free;
end;



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.05.23;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.46 MB
Время: 0.011 c
1-73297
Neon_space
2002-05-11 17:12
2002.05.23
Конвертирование проектов Delphi в проекты C++ Builder


6-73335
Nevmerj
2002-03-13 13:30
2002.05.23
Вопросик по Named Pipes


1-73233
Kopachev
2002-05-15 09:50
2002.05.23
А можно ли изменить объект, хранящийся в списке.


6-73327
Shumer
2002-03-07 22:43
2002.05.23
Как создать Анализатор статистики прохи сервера на Delpi


1-73245
Dimaiv
2002-04-26 19:47
2002.05.23
Как в DbGrid сделать так чтобы Hint появлялся только после





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский