открыть большой графический файл побитно

[FoggySpurs]

Rin -спасибо ! попробую)

[s-andriano]

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

Первый пиксель записан в 4 битах 5047037440-...37 бите

Можно расчет - как получается это число?

[FoggySpurs]

это размер файла минус длинна строки

[s-andriano]

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

Ну так и идите от конца файла.

var
f:TMemoryStream;
r,g,b:byte;
begin
f:=TMemoryStream.Create;
f.LoadfromFile('1.bmp');
f.seek(3,soEnd);// читать с конца (если указать soBeginning вместо soEnd, то
// перейдем на 4 байт от начала, т.к. первый байт под номером "0")
f.Read(b,1);
f.Read(g,1);
f.Read(r,1);
PaintBox1.Canvas.Pixels[0,0]:=RGB(r,g,b);
f.Free;
end;

Да уж...
Нет, если читать файл побайтно вместо того, чтобы по сканлиниям, то, возможно, задержки от того, что файл читается с конца, а не с начала, и не будут слишком заметными.

Я бы читал файл с начала, переписывая сканлинии целиком в буфер, в котором сформировал бы образ BMP-файла нужного размера. И уже этот файл отображал бы в нужном месте формы.

[FoggySpurs]

мне важно что бы занималось как можно меньше памяти( требование такое) и способ подходил для всех бмп!Зачем сканить всю строку в 12859 пикселей если вывести нужно будет всего 665?

[FoggySpurs]

var
f:TMemoryStream;
r,g,b:byte;
begin
f:=TMemoryStream.Create;
f.LoadfromFile('1.bmp');
f.seek(3,soEnd);// читать с конца (если указать soBeginning вместо soEnd, то
// перейдем на 4 байт от начала, т.к. первый байт под номером "0")
f.Read(b,1);
f.Read(g,1);
f.Read(r,1);
PaintBox1.Canvas.Pixels[0,0]:=RGB(r,g,b);
f.Free;
end;
в этом коде куда писать номер байта который нужен? и что означает число 3 в seek?

[s-andriano]

Кто сказал "всю строку"?
Просто вместо 1995 чтений по 1 байту нужно сразу читать фрагмент файла длиной 1995 байт.
Т.е. "всю строку", но не исходного изображения, а требуемого фрагмента.

[Rin]

Этот не юзайте:

var
f:TMemoryStream;
r,g,b:byte;
begin
f:=TMemoryStream.Create;
f.LoadfromFile('1.bmp');
f.seek(3,soEnd);// читать с конца (если указать soBeginning вместо soEnd, то
// перейдем на 4 байт от начала, т.к. первый байт под номером "0")
f.Read(b,1);
f.Read(g,1);
f.Read(r,1);
PaintBox1.Canvas.Pixels[0,0]:=RGB(r,g,b);
f.Free;
end;

Он основывался на том, что последние 3 байта файла, это первый пиксель. Но оказалось, что s-andriano был прав. Я исправил код.

[Rin]

Это означает, что перейдем на 3 байт с конца файла.

f.seek(3,soEnd)

А это

Read(b,1)

считает 3 байт с конца, и перейдет на 2 байт с конца.

[FoggySpurs]

а как тогда это загнать в цикл зная размеры нужного фрагмента?