64位excel调用dll传送中文字符为什么不行？

liujunwei4321 · 发表于 2023-12-18 21:08

本帖最后由 liujunwei4321 于 2023-12-18 21:14 编辑

D.7z (86.65 KB, 下载次数: 12)

pdfium.7z (1.92 MB, 下载次数: 17)

Private Declare PtrSafe Sub FPDF_InitLibrary Lib "d:\pdfium.dll" ()
Private Declare PtrSafe Sub FPDF_DestroyLibary Lib "d:\pdfium.dll" ()
Private Declare PtrSafe Function FPDF_LoadDocument Lib "d:\pdfium.dll" (ByVal file_path As String, Optional ByVal Password As String = "") As LongPtr
Private Declare PtrSafe Function FPDF_LoadMemDocument Lib "d:\pdfium.dll" (ByVal pData As Long, ByVal DataLen As Long, Optional ByVal Password As String = "") As LongPtr
Private Declare PtrSafe Sub FPDF_CloseDocument Lib "d:\pdfium.dll" (ByVal hdoc As LongPtr)
Private Declare PtrSafe Function FPDF_GetPageCount Lib "d:\pdfium.dll" (ByVal hdoc As LongPtr) As Long
Dim hdoc As LongPtr
Private Sub Class_Initialize()
Dim strencode As String, filename As String
filename = "d:\1.pdf"
filename = "d:\中.pdf"
FPDF_InitLibrary
hdoc = FPDF_LoadDocument(filename, vbUnicode)
'hdoc = FPDF_LoadMemDocument(?)
MsgBox FPDF_GetPageCount(hdoc)
FPDF_CloseDocument (hdoc)
End Sub

复制代码

调用pdfium(c++库）来获取pdf页码，如果文件名没有中文，程序没问题，但是如果文件名中有中文，就不行，估计是编码问题，请问如何解决？

当然也可以从内存读取文件，如果可以，如何改呢？

liujunwei4321 · 发表于 2023-12-18 23:08

可以先把PDF读入内存，然后从内存读取，但不太会。其它人的有段代码如下

Public Sub SetPDFByteContent(PDFBytes() As Byte)
Dim i As Long, DataLen As Long, PageCount As Long
  CloseDocument
  Content = PDFBytes
  DataLen = UBound(Content) - LBound(Content) + 1
  hDoc = FPDF_LoadMemDocument(VarPtr(Content(LBound(Content))), DataLen, "")
  If hDoc = 0 Then Err.Raise vbObjectError, , "couldn't open PDF from content"

  PageCount = FPDF_GetPageCount(hDoc)
  If PageCount = 0 Then CloseDocument: Err.Raise vbObjectError, , "couldn't open any pages"
End Sub

zpy2 · 发表于 2023-12-19 07:41

https://club.excelhome.net/forum.php?mod=viewthread&tid=1679348&mobile=

fxl447098457 · 发表于 2023-12-19 07:57

32位我也懒得补了，挺好改的。把你的dll也和excel文件放到一起就可以了，不需要用绝对路径。

pdfium.zip (14.93 KB, 下载次数: 22)

liujunwei4321 · 发表于 2023-12-19 07:58

zpy2 发表于 2023-12-19 07:41
https://club.excelhome.net/forum.php?mod=viewthread&tid=1679348&mobile=

我主要是想学习dll调用

liujunwei4321 · 发表于 2023-12-19 08:46

fxl447098457 发表于 2023-12-19 07:57
32位我也懒得补了，挺好改的。把你的dll也和excel文件放到一起就可以了，不需要用绝对路径。

非常感谢，可以的

liujunwei4321 · 发表于 2023-12-19 21:52

本帖最后由 liujunwei4321 于 2023-12-19 22:18 编辑

new.part1.rar (2 MB, 下载次数: 11)

new.part2.rar (1.56 MB, 下载次数: 10)

换成了旧版本的pdfium库后，我的方法也可以了。现在32位的也搞好了，定义了个新函数pdfpage，可以用来批量获取PDF文件的页码了。
有了这个库以后，能干的事就很多了，比如合并、拆分PDF，PDF转图片，图片转PDF，甚至打印PDF等，可惜我还不太会用。

liujunwei4321 · 发表于 2023-12-19 22:24

下一步我在想，能不能把dll文件以对象的方式插入到excel文件中，执行的时候再通过剪贴板把dll文件另存出来，这样就变成单文件版本了，但是通过API来操作剪贴板又是一个大挑战。

		自动登录	找回密码
密码			免费注册

[求助] 64位excel调用dll传送中文字符为什么不行？