Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Passing numeric variable by reference
Message
 
To
21/06/2007 12:26:18
General information
Forum:
Visual FoxPro
Category:
COM/DCOM and OLE Automation
Environment versions
Visual FoxPro:
VFP 8
OS:
Windows XP
Miscellaneous
Thread ID:
01234773
Message ID:
01234776
Views:
14
>Hello folks,
>
>I'm using a third party COM object that needs some variables to be passed by reference so information can be retrieved from them after the call. The strings are not a problem. However, the numeric variables are causing "OLE Error: Type Mismatch"
>
>
>ods = createobject("dserve2.dserve")
>ods.dsConnect("192.168.1.99",8227,40000)
>lnChannel = 1
>? ods.dsOpen("g:\ssi605\data\ic\icmast",@lnChannel)  && error here
>? ods.dsOpen("g:\ssi605\data\ic\icmast",lnChannel)  && works, but there is always the possibility
>                                                   && that the COM object assigns me a different channel
>
>
>
>The vendor does not have VFP knowledge...it is written in some sort of basic. On the previous version of the DLL, I wrote a VB wrapper around it. But this version (except for this problem) works great in VFP, and I really want to cut out the middle man.
>
>Any ideas?
>
>< update >
>For those who care, the COM object communicates with a process running on a server, which provides an interface into our legacy accounting package (FACTS...written in Basis business basic).
>< /update >
>
>Thanks...
Doesn't that COM Server have a property that could show you which is current channel?
If so, you could use:
? ods.dsOpen("g:\ssi605\data\ic\icmast",lnChannel)  && works, but there is always the possibility
                                                    && that the COM object assigns me a different channel
lnChannel = ods.ChannelPropety
Against Stupidity the Gods themselves Contend in Vain - Johann Christoph Friedrich von Schiller
The only thing normal about database guys is their tables.
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform