Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
ADO and VFPCOM
Message
 
 
To
25/05/2004 18:34:15
General information
Forum:
Visual FoxPro
Category:
COM/DCOM and OLE Automation
Title:
Miscellaneous
Thread ID:
00906288
Message ID:
00907133
Views:
12
Tim,

How do you call VFP dll in .NET?

>
>I tried building my COM object as a Multi Thread DLL but I get the same error. Maybe I'm calling it wrong. Here is my COM code below:
>
>DEFINE CLASS FOXSEEK AS CUSTOM OLEPUBLIC
>
>	FUNCTION SEEKME
>	LPARAMETERS GCTABLENAME, GCJOBNUM
>		RETURNBOOL = 10
>
>
>		IF EMPTY(GCTABLENAME) OR EMPTY(GCJOBNUM)
>			RETURNBOOL = 99
>			RETURN 0
>		ENDIF
>
>CLOSE DATA ALL
>
>CREATE CURSOR NEWPRODWIP (JOB_NUM C(10), PRODUCT C(4), SLOT C(2))
>IF FILE(ALLTRIM(GCTABLENAME))
>	USE &GCTABLENAME IN 0 ALIAS PRODWIP SHARED
>	IF USED("Prodwip")
>		SELECT PRODWIP
>		SET ORDER TO JOB_NUM
>		
>		IF SEEK (GCJOBNUM)
>			SCAN WHILE PRODWIP.JOB_NUM = (GCJOBNUM)
>				IF LEFT(PRODWIP.PRODUCT,1) = "8" ;
.OR. LEFT(PRODWIP.PRODUCT,3) = "977" ;
.OR. LEFT(PRODWIP.PRODUCT,2) = "NP" ;
.OR. PRODWIP.PRODUCT = "656"
>					SELECT NEWPRODWIP
>					APPEND BLANK
>					REPLACE JOB_NUM WITH PRODWIP.JOB_NUM
>					REPLACE PRODUCT WITH PRODWIP.PRODUCT
>					REPLACE SLOT WITH PRODWIP.SLOT
>				ENDIF
>			ENDSCAN
>		ENDIF
>
>		SELECT NEWPRODWIP
>		
>		#DEFINE C_VFPCOMCLASS 'vfpcom.comutil'
>		oVFPCOM = CREATEOBJECT('VFPCOM.COMUTIL')
>		oRECORDSET=CREATEOBJECT('ADODB.RECORDSET')
>		nERROR = oVFPCOM.CURSORTORS(oRECORDSET,'NewProdWip')
>
>		RETURN ORECORDSET
>	ELSE
>		RETURN GCTABLENAME + "  Access Denied" && no table
>	ENDIF
>ENDIF
>RETURN RETURNBOOL
>	ENDPROC
>ENDDEFINE
>
>I hope this wasn't too much.
>
>Thank you!
>
>Tim
--sb--
Previous
Reply
Map
View

Click here to load this message in the networking platform