Developing.ru

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

MapViewOfFile() + StretchDIBitsToDevice()

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

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

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

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

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М. Все рисуется... никаких проблем...

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

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

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

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

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