Image 如何在FMX（fire monkey）中加载大位图
我正在尝试创建一个漫画查看器，它需要加载大尺寸（如1000*16000）的Image 如何在FMX（fire monkey）中加载大位图,image,delphi,bitmap,firemonkey,Image,Delphi,Bitmap,Firemonkey,我正在尝试创建一个漫画查看器，它需要加载大尺寸（如1000*16000）的JPG图像，我的应用程序是delphi FMX，我已经尝试使用TImage，TImageViewer，TImageControl但它们都使用TBitmap在加载图像后将大小修剪为8192。 我尝试搜索图像库，但找不到FMX（firemonkey） 我在想，也许我可以将图像加载到内存流中，然后将其复制并以较小的尺寸绘制到多个位图中？但我不知道如何读取和解析内存流，并且只选择某个干净的高度 最后，我正在寻找一种在Delphi
JPGTImageTImageViewerTImageControlTBitmap8192我尝试搜索图像库，但找不到
FMX（firemonkey）我在想，也许我可以将图像加载到
内存流中最后，我正在寻找一种在
Delphi FMX中加载和显示这些大型（
1000*16000谢谢 编辑01:
我想我已经找到了一种可能使事情变得简单的方法，我在
FMX（FireMonkey）Vcl.Imaging.jpegTJPEGImageTJPEGImage.canvasFMX-TBitmapTJPEGImageFMX-TBitmap我找到了一个新的解决方案，
TBitmapSurfaceTBitmapTImageImage.bitmap.assign（TBitmapsurface）TImageTBitmapSurfaceTBitmap以下是
TBitmapSurfacebitmapSurf := TBitmapSurface.Create;
TBitmapCodecManager.LoadFromFile(path, bitmapSurf);
与
FMX.Graphics.TBitmap8192*8192FMX.Surface.TBitmapSurface16k*16kFMX.Surface.TBitmapSurfaceFMX.Graphics.TBitmap下面您可以看到先将
JPGtbitmapsfaceTBitmapvar
srce, dest: TBitmapSurface;
path: string;
scan: integer;
w, h1, h2: integer;
begin
path := 'C:\tmp\Imgs\res.bmp';
srce := TBitmapSurface.Create;
TBitmapCodecManager.LoadFromFile(path, srce);
dest := TBitmapSurface.Create;
// first half
w := srce.Width;
h1 := srce.Height div 2;
dest.SetSize(w, h1, TPixelFormat.RGBA);
for scan := 0 to h1-1 do
Move(srce.Scanline[scan]^, TBitmapSurface(dest).Scanline[scan]^, srce.Width * 4);
Image1.Bitmap.Assign(dest);
// second half
h2 := srce.Height - h1;
dest.SetSize(w, h2, TPixelFormat.RGBA);
for scan := h1 to srce.Height-1 do
Move(srce.Scanline[scan]^, TBitmapSurface(dest).Scanline[scan-h1]^, srce.Width * 4);
Image2.Bitmap.Assign(dest);
end;
有多种格式，甚至在
JPG