PDF转图片工具源码

.版本 2

.子程序 _按钮21_被单击
.局部变量 hPDF, 整数型
.局部变量 szDir, 文本型, , , 存放文件夹
.局部变量 szPrefix, 文本型, , , 前缀
.局部变量 nFormat, 整数型
.局部变量 dpiX, 整数型
.局部变量 dpiY, 整数型
.局部变量 nFrom, 整数型, , , 起始页
.局部变量 nTo, 整数型, , , 终止页
.局部变量 fileName, 文本型
.局部变量 nW, 整数型
.局部变量 nH, 整数型
.局部变量 文件名, 文本型
.局部变量 路径左, 文本型
.局部变量 i, 整数型

.如果真 (取数组成员数 (集路径数组) ＝ 0 且 编辑框1.内容 ＝ “”)
    信息框2 (_启动窗口.取窗口句柄 (), “请先添加要分割的文件！”, “标题”, 0, 0, 1000)
    返回 ()
.如果真结束

.如果真 (取数组成员数 (集路径数组) ＝ 0 且 编辑框1.内容 ≠ “”)  ' ’单文件分割

    路径左 ＝ 取文本左边 (编辑框1.内容, 倒找文本 (编辑框1.内容, “\”, , 假))
    文件名 ＝ 取文本右边 (编辑框1.内容, 取文本长度 (编辑框1.内容) － 倒找文本 (编辑框1.内容, “\”, , 假))
    文件名 ＝ 取文本左边 (文件名, 寻找文本 (文件名, “.”, , 假) － 1)

    fileName ＝ 编辑框1.内容

    szDir ＝ 路径左 ＋ “\转换结果”

    hPDF ＝ OpenPDF (fileName, “”)

    .如果 (到整数 (编辑框4.内容) ＞ 1 且 到整数 (编辑框4.内容) ≤ GetPageNum (hPDF))
        nFrom ＝ 到整数 (编辑框4.内容)
    .否则
        nFrom ＝ 1
    .如果结束

    .如果 (到整数 (编辑框5.内容) ≥ nFrom 且 到整数 (编辑框5.内容) ＋ 1 ≤ GetPageNum (hPDF))
        nTo ＝ 到整数 (编辑框5.内容) ＋ 1
    .否则
        nTo ＝ GetPageNum (hPDF)
    .如果结束

    ' nW ＝ GetPageWidth (hPDF, nFrom)
    ' nH ＝ GetPageHeight (hPDF, nFrom)
    szPrefix ＝ “”
    ' dpiX ＝ 120
    ' dpiY ＝ 120
    ExportIMG (hPDF, szDir, szPrefix, 集转换类型, 到整数 (编辑框2.内容), 到整数 (编辑框3.内容), nFrom, nTo, &CB_PROGRESS)
    ClosePDF (hPDF)

    信息框2 (_启动窗口.取窗口句柄 (), “《” ＋ 文件名 ＋ “》” ＋ “转换成” ＋ 组合框1.内容 ＋ “格式成功！”, “标题”, 0, 0, 1000)

.如果真结束

.如果真 (取数组成员数 (集路径数组) ≠ 0)  ' ’批量分割
    .计次循环首 (取数组成员数 (集路径数组), i)
        路径左 ＝ 取文本左边 (集路径数组 [i], 倒找文本 (集路径数组 [i], “\”, , 假))
        文件名 ＝ 取文本右边 (集路径数组 [i], 取文本长度 (集路径数组 [i]) － 倒找文本 (集路径数组 [i], “\”, , 假))
        文件名 ＝ 取文本左边 (文件名, 寻找文本 (文件名, “.”, , 假) － 1)

        fileName ＝ 集路径数组 [i]

        .如果真 (目录_是否存在 (路径左 ＋ 文件名 ＋ “\”) ＝ 假)
            创建目录 (路径左 ＋ 文件名 ＋ “\”)
        .如果真结束

        szDir ＝ 路径左 ＋ 文件名

        hPDF ＝ OpenPDF (fileName, “”)

        .如果 (到整数 (编辑框4.内容) ＞ 1 且 到整数 (编辑框4.内容) ≤ GetPageNum (hPDF))
            nFrom ＝ 到整数 (编辑框4.内容)
        .否则
            nFrom ＝ 1
        .如果结束

        .如果 (到整数 (编辑框5.内容) ≥ nFrom 且 到整数 (编辑框5.内容) ＋ 1 ≤ GetPageNum (hPDF))
            nTo ＝ 到整数 (编辑框5.内容) ＋ 1
        .否则
            nTo ＝ GetPageNum (hPDF)
        .如果结束

        ' nW ＝ GetPageWidth (hPDF, nFrom)
        ' nH ＝ GetPageHeight (hPDF, nFrom)
        szPrefix ＝ “”
        ' dpiX ＝ 120
        ' dpiY ＝ 120
        ExportIMG (hPDF, szDir, szPrefix, 集转换类型, 到整数 (编辑框2.内容), 到整数 (编辑框3.内容), nFrom, nTo, &CB_PROGRESS)
        ClosePDF (hPDF)
    .计次循环尾 ()

    信息框2 (_启动窗口.取窗口句柄 (), 到文本 (取数组成员数 (集路径数组)) ＋ “个PDF文件转换” ＋ 组合框1.内容 ＋ “格式成功！”, “标题”, 0, 0, 1000)

.如果真结束