Argenis, to me that looks like you didn't import the module. Sorry, I had forgotten to mention that: in order to be able to load the constants you would have to say use Win32::OLE::Const; somewhere near the start of your program. After that the error message should go away (and hopefully not be replaced with another). Cheers, Christian Sage -----Urspr�ngliche Nachricht----- Von: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]] Gesendet am: Freitag, 8. Juni 2001 13:59 An: Sage, Christian Betreff: Re: AW: problems whit Win32::OLE Thank you!!! I can transmit $reflection->TransmitANSI("argenis"); $reflection->TransmitTerminalKey("289"); I obtain a error in the line my $constants = Win32::OLE::Const->Load($reflection); ######### Can't locate object method "Load" via package "Win32::OLE::Const" (perhaps you f orgot to load "Win32::OLE::Const"?) at cd.pl line 17. ######### Thank you for you answers.... "Sage, Christian" <[EMAIL PROTECTED]> wrote: > > Argenis, > > having no experience whatsoever with Reflection I can't really say, but I would >guess you would need to gather the constant value definitions from the COM server >into a hash first and use those afterwards. At least that's what I find I have to do >when controlling MS Excel through OLE. The statement would be something like this: > > my $constants = Win32::OLE::Const->Load($reflection); > $reflection->{TransmitTerminalKey}= $constants{rcIBMTabKey}; > > No idea whether that will solve your problem, but it may be worth a try. > > Cheers, > Christian Sage > > -----Urspr�ngliche Nachricht----- > Von: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]] > Gesendet am: Donnerstag, 7. Juni 2001 20:39 > An: [EMAIL PROTECTED] > Betreff: problems whit Win32::OLE > > Hi my friends > I have a problem calling a method in a Connectio whit reflection from IBM > > here is the code > > #!c:/perl/bin/perl.exe > #use strict; > � � use Fcntl; > � � use SDBM_File; > � � use Win32::OLE qw(EVENTS); > � � use CGI qw(:standard) ; > > > � � my $Quit; > � � tie my %adb, 'SDBM_File', 'adb', O_RDWR|O_CREAT, 0744; > � � my $reflection = Win32::OLE->new('Reflection4.Application'); > � � #Win32::OLE->WithEvents($ie, 'BrowserEvents', 'DWebBrowserEvents2'); > � � $reflection->{Visible} = 1; > � � $reflection->{Caption} = "Operador WAP - 4TEL"; > � � $reflection->{ConnectionType}="BEST-NETWORK"; > � � $reflection->{ConnectionSettings}="Host 161.196.68.141"; > � � $reflection->{ConnectionSettings}="DefaultNetwork TELNET"; � > � � $reflection->{Connect}; > � � $reflection->{OleServerName}="n4001"; � > � � $reflection->{Transmit}="n4001"; > # in this statement is teh error > � � $reflection->{TransmitTerminalKey}= "rcIBMTabKey"; > � � $reflection->{TransmitTerminalKey(846)}; > # ****************************** > print "Finished"; > -- > "Es imposible calcular cuantas buenas ideas > se abandonan todos los d�as > como resultado de relaciones dif�ciles de manejar." > > - John P. Kotter - > > > > > �� > > > > > > > Saludos > Argenis P�rez > > > > > > > > > � > > > > > __________________________________________________________________ > Get your own FREE, personal Netscape Webmail account today at >http://webmail.netscape.com/ -- "Es imposible calcular cuantas buenas ideas se abandonan todos los d�as como resultado de relaciones dif�ciles de manejar." - John P. Kotter - � Saludos Argenis P�rez __________________________________________________________________ Get your own FREE, personal Netscape Webmail account today at http://webmail.netscape.com/
