Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Массив байт в JPEG (картинка) [D7, Win2k]

ggg111 © (2009-03-26 12:29:00)
Добрый...
получаю с устройства картинку - массив байт изображения JPEG
640х480 16 bit color
как обработать данный массив, т.е. отобразить на форме?

Тыщ (2009-03-27 08:12:00) [1]
А можно узнать содержание массива?

DVM (2009-03-27 00:21:00) [2]

> 640х480 16 bit color

Чке то я не слышал, чтобы в JPEG был 16 бит цвет. Обычно 24 бит или 8, если он в оттенках серого. А вот чтобы 16... 16 бит бывают JPEG2000 картинки. Может это JPEG2000?

Сергей М. (2009-03-26 17:35:00) [3]
Ну если GetDataFromDevice возвращает размер собственно JPEG-кодированных данных 640х480х16, то наверно заголовок придется формировать самому.

clickmaker (2009-03-26 17:31:00) [4]
> как массив отобразить на экране

там что - только само изображение, без заголовка, т.е. битовая карта?

GGG111 (2009-03-26 17:27:00) [5]
Ну поскольку вопрос то как массив отобразить на экране я пока не заморачивался по поводу Х он просто указан примерно 2*Size

естественно я позабочусь о том чтобы не выйти за границу массива.

BigBuff : array of Byte;

...
Size := GetDataFromDevice;
SetLength (BigBuff, Size + 1);

Сергей М. (2009-03-26 17:21:00) [6]

> X - получен "с потолка"

Зашибись.
А если X, свалившийся с потолка, вдруг окажется меньше Size ? Ведь GetDataFromDevice, насколько я понимаю, возвращает полный размер данных, являющих собой полноценное JPEG-кодированное изображение, запрошенное у дивайса для передачи ?

GGG111 (2009-03-26 17:08:00) [7]
X - получен "с потолка"

Size := GetDataFromDevice;

Сергей М. (2009-03-26 17:07:00) [8]
Чему равен X ?
Откуда ты узнал Size ?

GGG111 (2009-03-26 17:05:00) [9]
GetDataFromDevice
- запрос данных с устройства в формате JPEG разрешение 640 на 480 color 16 bit

BigBuff : array [0..X] of Byte;

в ответ на это получаю массив байт размером Size .
while (True) do
begin
....
end;

Далее вопрос как это все дело отобразить на форме?

Да, конечно, я могу сделать

T : TMemoryStream;
T.Size := Size;
T.ReadBuffer (BigBuff,Size);

и получить Stream

(и потом естественно сразу писать в данные в Stream без буффера)

Сергей М. (2009-03-26 16:57:00) [10]
Что творится в GetDataFromDevice ?
Где анализ результата вызова ReadFile ?
И где тут фигурирует TStream ?

GGG111 (2009-03-26 16:49:00) [11]
InitComm;
GetDataFromDevice;
j := 0;
while (True) do
begin
ReadFile (hComm,BigBuff[j],512,dwREaded,nil);
if (dwreaded = 0) then break;
inc (j,dwReaded);
end;

вообщем-то вот так...

Сергей М. (2009-03-26 16:43:00) [12]

> в потоке нет заголовка JPEG

Как получаешь поток ?
Иллюстрируй в коде ..

GGG111 (2009-03-26 16:28:00) [13]
Абсолютно уверен, потому что это написано в спецификации.

DrPass (2009-03-26 15:39:00) [14]

> но в потоке нет заголовка JPEG

А ты уверен, что это именно JPEG?

ggg111 (2009-03-26 13:58:00) [15]
LoadFromStream ?

но в потоке нет заголовка JPEG
самому сделать?

Дмитрий С (2009-03-26 12:44:00) [16]
uses Jpeg

TJpegImage

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »