Win32::OLE Usage

Nitrox has asked for the wisdom of the Perl Monks concerning the following question:

I've successfully created an Win32::OLE object which gives me about 95% of the functionality available with this particular 3rd party application. The latest piece that I'm trying to get working is a callback. Here's what the documentation shows for VB interaction:

RegisterEventCB takes a long, and a reference to a form with a HSEvent(parms as variant) method declared public.

    Private Sub Form_Load()
      Set hs = New HS.Application
      hs.RegisterEventCB 3, Me
    End Sub
[download]

Here is a snippet from my Perl version, which doesn't throw an error, but passing $cb to Data::Dumper shows its empty.

    $obj = Win32::OLE->CreateObject('HS.Application');
    $self = bless {};
    $cb = $obj->RegisterEventCB(3,$self);
    print Dumper(\$cb);

    sub HSEvent{
        print Dumper(\@_);
        }
[download]

Does anyone see what I'm doing wrong here? Thanks in advance.

-Nitrox

Comment on Win32::OLE Usage Select or Download Code

Replies are listed 'Best First'.
Re: Win32::OLE Usage by LanceDeeply (Chaplain) on Feb 06, 2003 at 23:06 UTC
wow- i've used Win32::OLE to manipulate all kinds of com objects- but not the other way around. i did a search and maybe this artice: Using OLE Events with Win32::OLE can help. good luck!	[reply]
Re: Win32::OLE Usage by tachyon (Chancellor) on Feb 06, 2003 at 23:38 UTC
These two are not equivalent. `hs.RegisterEventCB 3, Me $cb = $obj->RegisterEventCB(3,$self);` [download] You note that: RegisterEventCB takes a long, and a reference to a form* with a HSEvent(parms as variant) method declared public* You are passing a long (digit 3) and a blessed anon hash to the RegisterEventCB method when it wants a reference to a form (object). I think you need to generate the form object somewhere - Me. cheers tachyon s&&rsenoyhcatreve&&&s&n.+t&"$'$`$\"$\&"&ee&&y&srve&&d&&print	[reply] [d/l]
Re: Re: Win32::OLE Usage by Nitrox (Chaplain) on Feb 07, 2003 at 03:15 UTC
I admit it was a stretch, but I was hoping that the second argument in $self would be equivalent to a Form. Anyone have an idea on how to generate a Form object in Perl? -Nitrox	[reply]
Re: Re: Re: Win32::OLE Usage by MZSanford (Curate) on Feb 07, 2003 at 20:44 UTC
Unfortunatly, whatever code you are using sounds like it is designed specifically for use in VB. Because perl is using OLE in a non-GUI (in the VB sence) environment, there are no forms to pass. There may be some bastardisation of Win32::GUI which could produce a form handle, but i have yet to see it.I suspect that there is currently no way to create a form in perl, but i may be wrong. from the frivolous to the serious	[reply]
Re: Win32::OLE Usage by Nitrox (Chaplain) on Feb 07, 2003 at 03:28 UTC
I stumbled upon a copy of "OLE View" and it proved to be quite helpful. I took a look at the Type Info for the COM object I'm working with and saw that the "reference to a form" parameter is a IDispatch interface. A quick search turned up PerlCOM which doesn't mention callbacks, but it's a starting place. -Nitrox	[reply]