如何通过VB6+RightFAX API实现将RightFax中的传真保存为到本地的tif文档

时间：2022-02-17 17:28:43
我的问题如题

阅读过网上的文档
RightFAX API Reference Guide 
RightFAX API for Visual Basic 




Dim FaxAPI As RFCOMAPILib.FaxServer

Set FaxAPI = New FaxServer

FaxAPI.ServerName = "xxxxxxxxx"

FaxAPI.Protocol = cpTCPIP

   

FaxAPI.AuthorizationUserID = "Administrator"

FaxAPI.AuthorizationUserPassword = ""

FaxAPI.UseNTAuthentication = False

   

Dim g As RFCOMAPILib.Group

Dim l As Long

Set g = FaxAPI.Groups(55)


 For Each usr In g.Users

      If usr.ID = "27022112" Then

           For Each Fax In usr.Faxes

                 degug.print Fax.UniqueID 

           Next

           Exit For

     End If             

Next      

FaxAPI.CloseServer

'打印的Fax.UniqueID 
'2504D52C751ADF8
'..........
'..........

传真是找到了，但如何才能保存为本地的TIF ( Or PDF ) ，希望有经验的朋友能在这方面多指教

谢谢

9 个解决方案

#1

  补充一个问题, Visual basic 6 中没法应用 Rf2VB.dll 

(我将 Rf2vb.dll和相关的dll 放到的 c:\windows\system 和 c:\windows\system32 下)

#2

你要注册一下，
打开CMD窗口，输入：Regsvr32 Rf2vb.dll

#3

RegSvr32 提示:

Rf2vb.dll was loaded ,but the DllRegisterServer entry point was 
not found 

The file can not be registered .

#4

不能注册？
那你试一试在声明函数是把链接库名称写成绝对路径试一试

比如：
Private Declare Function 函数名 Lib "动态链接库路径" (ByVal hFile As Long, ByVal dwFlags As Long) As Long

#5

 to veron_04 
 没错，这是一种可行的方法



有人能解决1楼的问题吗

#6

Rf2vb.dll was loaded ,but the DllRegisterServer entry point was  
not found 
说明，这个DLL在接口中没有导出DllRegisterServer注册函数

#7

引用 4 楼 veron_04 的回复:
不能注册？
那你试一试在声明函数是把链接库名称写成绝对路径试一试

比如：
Private Declare Function 函数名 Lib "动态链接库路径" (ByVal hFile As Long, ByVal dwFlags As Long) As Long

这里是可以引用DLL中的函数的，但是不能引用里面的类。

#8



Dim FaxAPI As RFCOMAPILib.FaxServer

Set FaxAPI = New FaxServer

FaxAPI.ServerName = "xxxxxxxxx"

FaxAPI.Protocol = cpTCPIP

   

FaxAPI.AuthorizationUserID = "Administrator"

FaxAPI.AuthorizationUserPassword = ""

FaxAPI.UseNTAuthentication = False

   

Dim g As RFCOMAPILib.Group

Dim l As Long

Set g = FaxAPI.Groups(55)


 For Each usr In g.Users

      If usr.ID = "27022112" Then

           For Each Fax In usr.Faxes

                 'debug.print Fax.UniqueID  

                 如何将Fax保存为本地的tif文件,其实我的目的就是将RightFax中某个group下面的某个user下面的传真自动下载到本地文件夹中 

                   

           Next

           Exit For

     End If             

Next      

FaxAPI.CloseServer



请高手帮忙

#9

我的问题还是没有解决，看来是没希望了，结了

#1

  补充一个问题, Visual basic 6 中没法应用 Rf2VB.dll 

(我将 Rf2vb.dll和相关的dll 放到的 c:\windows\system 和 c:\windows\system32 下)

#2

你要注册一下，
打开CMD窗口，输入：Regsvr32 Rf2vb.dll

#3

RegSvr32 提示:

Rf2vb.dll was loaded ,but the DllRegisterServer entry point was 
not found 

The file can not be registered .

#4

不能注册？
那你试一试在声明函数是把链接库名称写成绝对路径试一试

比如：
Private Declare Function 函数名 Lib "动态链接库路径" (ByVal hFile As Long, ByVal dwFlags As Long) As Long

#5

 to veron_04 
 没错，这是一种可行的方法



有人能解决1楼的问题吗

#6

Rf2vb.dll was loaded ,but the DllRegisterServer entry point was  
not found 
说明，这个DLL在接口中没有导出DllRegisterServer注册函数

#7

引用 4 楼 veron_04 的回复:
不能注册？
那你试一试在声明函数是把链接库名称写成绝对路径试一试

比如：
Private Declare Function 函数名 Lib "动态链接库路径" (ByVal hFile As Long, ByVal dwFlags As Long) As Long

这里是可以引用DLL中的函数的，但是不能引用里面的类。

#8



Dim FaxAPI As RFCOMAPILib.FaxServer

Set FaxAPI = New FaxServer

FaxAPI.ServerName = "xxxxxxxxx"

FaxAPI.Protocol = cpTCPIP

   

FaxAPI.AuthorizationUserID = "Administrator"

FaxAPI.AuthorizationUserPassword = ""

FaxAPI.UseNTAuthentication = False

   

Dim g As RFCOMAPILib.Group

Dim l As Long

Set g = FaxAPI.Groups(55)


 For Each usr In g.Users

      If usr.ID = "27022112" Then

           For Each Fax In usr.Faxes

                 'debug.print Fax.UniqueID  

                 如何将Fax保存为本地的tif文件,其实我的目的就是将RightFax中某个group下面的某个user下面的传真自动下载到本地文件夹中 

                   

           Next

           Exit For

     End If             

Next      

FaxAPI.CloseServer



请高手帮忙

#9

我的问题还是没有解决，看来是没希望了，结了

标签：

相关文章