Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
File not open error
Message
 
To
10/12/2001 03:47:51
Cetin Basoz
Engineerica Inc.
Izmir, Turkey
General information
Forum:
Visual FoxPro
Category:
COM/DCOM and OLE Automation
Miscellaneous
Thread ID:
00590976
Message ID:
00592421
Views:
25
>>Nope.
>Then do :)
>Cetin


Still no luck

I have this code
DEFINE CLASS PriceWS AS Custom OLEPUBLIC 	
	isOpen= .F.
	cDir= ""
	oDS= .F.
	
	FUNCTION Init
		LOCAL oINI AS IniAccess OF PriceWS, ;
			cDir AS String
		SET CLASSLIB TO PriceWS
		SET DATE TO BRITISH
		SET RESOURCE OFF
		SET EXCLUSIVE OFF
		SET CPDIALOG OFF
		SET DELETED ON
		SET EXACT OFF
		SET SAFETY OFF
		SET REPROCESS TO 2 SECONDS
		this.oDS= CREATEOBJECT("Session")
		SET DATASESSION TO this.oDS.DataSessionID
		oINI= CREATEOBJECT("IniAccess")
		oINI.getinientry(@cDir, "MySection", "Dir", "MyIni.ini")
		m.cDir= ADDBS(m.cDir)
		IF !EMPTY(m.cDir)
			this.cDir = m.cDir
			this.isOpen= .T.
			USE (m.cDir + "MyTable.dbf") IN 0 SHARED ORDER MyOrder
		ENDIF
	ENDFUNC
	
	FUNCTION getString AS String
		RETURN "String"
	ENDFUNC
	
ENDDEFINE


Any Ideas?
All files and the like exist, and all code works in the command window.
When attempting to create an instance it say Class Factory can not provide the class.
If I comment out
USE (m.cDir + "MyTable.dbf") IN 0 SHARED ORDER MyOrder
Then it instanciates fine
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform