- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
如何将多张图像合并为一张?
我有一个带有图像路径的数组。这些图像要从右侧连接。我的图像是.png
格式。
谢谢
我的测试代码不起作用:
procedure TCreatorProject.MergeImageList(Images: TImagesList);
var
Img,ImageOut: TGraphic;
ImageTemp: TBitmap;
I: Integer;
FileOutput: String;
begin
FileOutput := ExtractFilePath(Application.ExeName)+'temp\tempimage.png';
for I := Low(Images) to High(Images) do
if not FileExists(Images[I]) then
raise Exception.Create('Chyba: obrázek nebyl nalezen !');
ImageTemp := TBitmap.Create;
try
for I := Low(Images) to High(Images) do
begin
Img.LoadFromFile(Images[I]);
ImageTemp.Width := Img.Width;
ImageTemp.Height := Img.Height;
if I = 0 then
ImageTemp.Canvas.Draw(0, 0, Img)
else
ImageTemp.Canvas.Draw(ImageTemp.Width, ImageTemp.Height, Img);
end;
ImageOut := TPNGObject.Create;
ImageOut.Assign(ImageTemp);
ImageOut.SaveToFile(FileOutput);
finally
ImageTemp.Free;
Img.Free;
ImageOut.Free;
end;
end;
最佳答案
您始终在同一位置绘制,并且不放大输出图像。
尝试以下方法(使用DelphiXE7编写并经过测试):
program SO32558735;
{$APPTYPE CONSOLE}
{$R *.res}
uses
System.SysUtils, System.IOUtils, System.Types, Vcl.Imaging.pngimage, Vcl.Graphics;
type
TPngImages = array of TPngImage;
function LoadImages(Path : String) : TPngImages;
var
Index : Integer;
Files : TStringDynArray;
begin
Files := TDirectory.GetFiles(Path, '*.png');
SetLength(Result, Length(Files));
for Index := Low(Files) to High(Files) do
begin
Result[Index] := TPngImage.Create;
Result[Index].LoadFromFile(Files[Index]);
end;
end;
function MergeImages(Images: TPngImages) : TPngImage;
var
Image : TPngImage;
Bmp : TBitmap;
X : Integer;
begin
Result := TPngImage.Create;
Bmp := TBitmap.Create;
X := 0;
try
for Image in Images do
begin
// enlarge output image
Bmp.Width := Bmp.Width+Image.Width;
// adjust height if images are not equal
if Image.Height > Bmp.Height then
Bmp.Height := Image.Height;
Bmp.Canvas.Draw(X, 0, Image);
X := Bmp.Width+1;
end;
Result.Assign(Bmp);
finally
Bmp.Free;
end;
end;
var
Images : TPngImages;
Image : TPngImage;
begin
try
try
Images := LoadImages('<input path>');
if Length(Images) < 1 then
raise Exception.Create('No files found!');
Image := MergeImages(Images);
Image.SaveToFile('<output file>');
Image.Free;
finally
for Image in Images do
Image.Free;
end;
except
on E: Exception do
Writeln(E.ClassName, ': ', E.Message);
end;
end.
关于image - Delphi组合阵列图像,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/32558735/
我正在尝试学习 Knockout 并尝试创建一个照片 uploader 。我已成功将一些图像存储在数组中。现在我想回帖。在我的 knockout 码(Javascript)中,我这样做: 我在 Jav
我正在使用 php 编写脚本。我的典型问题是如何在 mysql 中添加一个有很多替代文本和图像的问题。想象一下有机化学中具有苯结构的描述。 最有效的方法是什么?据我所知,如果我有一个图像,我可以在数据
我在两个图像之间有一个按钮,我想将按钮居中到图像高度。有人可以帮帮我吗? Entrar
下面的代码示例可以在这里查看 - http://dev.touch-akl.com/celebtrations/ 我一直在尝试做的是在 Canvas 上绘制 2 个图像(发光,然后耀斑。这些图像的链接
请检查此https://jsfiddle.net/rhbwpn19/4/ 图像预览对于第一篇帖子工作正常,但对于其他帖子则不然。 我应该在这里改变什么? function readURL(input)
我对 Canvas 有疑问。我可以用单个图像绘制 Canvas ,但我不能用单独的图像绘制每个 Canvas 。- 如果数据只有一个图像,它工作正常,但数据有多个图像,它不工作你能帮帮我吗? va
我的问题很简单。如何获取 UIImage 的扩展类型?我只能将图像作为 UIImage 而不是它的名称。图像可以是静态的,也可以从手机图库甚至文件路径中获取。如果有人可以为此提供一点帮助,将不胜感激。
我有一个包含 67 个独立路径的 SVG 图像。 是否有任何库/教程可以为每个路径创建单独的光栅图像(例如 PNG),并可能根据路径 ID 命名它们? 最佳答案 谢谢大家。我最终使用了两个答案的组合。
我想将鼠标悬停在一张图片(音乐专辑)上,然后播放一张唱片,所以我希望它向右移动并旋转一点,当它悬停时我希望它恢复正常动画片。它已经可以向右移动,但我无法让它随之旋转。我喜欢让它尽可能简单,因为我不是编
Retina iOS 设备不显示@2X 图像,它显示 1X 图像。 我正在使用 Xcode 4.2.1 Build 4D502,该应用程序的目标是 iOS 5。 我创建了一个测试应用(主/细节)并添加
我正在尝试从头开始以 Angular 实现图像 slider ,并尝试复制 w3school基于图像 slider 。 下面我尝试用 Angular 实现,谁能指导我如何使用 Angular 实现?
我正在尝试获取图像的图像数据,其中 w= 图像宽度,h = 图像高度 for (int i = x; i imageData[pos]>0) //Taking data (here is the pr
我的网页最初通过在 javascript 中动态创建图像填充了大约 1000 个缩略图。由于权限问题,我迁移到 suPHP。现在不用标准 标签本身 我正在通过这个 php 脚本进行检索 $file
我正在尝试将 python opencv 图像转换为 QPixmap。 我按照指示显示Page Link我的代码附在下面 img = cv2.imread('test.png')[:,:,::1]/2
我试图在这个 Repository 中找出语义分割数据集的 NYU-v2 . 我很难理解图像标签是如何存储的。 例如,给定以下图像: 对应的标签图片为: 现在,如果我在 OpenCV 中打开标签图像,
import java.util.Random; class svg{ public static void main(String[] args){ String f="\"
我有一张 8x8 的图片。 (位图 - 可以更改) 我想做的是能够绘制一个形状,给定一个 Path 和 Paint 对象到我的 SurfaceView 上。 目前我所能做的就是用纯色填充形状。我怎样才
要在页面上显示图像,你需要使用源属性(src)。src 指 source 。源属性的值是图像的 URL 地址。 定义图像的语法是: 在浏览器无法载入图像时,替换文本属性告诉读者她们失去的信息。此
**MMEditing是基于PyTorch的图像&视频编辑开源工具箱,支持图像和视频超分辨率(super-resolution)、图像修复(inpainting)、图像抠图(matting)、
我正在尝试通过资源文件将图像插入到我的程序中,如下所示: green.png other files 当我尝试使用 QImage 或 QPixm
我是一名优秀的程序员,十分优秀!