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")
轉載請註明出處,本文鏈接:https://www.uj5u.com/shujuku/16682.html
標籤:VFP
