Hello,
I am fairly new to the world of calling DLL's from Progress. So I apologize in advance if the answer to my question is blatently obvious.
I have a DLL to which I need to pass parameters from Progress.
The DLL (which was developed using VB 6.0 )is single threaded and composed of 3 class modules. I have verified the spelling of my procedure in my VB code but when I run Progress I get error 3260 saying that the entrypoint could not be found. I have registered the DLL with regsvr32.exe. Also the class in which the DLL interface resides has it's Instancing property set to 5-MultiUse.
Here is the actual code:
NOTE: The values of c1 through c8 are being passed
to the .p by a .w in Appbuilder. (Assigns are being done in the
calling procedure).
================================
Progress code
================================
DEF INPUT PARAMETER c1 AS CHAR NO-UNDO.
DEF INPUT PARAMETER c2 AS CHAR NO-UNDO.
DEF INPUT PARAMETER c3 AS CHAR NO-UNDO.
DEF INPUT PARAMETER c4 AS CHAR NO-UNDO.
DEF INPUT PARAMETER c5 AS CHAR NO-UNDO.
DEF INPUT PARAMETER c6 AS CHAR NO-UNDO.
DEF INPUT PARAMETER c7 AS CHAR NO-UNDO.
DEF INPUT PARAMETER c8 AS CHAR NO-UNDO.
RUN BeginConversionPub(INPUT c1, INPUT c2, INPUT c3, INPUT c4, INPUT c5, INPUT c6, INPUT c7, INPUT c8).
PROCEDURE BeginConversionPub EXTERNAL "ProgressToAccess.dll":
DEF INPUT PARAMETER c1 AS CHAR NO-UNDO.
DEF INPUT PARAMETER c2 AS CHAR NO-UNDO.
DEF INPUT PARAMETER c3 AS CHAR NO-UNDO.
DEF INPUT PARAMETER c4 AS CHAR NO-UNDO.
DEF INPUT PARAMETER c5 AS CHAR NO-UNDO.
DEF INPUT PARAMETER c6 AS CHAR NO-UNDO.
DEF INPUT PARAMETER c7 AS CHAR NO-UNDO.
DEF INPUT PARAMETER c8 AS CHAR NO-UNDO.
END PROCEDURE.
===================================
//////////////////////////////////////////////////////////////
===================================
DLL interface in VB
===================================
Option Explicit
Dim clsrun As Main_class
Sub BeginConversionPub(strFromTxtFileName As String, strtodbpath As String, _
strtodatabasename As String, strdbpassword As String, strtoTableName As String, strtoFilePath As String, blnDummyRecord As String, blnCopyArchive As String)
Set clsrun = New Main_class
If clsrun.main(strFromTxtFileName, strtodbpath, strtodatabasename, strdbpassword, strtoTableName, strtoFilePath, blnDummyRecord, blnCopyArchive) = True Then
Else
MsgBox "Error calling subclass Main_class", vbCritical
Set clsrun = Nothing
End If
End Sub
===========================================
////////////////////////////////////////////////////////////////////////////
===========================================
Any assistance would be greatly appreciated. Have a great day.
I am fairly new to the world of calling DLL's from Progress. So I apologize in advance if the answer to my question is blatently obvious.
I have a DLL to which I need to pass parameters from Progress.
The DLL (which was developed using VB 6.0 )is single threaded and composed of 3 class modules. I have verified the spelling of my procedure in my VB code but when I run Progress I get error 3260 saying that the entrypoint could not be found. I have registered the DLL with regsvr32.exe. Also the class in which the DLL interface resides has it's Instancing property set to 5-MultiUse.
Here is the actual code:
NOTE: The values of c1 through c8 are being passed
to the .p by a .w in Appbuilder. (Assigns are being done in the
calling procedure).
================================
Progress code
================================
DEF INPUT PARAMETER c1 AS CHAR NO-UNDO.
DEF INPUT PARAMETER c2 AS CHAR NO-UNDO.
DEF INPUT PARAMETER c3 AS CHAR NO-UNDO.
DEF INPUT PARAMETER c4 AS CHAR NO-UNDO.
DEF INPUT PARAMETER c5 AS CHAR NO-UNDO.
DEF INPUT PARAMETER c6 AS CHAR NO-UNDO.
DEF INPUT PARAMETER c7 AS CHAR NO-UNDO.
DEF INPUT PARAMETER c8 AS CHAR NO-UNDO.
RUN BeginConversionPub(INPUT c1, INPUT c2, INPUT c3, INPUT c4, INPUT c5, INPUT c6, INPUT c7, INPUT c8).
PROCEDURE BeginConversionPub EXTERNAL "ProgressToAccess.dll":
DEF INPUT PARAMETER c1 AS CHAR NO-UNDO.
DEF INPUT PARAMETER c2 AS CHAR NO-UNDO.
DEF INPUT PARAMETER c3 AS CHAR NO-UNDO.
DEF INPUT PARAMETER c4 AS CHAR NO-UNDO.
DEF INPUT PARAMETER c5 AS CHAR NO-UNDO.
DEF INPUT PARAMETER c6 AS CHAR NO-UNDO.
DEF INPUT PARAMETER c7 AS CHAR NO-UNDO.
DEF INPUT PARAMETER c8 AS CHAR NO-UNDO.
END PROCEDURE.
===================================
//////////////////////////////////////////////////////////////
===================================
DLL interface in VB
===================================
Option Explicit
Dim clsrun As Main_class
Sub BeginConversionPub(strFromTxtFileName As String, strtodbpath As String, _
strtodatabasename As String, strdbpassword As String, strtoTableName As String, strtoFilePath As String, blnDummyRecord As String, blnCopyArchive As String)
Set clsrun = New Main_class
If clsrun.main(strFromTxtFileName, strtodbpath, strtodatabasename, strdbpassword, strtoTableName, strtoFilePath, blnDummyRecord, blnCopyArchive) = True Then
Else
MsgBox "Error calling subclass Main_class", vbCritical
Set clsrun = Nothing
End If
End Sub
===========================================
////////////////////////////////////////////////////////////////////////////
===========================================
Any assistance would be greatly appreciated. Have a great day.