Re: Accessing dll with Perl?

Not sure it'll work, but see if Win32::OLE can do that.

Can you show some example VB code to do this? Maybe we'll recognize something.

Comment on Re: Accessing dll with Perl?

Replies are listed 'Best First'.
Re^2: Accessing dll with Perl? by Anonymous Monk on Oct 07, 2008 at 17:05 UTC
Here is the perl code for that's inside the generated dll package Hello; sub Hello { return "Hello, World"; } =pod =begin PerlCtrl %TypeLib = ( PackageName => 'Hello', # DO NOT edit the next 3 lines. TypeLibGUID => '{E91B25C6-2B15-11D2-B466-0800365DA902}', ControlGUID => '{E91B25C7-2B15-11D2-B466-0800365DA902}', DispInterfaceIID=> '{E91B25C8-2B15-11D2-B466-0800365DA902}', ControlName => 'HelloWorldControl', ControlVer => 1, ProgID => 'Hello.World', DefaultMethod => '', Methods => { 'Hello' => { RetType => VT_BSTR, TotalParams => 0, NumOptionalParams => 0, ParamList =>[ ] }, }, # end of 'Methods' Properties => { } , # end of 'Properties' ); # end of %TypeLib =end PerlCtrl =cut [download] and here is the VB code that would access it: `Dim objHello Set objHello = CreateObject("Hello.World") MsgBox objHello.Hello` [download] Seems fairly simple but I'm having a brain cramp or something :)	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^2: Accessing dll with Perl?
by Anonymous Monk on Oct 07, 2008 at 17:05 UTC

package Hello;

sub Hello {
    return "Hello, World";
}

=pod

=begin PerlCtrl

    %TypeLib = (
        PackageName     => 'Hello',

    # DO NOT edit the next 3 lines.
        TypeLibGUID     => '{E91B25C6-2B15-11D2-B466-0800365DA902}', 
        ControlGUID     => '{E91B25C7-2B15-11D2-B466-0800365DA902}',
        DispInterfaceIID=> '{E91B25C8-2B15-11D2-B466-0800365DA902}',

        ControlName     => 'HelloWorldControl',
        ControlVer      => 1,  
        ProgID          => 'Hello.World',
        DefaultMethod   => '',

        Methods         => {
            'Hello' => {
                    RetType             =>  VT_BSTR,
                    TotalParams         =>  0,
                    NumOptionalParams   =>  0,
                    ParamList           =>[ ]
                },
            },  # end of 'Methods'

        Properties      => {
            }
        ,  # end of 'Properties'
        );  # end of %TypeLib

=end PerlCtrl

=cut
[download]

Dim objHello
Set objHello = CreateObject("Hello.World")

MsgBox objHello.Hello
[download]

[reply]
[d/l]
[select]