Please help to find a problem in LAPI

Maggie_Burbia_(comverseadmin_-_(deleted))

The code given below, works on some computers, and on some receives the message on a mistake - "Specified DLL function not found Error function" though the version LAPI_Base.DLL and the path coincides? I shall be very grateful for the help------------------------------------------------------Const LL_SERVER_NAME = "Test1"Const LL_SERVER_PORT = "2099"Const LL_CONNECTION = "ll"Const LL_USER_NAME = "Admin"Const LL_PASSWORD = "Test1"Const LL_HEADER_VERSION = 100Const LL_NODE_ID = 2309365 'Attachments FolderConst LL_NODE_VOL = -2000Declare Function LL_Initialize Lib "C:\WINNT\LLExplorer\LAPI_Base.DLL" _ (ByVal headerVersion As Long) As LongDeclare Function LL_Uninitialize Lib "C:\WINNT\LLExplorer\LAPI_Base.DLL" () As LongDeclare Function LL_SessionAlloc Lib "C:\WINNT\LLExplorer\LAPI_Base.DLL" _ (ByRef session As Long, _ ByVal server As String, _ ByVal port As Long, _ ByVal connectionName As String, _ ByVal userName As String, _ ByVal userPassword As String) As LongDeclare Function LL_SessionFree Lib "C:\WINNT\LLExplorer\LAPI_Base.DLL" _ (ByVal session As Long) As LongDeclare Function LL_ValueAlloc Lib "llkernel.dll" _ (ByRef value As Long) As LongDeclare Function LL_AddDocument Lib "C:\WINNT\LLExplorer\lapi_documents.dll" _ (ByVal session As Long, _ ByVal ParentVolumeID As Long, _ ByVal ParentID As Long, _ ByVal FileName As String, _ ByVal FilePath As String, _ ByVal ObjInfo As Long, _ ByVal VersionInfo As Long) As LongDeclare Function LL_DeleteObject Lib "C:\WINNT\LLExplorer\lapi_documents.dll" ( _ ByVal session As Long, _ ByVal VolumeID As Long, _ ByVal NodeID As Long) As LongDeclare Function LL_AssocGetInteger Lib "llkernel.dll" _ (ByVal value As Long, _ ByVal ValueName As String, _ ByRef buf As Long) As LongType OPENFILENAME lStructSize As Long hwndOwner As Long hInstance As Long lpstrFilter As String lpstrCustomFilter As String nMaxCustFilter As Long nFilterIndex As Long lpstrFile As String nMaxFile As Long lpstrFileTitle As String nMaxFileTitle As Long lpstrInitialDir As String lpstrTitle As String flags As Long nFileOffset As Integer nFileExtension As Integer lpstrDefExt As String lCustData As Long lpfnHook As Long lpTemplateName As StringEnd TypeFunction AddNewDoc () Dim sFunctionName as StringDim lngSESSION as Long ,RezDim lngTmp1 as Long, lngTmp2 as LongDim strINPUT_FILE as String, strFILE_NAME as StringDim lngDOC_NODE_ID as Long, lngDOC_NODE_VOL as LongDim w as Window ,strErrorFunction as StringDim strPath as StringConst LL_STATUS_OK = 0 On Error goto Display_error strINPUT_FILE = "c:\Test.txt" strFILE_NAME = "Test1" If LL_Initialize(LL_HEADER_VERSION) = LL_STATUS_OK Then If LL_SessionAlloc(lngSESSION, _ LL_SERVER_NAME, _ LL_SERVER_PORT, _ LL_CONNECTION, _ LL_USER_NAME, _ LL_PASSWORD) = LL_STATUS_OK Then Rez = LL_ValueAlloc (lngTmp1) Rez = LL_ValueAlloc (lngTmp2) If LL_AddDocument(lngSESSION, _ LL_NODE_VOL, _ LL_NODE_ID, _ strFILE_NAME, _ strINPUT_FILE, _ lngTmp2, _ lngTmp1) = LL_STATUS_OK Then Rez = LL_AssocGetInteger(lngTmp2, "ID", lngDOC_NODE_ID) 'Rez = LL_AssocGetInteger(lngTmp2, "VolumeID", lngDOC_NODE_VOL) Rez = LL_SessionFree(lngSESSION) Rez = LL_Uninitialize() End If End If Exit FunctionDisplay_error: MsgBox Err.DescriptionEnd Function

Find more posts tagged with

Comments

eLink User

Message from Jonny Coombes <<A HREF="mailto:jcoombes@opentext.com">jcoombes@opentext.com> via eLink

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">Message

You shouldn't put absolute paths into Declare statements. Doing this makes your code severely non-portable across machines. You should just specify the name of the DLL only, and Windows should attempt to locate the DLL in the system path...

Cheers

Jonny Coombes (Bsc Hons)

Principal Solutions Architect

Global Services

Open Text Corporation<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" />

Mob: +44 (0)7748 986937

Tel: +44 (0)1494 679700

Fax: +44 (0)1494 679707

The leading provider of collaboration and
knowledge management software
for the global enterprise.
www.opentext.com

-----Original Message-----
From: eLink Discussion: LAPI Discussion [mailto:lapi@elinkkc.opentext.com]
Sent: 11 December 2002 10:30
To: eLink Recipient
Subject: Please help to find a problem in LAPI

Please help to find a problem in LAPI Posted by ComVerseAdmin (Arbel, Ran) on 12/11/2002 05:26 AM

The code given below, works on some computers, and on some receives the message on a mistake - "Specified DLL function not found Error function" though the version LAPI_Base.DLL and the path coincides?
I shall be very grateful for the help
------------------------------------------------------
Const LL_SERVER_NAME = "Test1"
Const LL_SERVER_PORT = "2099"
Const LL_CONNECTION = "ll"
Const LL_USER_NAME = "Admin"
Const LL_PASSWORD = "Test1"

Const LL_HEADER_VERSION = 100
Const LL_NODE_ID = 2309365 'Attachments Folder
Const LL_NODE_VOL = -2000

Declare Function LL_Initialize Lib "C:\WINNT\LLExplorer\LAPI_Base.DLL" _
(ByVal headerVersion As Long) As Long

Declare Function LL_Uninitialize Lib "C:\WINNT\LLExplorer\LAPI_Base.DLL" () As Long

Declare Function LL_SessionAlloc Lib "C:\WINNT\LLExplorer\LAPI_Base.DLL" _
(ByRef session As Long, _
ByVal server As String, _
ByVal port As Long, _
ByVal connectionName As String, _
ByVal userName As String, _
ByVal userPassword As String) As Long

Declare Function LL_SessionFree Lib "C:\WINNT\LLExplorer\LAPI_Base.DLL" _
(ByVal session As Long) As Long

Declare Function LL_ValueAlloc Lib "llkernel.dll" _
(ByRef value As Long) As Long

Declare Function LL_AddDocument Lib "C:\WINNT\LLExplorer\lapi_documents.dll" _
(ByVal session As Long, _
ByVal ParentVolumeID As Long, _
ByVal ParentID As Long, _
ByVal FileName As String, _
ByVal FilePath As String, _
ByVal ObjInfo As Long, _
ByVal VersionInfo As Long) As Long

Declare Function LL_DeleteObject Lib "C:\WINNT\LLExplorer\lapi_documents.dll" ( _
ByVal session As Long, _
ByVal VolumeID As Long, _
ByVal NodeID As Long) As Long

Declare Function LL_AssocGetInteger Lib "llkernel.dll" _
(ByVal value As Long, _
ByVal ValueName As String, _
ByRef buf As Long) As Long

Type OPENFILENAME
lStructSize As Long
hwndOwner As Long
hInstance As Long
lpstrFilter As String
lpstrCustomFilter As String
nMaxCustFilter As Long
nFilterIndex As Long
lpstrFile As String
nMaxFile As Long
lpstrFileTitle As String
nMaxFileTitle As Long
lpstrInitialDir As String
lpstrTitle As String
flags As Long
nFileOffset As Integer
nFileExtension As Integer
lpstrDefExt As String
lCustData As Long
lpfnHook As Long
lpTemplateName As String
End Type

Function AddNewDoc ()
Dim sFunctionName as String
Dim lngSESSION as Long ,Rez
Dim lngTmp1 as Long, lngTmp2 as Long
Dim strINPUT_FILE as String, strFILE_NAME as String
Dim lngDOC_NODE_ID as Long, lngDOC_NODE_VOL as Long
Dim w as Window ,strErrorFunction as String
Dim strPath as String
Const LL_STATUS_OK = 0

On Error goto Display_error

strINPUT_FILE = "c:\Test.txt"
strFILE_NAME = "Test1"

If LL_Initialize(LL_HEADER_VERSION) = LL_STATUS_OK Then

If LL_SessionAlloc(lngSESSION, _
LL_SERVER_NAME, _
LL_SERVER_PORT, _
LL_CONNECTION, _
LL_USER_NAME, _
LL_PASSWORD) = LL_STATUS_OK Then

Rez = LL_ValueAlloc (lngTmp1)

Rez = LL_ValueAlloc (lngTmp2)

If LL_AddDocument(lngSESSION, _
LL_NODE_VOL, _
LL_NODE_ID, _
strFILE_NAME, _
strINPUT_FILE, _
lngTmp2, _
lngTmp1) = LL_STATUS_OK Then

Rez = LL_AssocGetInteger(lngTmp2, "ID", lngDOC_NODE_ID)
'Rez = LL_AssocGetInteger(lngTmp2, "VolumeID", lngDOC_NODE_VOL)

Rez = LL_SessionFree(lngSESSION)

Rez = LL_Uninitialize()

End If
End If
Exit Function
Display_error:
MsgBox Err.Description
End Function

John_Pasternack

It looks like you're passing ingSession by value rather than by reference in your call to sessionalloc.

Mukesh_Giri

Hi,

Agree with JC.

Please add references tothe dll LAPI_BASE not directly C:...\lapi_base.

Also either LAPI should be installed on the machine where you are testing or you should bundle these dlls in your solution.

Cheers,

Mukesh Giri (mukesh.kgiri@hotmail.com)