Re: Win32::OLE->new silently killing perl process

[Jan Dubois]

On Tue, 16 May 2000 10:01:01 -0700, Charlie Fineman <[EMAIL PROTECTED]>
wrote:

>Here is the VB code:
>
>Private Sub CalcButton_Click()
>        Dim hours As Long
>        Dim miles As Single
>
>        Dim server As Object
>        
>        Set server = CreateObject("PCMServer.PCMServer")
>        
>        MsgBox "server product name" + server.ProductName
>
>        MsgBox "origin: " + origin + "dest: " + dest
>        
>        miles = server.CalcDistance(origin, dest) / 10#
>        
>        ResultField.Text = CStr(miles) & " miles"
>End Sub

So what does the following test program do?  Does it print the
ProductName?

#------------------------------------------------------
use strict;
use Win32::OLE;
$^W=$|=1;

my $server = Win32::OLE->new("PCMServer.PCMServer");
print "server is $server\n";
print "product name ", $server->ProductName, "\n";
#------------------------------------------------------

-Jan


---
You are currently subscribed to perl-win32-users as: [archive@jab.org]
To unsubscribe, forward this message to
         [EMAIL PROTECTED]
For non-automated Mailing List support, send email to  
         [EMAIL PROTECTED]