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/
