Согласно wiki JPG может быть размером 65535х65535.
var
jpg: TJpegImage;
begin
jpg := TJpegImage.Create;
jpg.SetSize(65535,65535);
jpg.SaveToFile('d:\BigJP.jpg');
jpg.Free;
end;
Выдает ошибку:
First chance exception at $000007FEFD63A06D. Exception class EInvalidGraphicOperation with message 'Cannot change the size of a JPEG image'. Process Project1.exe (7948)
jpg.SetSize(32767,32767);
Tакая же ошибка, в Лазарусе лучше, но тоже максимального размера добиться не удалось. Аппаратные возможности ПК позволяют. Вопрос: куда копать?
UPD1 В лазарусе, данный код работает без вылетов, но на выходе черный прямоугольник, попробую копать в направлении Лазаруса. Файл успешно создается и открывается в редакторах.
bmp:=TBitMap.Create;
bmp.PixelFormat:=pf24bit;
bmp.Width:=359*256;
bmp.Height:=61*256;
png:=TPortableNetworkGraphic.Create;
// Рисую на bmp
png.Assign(bmp);
png.SaveToFile('g:\BIGpng.png');