RE: How to query interface by Win32::OLE.

2006-05-10 Thread Jan Dubois
Hi Like, I'm not aware of any modules for this. A *long* time ago I started working on a Win32::COM implementation, but abandoned it because almost all "interesting" COM components support IDispatch properly. You are really running into a case where the developer of the component hasn't been think

Re: How to query interface by Win32::OLE.

2006-05-10 Thread like
Hi Jan, Thanks. Are there any perl modules to solve this problem? Regards, Like - Original Message - From: "Jan Dubois" <[EMAIL PROTECTED]> To: "'Like Ma'" <[EMAIL PROTECTED]> Cc: Sent: Tuesday, May 09, 2006 6:38 AM Subject: RE: How to qu

RE: How to query interface by Win32::OLE.

2006-05-08 Thread Jan Dubois
On Sat, 06 May 2006, Like Ma wrote: > Hi Jan, > > I am sure that it does. I can call the methods of IJob, but I can't > call any method of ISourceCollection. Is there a method in Win32::OLE > like QueryInterface in C++ ? There is an undocumented QueryInterface method in Win32::OLE but it will not

Re: How to query interface by Win32::OLE.

2006-05-06 Thread Like Ma
Hi Jan, I am sure that it does. I can call the methods of IJob, but I can't call any method of ISourceCollection. Is there a method in Win32::OLE like QueryInterface in C++ ? Thanks, Like On 5/7/06, Jan Dubois <[EMAIL PROTECTED]> wrote: On Sat, 06 May 2006, Like Ma wrote: > I want to communic

RE: How to query interface by Win32::OLE.

2006-05-06 Thread Jan Dubois
On Sat, 06 May 2006, Like Ma wrote: > I want to communicate with COM, that is the following: > coclass CJob { > interface IJob; > interface ISourceCollection; > }; > by Win32::OLE like > $job = Win32::OLE->new ('SyncService.Job.1') || die "Unable to create job.\n"; > if (Win32::OLE->LastError !

How to query interface by Win32::OLE.

2006-05-06 Thread Like Ma
Hi Everyone, I want to communicate with COM, that is the following: coclass CJob { interface IJob; interface ISourceCollection; }; by Win32::OLE like $job = Win32::OLE->new ('SyncService.Job.1') || die "Unable to create job.\n"; if (Win32::OLE->LastError != 0) { print "Unable to new a j