- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 这个PDF转图片的方法还能用吗？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=191085)
-- 发布时间：2024/3/27 9:27:00
-- 这个PDF转图片的方法还能用吗？
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)
但是没用呀
-- 发布时间：2024/3/27 9:29:00
--
Dim tb As WinForm.Table = Forms("企业发票池").Controls("Table1")
Dim bj As Row = tb.Table.Current
Dim txt As String
If bj("数电票号码").length > 10 Then
txt = bj("数电票号码")
Else
txt = bj("发票号码")
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
-- 发布时间：2024/3/27 9:47:00
--
知道了，生成在上级目录了。
[此贴子已经被作者于2024/3/27 10:05:33编辑过]
-- 发布时间：2024/3/27 10:10:00
--
应该是lj目录有同名的文件存在
-- 发布时间：2024/3/27 11:27:00
--
If FileSys.FileExists(lj & "\\" & fln & ".jpeg") Then
明明存在这个文件，为什么总是判断不出来？
-- 发布时间：2024/3/27 11:32:00
--
应该路径不一样吧
msgbox(lj & "\\" & fln & ".jpeg")
-- 发布时间：2024/3/27 11:33:00
--
我从文件管理器，复制地址栏就能判断出来存在这个文件。
-- 发布时间：2024/3/27 12:00:00
--
msgbox弹出的路径和实际的路径一致吗？