Как увеличить максимальный объем TImage больше 64Мб

[familytree]

Столкнулся с тем, что максимальный TImage 64Мб или
TImage.Height * TImage.Width не более 21475000 пикселей.
Надо рисовать и просматривать на канве рисунки больше чем 64 Мб.
Как обойти или изменить столь досадный факт?

[Absurd]

MapViewOfFile() + StretchDIBitsToDevice()

[Nikoshka]

familytree,
Можно использовать Bitmap, а на Image выводить все как на "камеру".

[somewhere]

Что-то я не понял?

Код: Выделить всё

procedure TForm1.BitBtn1Click(Sender: TObject);
var b : TBitmap;
begin
b := TBitmap.Create;
b.Width := 8192;
b.Height := 8192;
b.PixelFormat := pf24bit;
Image1.Picture.Bitmap := b;
end;

Выделено 192М памяти, кол-во пикселей - 64М. Все рисуется... никаких проблем...

[familytree]

Спасибо, все идеи хороши!
Поэксперементирую..

[familytree]

Мда.. функция MapViewOfFile() ОК! но примеров как ею пользоваться в инете не нашел.. А жаль..

[familytree]

Что-то я не понял?

Код: Выделить всё

procedure TForm1.BitBtn1Click(Sender: TObject);
var b : TBitmap;
begin
b := TBitmap.Create;
b.Width := 8192;
b.Height := 8192;
b.PixelFormat := pf24bit;
Image1.Picture.Bitmap := b;
end;

Выделено 192М памяти, кол-во пикселей - 64М. Все рисуется... никаких проблем...

Не тут то было. Delpi 6 пишет "Недостаточно памяти для обработки команды"

[somewhere]

Может у тебя оперативки мало, либо она вся используется?

[familytree]

Да оперативки та немного 196 Мб, но я думаю может причина в Windows 2000.
Вспоминаю когда стояла XP вроде не было такой проблеммы..
Что скажешь?

[Absurd]

Мда.. функция MapViewOfFile() ОК! но примеров как ею пользоваться в инете не нашел.. А жаль..

http://msdn2.microsoft.com/en-us/library/aa914748.aspx
http://msdn2.microsoft.com/en-us/library/aa914405.aspx