[monax_111]

Господа, чисто теоретический вопрос, вот в дельфи 7 есть объект Битмап, я представляю его расположение в памяти как многомерного массива. и единица составляющая его(кирпичики, вагончики, короче самое мелкое) составляют байты(так как цвет записывается в 3 байта(RGB))
вообще моя цель это быстро перекидывать битмап в многомерный массив Тcolora, но я подошел к этому не стандартно. я хочу создать битмап, создать массив, и с помощью copymemory перекинуть одно в другое) массив я создаю с помощью paced records так что с его устройством понятно - последовательность байтов, монолитным блоком, а вот что твориться в битмапе???
извиняюсь за возможное неграмотное объяснение проблемы)))

[NumLock]

GetDIBits function

[monax_111]

Сообщение от NumLock

GetDIBits function

эээ все прочел, но ничерта не понял, можно хоть краткое пояснение??

[angvelem]

Видно плохо читал, или вообще читать не стал. Указанная функция : "retrieves the bits of the specified bitmap and copies them into a buffer using the specified format.".
Что в вольном переводе: "Извлекает биты определенного битмапа и копирует их в буфер, используя определенный формат.".
Осталось теперь в полученный буфер скопировать свои данные в нужном формате, а они быват разные, и вернуть обратно в битмап функцией SetDIBits.

[icWasya]

Сообщение от monax_111

Господа, ... , извиняюсь за возможное неграмотное объяснение проблемы)))

Если совсем по Дельфийски - то
свойство битмапа PixelFornat - указвает, сколько бит на один пиксель
свойство SkanLine[i] - прямой указатель на буфер i-ой строки

[monax_111]

О великие умы, не злитесь на меня, но я не понимаю что такое
"Дескриптор контекста устройства."
а так же
"HBITMAP hbmp, // дескриптор рисунка"
и как все это вытянуть из моего bitmapa??

вроде для первого есть getDC но как там получить дескриптор окна не понял(((

если можно пример????

[monax_111]

я пока вот до такого дошел)

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 должно побыстрее??

[angvelem]

Динамические массивы всегда адресуются с 0.

Код:

for ch:=1 to 750 do ...

это кака.
И пока непонятна сама цель сей Великой задачи.
P.S. Забыл добавить, функция ScanLine, использует GetDIBits.

[monax_111]

Сообщение от angvelem

Динамические массивы всегда адресуются с 0.

Код:

for ch:=1 to 750 do ...

знаю, сглупил

это кака.
И пока непонятна сама цель сей Великой задачи.

вообще моя задача - быстрая работа с изображение, в основном со значениями RGB. сначала я по дедовскому способу создал многомерный массив TColora и с помощью двух циклов засовывал значение Bitmap.canvas.pixels[x,y] в массив))
но это было оч долго и меня это не утраивало.
то что ты назвал какой оч быстро перекидывает из bitmapa в массив, с которым я работал.
сейчас я вообще попытался обойтись без массива, и все значения цветов получать прям из памяти... кстати успешно)!)!)!)

Код:

var
br,bg,bb:byte;
 P: ^byte;
begin
 for ch:=0 to 749 do
 begin

 P:=pointer(b.ScanLine[ch]);
 for ch1 :=0 to 999 do
 begin
 br:=p^;
 inc(p);
 bg:=p^;
 inc(p);
 bb:=p^;
 inc(p);
 image1.Canvas.pixels[ch1,ch]:= br shl 16 or bg shl 8 or bb;
 end;
 end;
end;

вывод( image1.Canvas.pixels[ch1,ch]) пока плохо сделан, но он служит лишь для проверки значений)