共8 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：这个PDF转图片的方法还能用吗？
1楼
keli0917 发表于：2024/3/27 9:27:00
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=77213&skin=0
此主题相关图片如下：222.png
此主题相关图片如下：333.png
然后我在一个button写入
ConvertPDF2Image("d:\test.pdf", "d:\test", "test", 1, 5, ImageFormat.Jpeg, Definition.One)
但是没用呀
2楼
keli0917 发表于：2024/3/27 9:29:00Dim tb As WinForm.Table = Forms("企业fa piao池").Controls("Table1")
Dim bj As Row = tb.Table.Current
Dim txt As String
If bj("数电piao号码").length > 10 Then
txt = bj("数电piao号码")
Else
txt = bj("fa piao号码")
End If
For Each f As String In FileSys.GetFiles(dzml3)
Dim lj As String = FileSys.GetParentPath(f)
Dim fl As String = FileSys.GetName(f) ' 获得文件名及后缀
Dim ex As String = fl.SubString(fl.LastIndexOf(".") + 1) '获取文件后缀名
Dim fln As String = fl.SubString(0,fl.LastIndexOf(".")) '获取文件名
If fl.Contains(txt) And fl.EndsWith(".pdf") Then
If FileSys.FileExists(lj & "\" & fln & ".jpg") Then
Else
MessageBox.Show(9)
ConvertPDF2Image(f, lj, fln, 1, 5, ImageFormat.Jpeg, Definition.One)
End If
End If
Next
3楼
keli0917 发表于：2024/3/27 9:47:00 知道了，生成在上级目录了。
[此贴子已经被作者于2024/3/27 10:05:33编辑过]
4楼
有点蓝 发表于：2024/3/27 10:10:00应该是lj目录有同名的文件存在
5楼
keli0917 发表于：2024/3/27 11:27:00If FileSys.FileExists(lj & "\" & fln & ".jpeg") Then
明明存在这个文件，为什么总是判断不出来？
6楼
有点蓝 发表于：2024/3/27 11:32:00应该路径不一样吧
msgbox(lj & "\" & fln & ".jpeg")
7楼
keli0917 发表于：2024/3/27 11:33:00我从文件管理器，复制地址栏就能判断出来存在这个文件。
8楼
有点蓝 发表于：2024/3/27 12:00:00msgbox弹出的路径和实际的路径一致吗？
共8 条记录, 每页显示 10 条, 页签:
[1]