Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Writing a Delphi COM server for use with VFP
Message
From
16/11/2001 12:52:23
Liam O'Hagan
O'Hagan Programming Ltd
Ireland
 
 
To
16/11/2001 12:27:54
Cetin Basoz
Engineerica Inc.
Izmir, Turkey
General information
Forum:
Visual FoxPro
Category:
COM/DCOM and OLE Automation
Miscellaneous
Thread ID:
00582785
Message ID:
00582814
Views:
22
Hi Cetin,

Thanks for your reply.

obj = CreateObject("VisionCom.VisionComServer") gives me the "No Such Interface Supported" error.

obj = CreateObjectex("VisionCom.VisionComServer", "\\liamdesktop\", "{9DAFFDFD-1E82-43D0-A14E-0503098F47F3}") gives me a "Class not registered" error.

I can create an instance of the VisionCom server from a small Delphi program using the above GUID and get a return value from a method on the server so I know (well, pretty sure anyway) that I've created the server correctly. I'm thinking that I'm missing something additional that I need to do to allow VPF to create an instance.

I'm on the way out of the office now so if you reply and don't hear back from me, I'm not being rude - I'm just not around.

Regards,

Liam


>>>Hi All,
>>>
>>>Does anyone have any pointers to docs on writing a COM Server in Delphi for calling from VFP? There appears to be a dearth of documentation on the subject of Delphi COM programming in general. Any URLs gratefully received.
>>>
>>>Specifically, if anyone can tell me why I'm getting the "No such Interface Supported" error when I try to instantiate the server from VPF I'd be grateful.
>>>
>>>Although this is a Delphi COM topic, the COM server is for use by a VFP client so this post is actually ever-so-slightly on-topic.
>>>
>>>TIA
>>>
>>>Liam
>>Liam,
>>If VFP7 have you tried CreateObjectEx() ?
>>Oh in VFP6 too.
>>Cetin
>
>But DOC says 3rd parameter (CIID) is new to VFP7 - that would provide early binding thus preventing 'No such interface supported'
>Cetin
Liam O'Hagan
MCP VFP Desktop Apps
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform