易语言图片转PDF源码
可以在文件夹下一键生成PDF
使用说明：
1、将所有图片放在一个文件夹下（图片格式为JPG）；
2、已经提供参考文件夹
3、点击使用即可。
以下为生成PDF的同时删除文件内图片的源码
对了需要PDF支持库
.版本 2
.支持库 PDF
.子程序 _按钮2_被单击
.局部变量 hPdf, 整数型
.局部变量 hPage, 整数型
hPdf ＝ HPDF_New (&user_error_fn, 0)
HPDF_SetCompressionMode (hPdf, #HPDF_COMP_ALL)
hPage ＝ HPDF_AddPage (hPdf)
.计次循环首 (i － 1, i)
draw_image (hPdf, 读入文件 (文件夹 ＋ “\” ＋ 文件夹名称 ＋ “\” ＋ 到文本 (i) ＋ “.jpg”), 0, 0)
HPDF_AddPage (hPdf)
draw_image (hPdf, 读入文件 (文件夹 ＋ “\” ＋ 文件夹名称 ＋ “\” ＋ 到文本 (i ＋ 1) ＋ “.jpg”), 0, 0)
.计次循环尾 ()
HPDF_SaveToFile (hPdf, 文件夹 ＋ “\” ＋ 文件夹名称 ＋ “\” ＋ 文件夹名称 ＋ “.pdf”)
HPDF_Free (hPdf)
.计次循环首 (i, i)
删除文件 (文件夹 ＋ “\” ＋ 文件夹名称 ＋ “\” ＋ 到文本 (i) ＋ “.jpg”)
.计次循环尾 ()
标签2.标题 ＝ “图片删除完成”
