GDIPlus 给图片加上文字 系统字体都正常 自定义字体闪退

卿卿吖

  

子程序名	返回值类型	公开	备 注
_临时子程序

变量名	类 型	静态	数组	备 注
文本	文本型
图片	字节集

文本 ＝ “Test测试 加水印文字”
' 使用系统字体(正常)
图片 ＝ GP_图片_加水印_文字 (读入文件 (取运行目录 () ＋ “\原图.jpg”), 文本, “楷体”, , , 50, , #红色, , )
' 使用自定义字体(异常)
' 图片 ＝ GP_图片_加水印_文字 (读入文件 (取运行目录 () ＋ “\原图.jpg”), 文本, , 读入文件 (取运行目录 () ＋ “\Aa剑豪体.ttf”), , 50, , #红色, , )
调试输出 (写到文件 (取运行目录 () ＋ “\加水印后的图片.png”, 图片))

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _临时子程序<br /> .局部变量 文本, 文本型<br /> .局部变量 图片, 字节集<br /> <br /> <br /> 文本 ＝ “Test测试 加水印文字”<br /> <br /> ' 使用系统字体(正常)<br /> 图片 ＝ GP_图片_加水印_文字 (读入文件 (取运行目录 () ＋ “\原图.jpg”), 文本, “楷体”, , , 50, , #红色, , )<br /> <br /> ' 使用自定义字体(异常)<br /> ' 图片 ＝ GP_图片_加水印_文字 (读入文件 (取运行目录 () ＋ “\原图.jpg”), 文本, , 读入文件 (取运行目录 () ＋ “\Aa剑豪体.ttf”), , 50, , #红色, , )<br /> <br /> 调试输出 (写到文件 (取运行目录 () ＋ “\加水印后的图片.png”, 图片))

源码、模块、测试图片、字体(大于5MB放网盘了)：字体链接
GDIPlus测试.zip (335.75 KB, 下载次数: 4)

昨天 18:52 上传

点击文件名下载附件

卿卿吖

字体链接：https://share.feijipan.com/s/55HlznVr

zainex

其实还有一个直折中的解决办法，就是把原版可以正确运行的代码放在一起给编译成模块。
通过调用这个模块，间接的解决了模块冲突的问题。
简单的说，只要是只有原版模块能正确运行的代码，而其它版本模块不能正确运行的，都给放到一个模块里编写。
代码.zip (4.29 MB, 下载次数: 0)

昨天 20:59 上传

点击文件名下载附件
例子

你的猫

检查字体文件是否存在

  

子程序名	返回值类型	公开	备 注
_临时子程序

变量名	类 型	静态	数组	备 注
文本	文本型
图片	字节集
字体路径	文本型

字体路径 ＝ 取运行目录 () ＋ “\Aa剑豪体.ttf”
如果 (文件是否存在 (字体路径) ＝ 假)
信息框 (“字体文件不存在：” ＋ 字体路径, 0, , )
返回 ()
调试输出 (“字体文件存在，准备加载...”)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _临时子程序<br /> .局部变量 文本, 文本型<br /> .局部变量 图片, 字节集<br /> .局部变量 字体路径, 文本型<br /> <br /> 字体路径 ＝ 取运行目录 () ＋ “\Aa剑豪体.ttf”<br /> .如果 (文件是否存在 (字体路径) ＝ 假)<br />     信息框 (“字体文件不存在：” ＋ 字体路径, 0, , )<br />     返回 ()<br /> .否则<br />     调试输出 (“字体文件存在，准备加载...”)<br /> .如果结束

确保字体数据正确加载

  

变量名	类 型	静态	数组	备 注
字体数据	字节集

字体数据 ＝ 读入文件 (字体路径)
如果 (取字节集长度 (字体数据) ≤ 0)
信息框 (“字体文件读取失败或为空！”, 0, , )
返回 ()

.局部变量 字体数据, 字节集<br /> 字体数据 ＝ 读入文件 (字体路径)<br /> .如果 (取字节集长度 (字体数据) ≤ 0)<br />     信息框 (“字体文件读取失败或为空！”, 0, , )<br />     返回 ()<br /> .如果结束

使用 GP_初始化() 和 GP_关闭()

  

子程序名	返回值类型	公开	备 注
_临时子程序

GP_初始化 ()  ' 初始化 GDI+
' 你的加水印代码...
GP_关闭 ()    ' 释放 GDI+ 资源

i支持库列表	支持库注释
gdiplus	(未知支持库)

.版本 2<br /> .支持库 gdiplus<br /> <br /> .子程序 _临时子程序<br /> GP_初始化 ()  ' 初始化 GDI+<br /> ' 你的加水印代码...<br /> GP_关闭 ()    ' 释放 GDI+ 资源

优化自定义字体加载

  

图片 ＝ GP_图片_加水印_文字 (
读入文件 (取运行目录 () ＋ “\原图.jpg”),  ' 原图
文本,                                   ' 水印文字
"",                                    ' 系统字体名称（空表示不使用系统字体）
读入文件 (取运行目录 () ＋ “\Aa剑豪体.ttf”),  ' 自定义字体数据
,                                      ' 字体样式（默认常规）
50,                                    ' 字体大小
,                                      ' 透明度（默认不透明）
#红色,                                 ' 颜色
,                                      ' 对齐方式（默认左上角）
,                                      ' 旋转角度（默认0）
,                                      ' 是否抗锯齿（默认是）
)

图片 ＝ GP_图片_加水印_文字 (<br />     读入文件 (取运行目录 () ＋ “\原图.jpg”),  ' 原图<br />     文本,                                   ' 水印文字<br />     "",                                    ' 系统字体名称（空表示不使用系统字体）<br />     读入文件 (取运行目录 () ＋ “\Aa剑豪体.ttf”),  ' 自定义字体数据<br />     ,                                      ' 字体样式（默认常规）<br />     50,                                    ' 字体大小<br />     ,                                      ' 透明度（默认不透明）<br />     #红色,                                 ' 颜色<br />     ,                                      ' 对齐方式（默认左上角）<br />     ,                                      ' 旋转角度（默认0）<br />     ,                                      ' 是否抗锯齿（默认是）<br /> )

完整优化代码

  

子程序名	返回值类型	公开	备 注
_临时子程序

变量名	类 型	静态	数组	备 注
文本	文本型
图片	字节集
字体路径	文本型
字体数据	字节集

' 初始化 GDI+
GP_初始化 ()
' 设置水印文字
文本 ＝ “Test测试 加水印文字”
' 检查字体文件是否存在
字体路径 ＝ 取运行目录 () ＋ “\Aa剑豪体.ttf”
如果 (文件是否存在 (字体路径) ＝ 假)
信息框 (“字体文件不存在：” ＋ 字体路径, 0, , )
返回 ()
字体数据 ＝ 读入文件 (字体路径)
如果 (取字节集长度 (字体数据) ≤ 0)
信息框 (“字体文件读取失败或为空！”, 0, , )
返回 ()


' 使用自定义字体加水印
图片 ＝ GP_图片_加水印_文字 (
读入文件 (取运行目录 () ＋ “\原图.jpg”),
文本,
"",
字体数据,
,
50,
,
#红色,
,
,
,
)
' 保存图片
调试输出 (写到文件 (取运行目录 () ＋ “\加水印后的图片.png”, 图片))
' 释放 GDI+ 资源
GP_关闭 ()

i支持库列表	支持库注释
spec	特殊功能支持库
gdiplus	(未知支持库)

.版本 2<br /> .支持库 spec<br /> .支持库 gdiplus<br /> <br /> .子程序 _临时子程序<br /> .局部变量 文本, 文本型<br /> .局部变量 图片, 字节集<br /> .局部变量 字体路径, 文本型<br /> .局部变量 字体数据, 字节集<br /> <br /> ' 初始化 GDI+<br /> GP_初始化 ()<br /> <br /> ' 设置水印文字<br /> 文本 ＝ “Test测试 加水印文字”<br /> <br /> ' 检查字体文件是否存在<br /> 字体路径 ＝ 取运行目录 () ＋ “\Aa剑豪体.ttf”<br /> .如果 (文件是否存在 (字体路径) ＝ 假)<br />     信息框 (“字体文件不存在：” ＋ 字体路径, 0, , )<br />     返回 ()<br /> .否则<br />     字体数据 ＝ 读入文件 (字体路径)<br />     .如果 (取字节集长度 (字体数据) ≤ 0)<br />         信息框 (“字体文件读取失败或为空！”, 0, , )<br />         返回 ()<br />     .如果结束<br /> .如果结束<br /> <br /> ' 使用自定义字体加水印<br /> 图片 ＝ GP_图片_加水印_文字 (<br />     读入文件 (取运行目录 () ＋ “\原图.jpg”),<br />     文本,<br />     "",<br />     字体数据,<br />     ,<br />     50,<br />     ,<br />     #红色,<br />     ,<br />     ,<br />     ,<br /> )<br /> <br /> ' 保存图片<br /> 调试输出 (写到文件 (取运行目录 () ＋ “\加水印后的图片.png”, 图片))<br /> <br /> ' 释放 GDI+ 资源<br /> GP_关闭 ()

卿卿吖

你的猫 发表于 2025-5-9 19:07
检查字体文件是否存在[e=1].版本 2
.支持库 spec

加了初始化也还是一样的，文件都是没有问题

zainex

是模块的问题，下面的 例子.zip 里有编译的原版模块，或者你自己编译也行：
给图片的四边都加白边，使用GDI画板，求例子_精易论坛
然后在程序启动时添加上 Gdiplus初始化：

  

子程序名	返回值类型	公开	备 注
_启动子程序	整数型		请在本子程序中放置易模块初始化代码

Gdiplus初始化 ()
_临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码
返回 (0)  ' 可以根据您的需要返回任意数值

.版本 2<br /> <br /> .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码<br /> <br /> Gdiplus初始化 ()<br /> _临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码<br /> 返回 (0)  ' 可以根据您的需要返回任意数值

结果就是可以正确生成：

卿卿吖

zainex 发表于 2025-5-9 19:26
是模块的问题，下面的 例子.zip 里有编译的原版模块，或者你自己编译也行：
给图片的四边都加白边，使用GDI ...

2.4版本的确实可以，这段代码就是从2.4版本扣过来的，我原有的其他功能在现在的版本上，所以只能用这个版本的模块

zainex

这个是其他人修改后的闭源模块，不知道是不是乱改，把哪里给改出BUG了。
一般来说，使用者是无法定位这种闭源模块的错误的，即使定位了，你也解决很难解决，非常不建议使用。
非要使用，那你可以把用到这个模块的程序编译给成DLL，通过DLL调用，来解决模块冲突的问题。

卿卿吖

zainex 发表于 2025-5-9 21:00
其实还有一个直折中的解决办法，就是把原版可以正确运行的代码放在一起给编译成模块。
通过调用这个模块， ...

费心了，我把模块替换成原版，发现所有的函数都运行不了了，基本都返回假，没有好的解决办法，还是得用原版方便找问题，两个都用感觉很冗余