Hi all,

I wrote a testing program in VB6 (Ref below for the entire code) to test the compatibilty of a VB6 program on the latest Rightfax patch (V9.3 Feature Pack 2 Service Release 5 -  RFCOMAPI.DLL v9.3.2.553).  It runs alright without handling events (e.g. new fax events), but it crashes in about 15 sec when I turn on the "Event Handling" option.  (NOTE: This program runs perfectly on Rightfax V8.5 SP4 (RFCOMAPI.DLL v8.6.0.106).  Any ideas or input are appreciated, thanks !

Code here:

VERSION 5.00
Begin VB.Form frmMain
   AutoRedraw      =   -1  'True
   Caption         =   "Rightfax Test Client (VB6)"
   ClientHeight    =   7830
   ClientLeft      =   60
   ClientTop       =   405
   ClientWidth     =   9705
   LinkTopic       =   "Form1"
   ScaleHeight     =   7830
   ScaleWidth      =   9705
   StartUpPosition =   3  'Windows Default
   Begin VB.CheckBox ChkEventHandle
      Caption         =   "Event Handling"
      Height          =   255
      Left            =   1200
      TabIndex        =   33
      Top             =   840
      Width           =   2055
   End
   Begin VB.Timer myTimer
      Enabled         =   0   'False
      Interval        =   1000
      Left            =   120
      Top             =   120
   End
   Begin VB.Frame Frame3
      Caption         =   "New Fax Event Monitoring"
      BeginProperty Font
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   2415
      Left            =   4080
      TabIndex        =   24
      Top             =   1920
      Width           =   5175
      Begin VB.CommandButton btnClearEvents
         Caption         =   "Clear Events"
         Height          =   375
         Left            =   3120
         TabIndex        =   26
         Top             =   240
         Width           =   1695
      End
      Begin VB.ListBox lstEvents
         BeginProperty Font
            Name            =   "Courier New"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   1320
         Left            =   240
         TabIndex        =   25
         Top             =   720
         Width           =   4695
      End
      Begin VB.Label lbMonitoredUser
         Height          =   255
         Left            =   600
         TabIndex        =   27
         Top             =   360
         Width           =   2175
      End
   End
   Begin VB.Frame FrServerInfo
      Caption         =   "Server Info"
      BeginProperty Font
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   2415
      Left            =   480
      TabIndex        =   13
      Top             =   1920
      Width           =   3375
      Begin VB.Label lbChannelNo
         Height          =   255
         Left            =   1800
         TabIndex        =   23
         Top             =   1920
         Width           =   975
      End
      Begin VB.Label lbServerType
         Height          =   255
         Left            =   1800
         TabIndex        =   22
         Top             =   1200
         Width           =   975
      End
      Begin VB.Label Label13
         AutoSize        =   -1  'True
         Caption         =   "Licensed Channels:"
         Height          =   195
         Left            =   330
         TabIndex        =   21
         Top             =   1920
         Width           =   1395
      End
      Begin VB.Label lbSerialNo
         Height          =   255
         Left            =   1800
         TabIndex        =   20
         Top             =   1560
         Width           =   975
      End
      Begin VB.Label lbVersion
         Height          =   255
         Left            =   1800
         TabIndex        =   19
         Top             =   840
         Width           =   975
      End
      Begin VB.Label lbServerName
         Height          =   255
         Left            =   1800
         TabIndex        =   18
         Top             =   480
         Width           =   1455
      End
      Begin VB.Label Label9
         AutoSize        =   -1  'True
         Caption         =   "Serial #:"
         Height          =   195
         Left            =   330
         TabIndex        =   17
         Top             =   1560
         Width           =   585
      End
      Begin VB.Label Label8
         AutoSize        =   -1  'True
         Caption         =   "Server Name:"
         Height          =   195
         Left            =   330
         TabIndex        =   16
         Top             =   480
         Width           =   975
      End
      Begin VB.Label Label7
         AutoSize        =   -1  'True
         Caption         =   "COMAPI Version:"
         Height          =   195
         Left            =   330
         TabIndex        =   15
         Top             =   1200
         Width           =   1230
      End
      Begin VB.Label Label1
         AutoSize        =   -1  'True
         Caption         =   "Version:"
         Height          =   195
         Left            =   330
         TabIndex        =   14
         Top             =   840
         Width           =   570
      End
   End
   Begin VB.Frame Frame1
      Caption         =   "Users and Faxes"
      BeginProperty Font
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   3135
      Left            =   480
      TabIndex        =   7
      Top             =   4440
      Width           =   8775
      Begin VB.ListBox lst_Users
         Height          =   1815
         Left            =   240
         TabIndex        =   9
         Top             =   720
         Width           =   2535
      End
      Begin VB.ListBox lst_FaxList
         BeginProperty Font
            Name            =   "Courier New"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   1740
         Left            =   2880
         TabIndex        =   8
         Top             =   720
         Width           =   5655
      End
      Begin VB.Label Label14
         AutoSize        =   -1  'True
         Caption         =   "User ID"
         Height          =   195
         Left            =   360
         TabIndex        =   31
         Top             =   480
         Width           =   540
      End
      Begin VB.Label Label12
         Caption         =   "Fax ID"
         Height          =   255
         Left            =   3000
         TabIndex        =   30
         Top             =   480
         Width           =   1095
      End
      Begin VB.Label Label11
         AutoSize        =   -1  'True
         Caption         =   "Error      DNIS"
         Height          =   195
         Left            =   5900
         TabIndex        =   29
         Top             =   480
         Width           =   990
      End
      Begin VB.Label Label10
         AutoSize        =   -1  'True
         Caption         =   "Status"
         Height          =   195
         Left            =   5325
         TabIndex        =   28
         Top             =   480
         Width           =   450
      End
      Begin VB.Label Label2
         Caption         =   "User Name"
         Height          =   255
         Left            =   1680
         TabIndex        =   12
         Top             =   480
         Width           =   855
      End
      Begin VB.Label Label3
         Caption         =   "Total Fax ="
         Height          =   255
         Left            =   6720
         TabIndex        =   11
         Top             =   2640
         Width           =   975
      End
      Begin VB.Label lbTotalFax
         Caption         =   "0"
         Height          =   255
         Left            =   7800
         TabIndex        =   10
         Top             =   2640
         Width           =   495
      End
   End
   Begin VB.CommandButton btnConnect
      Caption         =   "Connect"
      BeginProperty Font
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   1095
      Left            =   7200
      TabIndex        =   6
      Top             =   240
      Width           =   1695
   End
   Begin VB.TextBox edPassword
      Height          =   375
      IMEMode         =   3  'DISABLE
      Left            =   5160
      PasswordChar    =   "*"
      TabIndex        =   2
      Top             =   840
      Width           =   1455
   End
   Begin VB.TextBox edLogin
      Height          =   375
      Left            =   5160
      TabIndex        =   1
      Text            =   "Administrator"
      Top             =   240
      Width           =   1455
   End
   Begin VB.TextBox edRFServer
      Height          =   375
      Left            =   1920
      TabIndex        =   0
      Top             =   240
      Width           =   1455
   End
   Begin VB.Label lbConnectTime
      AutoSize        =   -1  'True
      Caption         =   "Disconnected Status"
      Height          =   195
      Left            =   2580
      TabIndex        =   32
      Top             =   1440
      Width           =   1485
   End
   Begin VB.Line Line1
      X1              =   480
      X2              =   9240
      Y1              =   1620
      Y2              =   1620
   End
   Begin VB.Label Label6
      Caption         =   "Password"
      Height          =   375
      Left            =   4200
      TabIndex        =   5
      Top             =   840
      Width           =   975
   End
   Begin VB.Label Label5
      Caption         =   "Login:"
      Height          =   375
      Left            =   4200
      TabIndex        =   4
      Top             =   360
      Width           =   855
   End
   Begin VB.Label Label4
      Caption         =   "RF Server:"
      BeginProperty Font
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   840
      TabIndex        =   3
      Top             =   360
      Width           =   975
   End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public gl_Connect As Boolean
Public gl_MyFaxServer As RFCOMAPILib.FaxServer
Private WithEvents MyFaxServerEventHandler As RFCOMAPILib.FaxServer
Attribute MyFaxServerEventHandler.VB_VarHelpID = -1
Private rfEvents As RFCOMAPILib.Events
Private gl_startDateTime
Private gl_FormTitle As String

    ' For providing a fixed-length timestamp
    If Len(strHour) = 1 Then
        strHour = "0" & strHour
    End If
   
    If Len(strMin) = 1 Then
        strMin = "0" & strMin
    End If
       
    TimeStamp = strHour & ":" & strMin
   
End Function

Using your code, I was able to reproduce the problem you encountered when using the RFCOMAPI.DLL v9.3.2.553. I modified the following method to check for a Nothing value of NewFax and that seemed to fix the problem:

Public Sub MyFaxServerEventHandler_OnNewFaxEvent(ByVal NewFax As RFCOMAPILib.Fax)
    Dim strMsg As String
    Dim currentTime
    If Not (NewFax Is Nothing) Then
        strMsg = TimeStamp & "> " & NewFax.UniqueID & ":  " & NewFax.TotalPages & " pgs  " & whatFaxStatus(NewFax.FaxStatus) & "  "
        strMsg = strMsg & whatErrorCode(NewFax.FaxErrorCode)
        lstEvents.AddItem strMsg
    End If
End Sub

Hope that helps!

Erin

Hi Erin,

Thanks so much for your reply.  I modified the code as yours and the program can handle the new fax events now when running from IDE.  What a big improvement!  However, there are still problems:

• There are some runtime errors '-2147024809 (80070057)' when I play around the program  (e.g. switch users to show their faxes).  Those errors happen only after the 15-second mark and seem to be not fatal that the IDE can recover them.
• When I run the program from its exe (not running from IDE), it still crashes in about 15 sec.

My observation is that the program seems to go into an unstable state after receving the first event, which is at about 15 second mark after connecting to the Rightfax server.  And, I am wondering if there is any precautions or assumptions when programming custom code in V9.3 environment, which seems to behave differently from V8.5. 

Thanks again for your reply.

Following your instructions, I also observed this same behavior on my system when running your program. I am currently researching it and will post with my findings / suggestions.

Thanks,

Erin

After some additional research, we have determined this is a bug in the RFCOMAPI.DLL (v9.3.2.553). I have entered it into our tracking system (# 66332)  and it will be triaged for inclusion in a future release/patch. If you currently have a technical support contract, you can contact our technical support line for updates on the status of this particular defect.

Thanks,

Erin

Hi Erin,

Thankyou very much for your information, which is very helpful.  I shall contact the technical support for this.  Secondly, I found some problems with some fax object's methods(e.g. FaxStatus, totalPages, ...), not sure if they are related, when running a VB Script with CScript host on V9.3 platform.

Appreciate for your reply.

Code here:

On Error Resume Next

 Set objRFServer = CreateObject("RFComAPI.FaxServer")
 If Err.number <> 0 Then
   WScript.echo "Could not initialize RightFax API: " & Err.Description
 End If

 objRFServer.UseNTAuthentication = False
 objRFServer.ServerName = "MyRightfaxServer"
 objRFServer.AuthorizationUserID = "administrator"
 objRFServer.AuthorizationUserPassword = ""
 objRFServer.Protocol = 0
 
 objRFServer.OpenServer
 If Err.number <> 0 Then
   strErrMsg="Could not connect to RightFax server: " & Err.Description
   WScript.echo strErrMsg
 End If

 For Each objFolder In objRFServer.AuthorizationUser.Folders
   If UCase(objFolder.ID) = UCase("Main") Then
   Set objMainFolder = objFolder
   End If
 Next

 Set objFaxes = objMainFolder.Faxes
 For Each objFax in objFaxes
  WScript.echo "Fax:" & objFax.UniqueID

  WScript.echo "  Status:" & objFax.FaxStatus
  If Err.number <> 0 Then
    strErrMsg="  Error calling FaxStatus: " & Err.Description
    WScript.echo strErrMsg
  End If

  WScript.echo "  Page:" & objFax.totalpages
  If Err.number <> 0 Then
    strErrMsg="  Error calling totalpages: " & Err.Description
    WScript.echo strErrMsg
  End If
 Next

 objRFServer.CloseServer

I have the exact same problem with FaxStatus and TotalPages running a VB Script using the 9.0.3.215 rfcomapi.dll, It works fine with the 8.5 version.

Thanks

jgumber15:

I have the exact same problem with FaxStatus and TotalPages running a VB Script using the 9.0.3.215 rfcomapi.dll, It works fine with the 8.5 version.

Thanks

I have been researching this issue and have determined it is a defect in the API introduced sometime after the 8.7 version of RightFax. In 8.7, when you did objFolder.ID it would return the name of the folder, now it returns an empty string  everytime.

The defect created to track this issue is 66551. If you have a standard technical support contract, you can contact them for a status update on the issue.

The following VB.NET Code illustrates the problem - run it again 8.7 version of the API and it will print out hte folder name, run it against the 9.3 version of the api and it will not.

Imports RFCOMAPILib

Module Module1

Sub Main()

Dim objRFServer As RFCOMAPILib.FaxServer

Dim objFaxes As RFCOMAPILib.Faxes

Dim objFax As RFCOMAPILib.Fax

objRFServer = New FaxServer()

objRFServer.ServerName = "SupportDev-RightFax"

objRFServer.AuthorizationUserID = "Administrator"

objRFServer.AuthorizationUserPassword = ""

objRFServer.UseNTAuthentication = False

For Each objFax In objFaxes

Console.WriteLine("Fax:" & objFax.UniqueID)

Console.WriteLine("Folder: " & objFax.Folder.ID)

Console.WriteLine(" Status:" & objFax.FaxStatus)

Console.WriteLine(" Page:" & objFax.TotalPages)

Next

End Sub

End Module

Just heard the news that Rightfax V9.4 is on the way to release later this year.  I am wondering if there is a still Service Release 7 for Rightfax V9.3 to fix the COMAPI bugs. 

As we are in an urgency to have our custom code to work with Rightfax V9.3, we are now exploring any workarounds while we are waiting for the patch or next release.  So far it looks like that running the custom codes on Rightfax client V8.5 connecting to Rightfax Server V9.3 seems alright, the only thing it looks strange (but not critical) is that there are error messages happening every 15 seconcds from the application log on the Rightfax server shown as below: