Beefy Boxes and Bandwidth Generously Provided by pair Networks
P is for Practical
 
PerlMonks  

Re: Accessing dll with Perl?

by jplindstrom (Monsignor)
on Oct 07, 2008 at 15:39 UTC ( [id://715811]=note: print w/replies, xml ) Need Help??


in reply to 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.

/J

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
    and here is the VB code that would access it:
    Dim objHello Set objHello = CreateObject("Hello.World") MsgBox objHello.Hello
    Seems fairly simple but I'm having a brain cramp or something :)

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://715811]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others surveying the Monastery: (4)
As of 2024-04-20 04:34 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found