如何解决需要帮助修改和编写 JPG 图像
为了便于讨论,假设我正在编写的程序是玩 Tic-Tac-Toe。我想创建一个显示每个移动的 JPG 图像 - 首先在图像的左侧移动,然后在它旁边的下一个移动,等等。在下面的代码中,例程 drawImage 就是这样做的 - 它构建了一个位图董事会。以下是代码的简化版本:
Sub Main
buildImage (1)
buildImage (2)
End Sub
Sub buildImage (ByRef rNum As Integer)
Dim bmp As Bitmap
bmp = drawImage(rNum) ' creates a bitmap
Dim bmpSave As Bitmap
If rNum 1 2 Then
bmpSave = bmp
Else
Dim obmp As Bitmap = New Bitmap(Image.FromFile(<file_name>))
Dim gr As Graphics = Graphics.FromImage(obmp)
gr.DrawImage(obmp,<0 offset>,<size>)
gr.DrawImage(bmp,<offset by bitmp width>,<double size>)
bmpSave = New Bitmap(obmp.Width + imgHorSize,bmp.Height,gr)
End If
bmpSave.Save(<file_name>,ImageFormat.Jpeg)
End Sub
第一次调用buildImage,程序正常运行,JPG图片写入磁盘。问题是第二次调用 buildImage 并且问题似乎发生在 Save 方法行上 - 程序挂在那里并且不返回。我曾尝试在 Save 方法之后添加 bmpSave.Dispose,但这没有帮助。
为了了解发生了什么,我让程序在 rNum=1 时不写入 JPG,但它仍然失败。因此,问题不在于文件被打开(我最初的想法),而可能与 DrawImage 方法调用有关。我试图做的是读取第一步的图像并在其右侧添加第二步的图像。请指出正确的方向,谢谢!
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。