Hi guys:
I hope someone can help me figure this out. I have a sample VB form that uses the following declaration and works flawlessly:
from modDeclare
Public Declare Function OpenClient Lib "imdsi.dll" Alias "Open_Client" (ByVal ServerName As String, ByVal System As Integer) As Long
from frmConnection
If frmConnection.optTestRegion Then
gClientHdl = OpenClient("
www.whatever.com", Asc("T"))
End If
The foxpro equivalent:
form.init()
DECLARE LONG OpenClient IN imdsi.dll ALIAS Open_Client STRING lcServerName, INTEGER lnSystem
form.connect()
LPARAMETERS tcAddress, tnMode
LOCAL llRetVal
WITH this
lnServerHandle = OpenClient(tcAddress, tnMode)
IF .nServerHandle > 0
llRetVal = .T.
ENDIF
ENDWITH
RETURN llRetVal
I get an error "Cannot find Entry point OpenClient in the dll". Any ideas would be greatly appreciated.