RegisterCabinetEx
Registers Shared cabinet.
Public Function RegisterCabinet(
ByVal CabinetName As String,
ByVal DBPath As String,
ByVal DoBpath As String,
ByVal CabinetType As String,
ByVal DBType As String,
ByVal ISConnectStr As String,
ByVal ISPassword As String,
ByVal ISSMSAddress As String,
ByVal ISUser As String,
ByVal PortId As Long,
ByVal ServerAddress As String,
ByVal TimeOut As Long,
ByVal SiteIndex As Long,
ByVal ISEnable As String) As Long
Parameters
In/out |
Name |
Data type |
Description |
In |
CabinetName |
String |
Cabinet Name. |
In |
DBPath |
String |
DataBase Path. |
In |
DoBpath |
String |
DoB Path |
In |
CabinetType |
String |
CabinetType |
In |
DBType |
String |
DataBase Type |
In |
ISConnectStr |
String |
Image Server Connect String |
In |
ISPassword |
String |
Image Server Password |
In |
ISSMSAddress |
String |
Image Server SMS Address |
In |
ISUser |
String |
Image Server User |
In |
PortId |
Long |
Port Index. |
In |
ServerAddress |
String |
Server Address. |
In |
TimeOut |
Long |
Time Out. |
In |
SiteIndex |
Long |
Site Index. |
In |
ISEnable |
String |
Image Server Enable |
Description
This function is called from OmniDocs Desktop. It is used to register a shared cabinet.
Return value
Name |
Description |
NG_SUCCESS |
In case of success |
-8 |
Invalid Dob Path. |
-5 |
Cabinet Already Exists. |
-11 |
Cabinet could not be upgraded. |
Example
Dim CabinetName As String
Dim DBPath As String
Dim DoBpath As String
Dim CabinetType As String
Dim DBType As String
Dim ISConnectStr As String
Dim ISPassword As String
Dim ISSMSAddress As String
Dim ISUser As String
Dim PortId As Long
Dim ServerAddress As String
Dim TimeOut As Long
Dim SiteIndex As Long
Dim ISEnable As String
Dim lRetVal As long
CabinetName =”OmniDocs”
DBPath =”Oracle”
DoBpath =””
CabinetType =”REMOTE”
DBType =”JTS”
ISConnectStr =””
ISPassword =””
ISSMSAddress =””
ISUser =””
PortId =3333
ServerAddress =”192.168.5.53”
TimeOut =300
SiteIndex = 1
ISEnable = “”
lRetVal = gPanDb. RegisterCabinetEx(CabinetName,DBPath, DoBpath,CabinetType, DBType, ISConnectStr, ISPassword, ISSMSAddress, ISUser,PortId, ServerAddress,TimeOut, SiteIndex,ISEnable)
If lRetVal <> NG_SUCCESS Then
MsgBox gPandDb.ErrDescription, vbInformation
Screen.MousePointer = vbNormal
Exit Sub
Else
MsgBox “Success”
End If