请教如何使用_gdiplus.vcx类把两张图片合并成一张

[llk39]

请教如何使用_gdiplus.vcx类把两张图片合并成一张图片。谢谢！

[都市夜猫]

需求不明确 是要拼接还是叠加？ 拼接的话，图片尺寸不同时希望如何处理？ 叠加的话，是否希望缩放，如何位置叠加的位置？

[llk39]

是叠加。如B图片居中叠加在A图片中，A图片的尺寸小大于B图片，所以不需要考虑缩放问题。谢谢！

[llk39]

问题还是没有解决，求各位出手指点一下呀。谢谢了！

[都市夜猫]

用 _gdiplus 类库应该很简单啊，试试下面代码：

p1 = NewObject('gpBitmap', Home(1)+'ffc\_gdiplus')
p1.CreateFromFile(GetPict('', '底图图片(&N):'))
p2 = NewObject('gpBitmap', Home(1)+'ffc\_gdiplus')
p2.CreateFromFile(GetPict('', '叠加图片(&N):'))
og = NewObject('gpGraphics', Home(1)+'ffc\_gdiplus')
og.CreateFromImage(p1)
og.DrawImageAt(p2, Max(0,p1.imagewidth-p2.imagewidth)/2, Max(0,p1.imageheight-p2.imageheight)/2)
p1.SaveToFile(Putfile('保存为(&N):','合成的图片','bmp'),"image/bmp")