Click here to get back home

problem in using win32::SerialPort
 Home | NewsGroups | Search | About
Login Password
Register Now!
 comp.lang.perl.modules    Post an article   get this group's latest topics as an RSS feed add this group's latest topics to your My MSN content add this group's latest topics to your My Yahoo content
Subject Author Date
problem in using win32::SerialPort sachin 09-07-2007
Get Chitika Premium
Posted by sachin on September 7, 2007, 2:27 am
Please log in for more thread options

Hi All
I am using win32::SerialPort in my perl application.
I am able to read and write at COM1 using API of win32::SerialPort
module.
Now I am trying to open a port which does not exist on my machine(e.g.
COM3)
When I open this port , I get an error
****" Can't open \.\COM3: The system cannot find the file specified"
and application exits.
I dont want to get my application exit after this.
I read the manual of win32::SerialPort and found that using $quiet I
can get return value 0 if port is not opened.
Below is my code I have used
sub IntializeUART
{
$quiet = 1;
$PortObj = new Win32::SerialPort ($_[0], $quiet)
|| die "Can't open $_[0]: $^E\n"; # $quiet is optional

if($PortObj == 0)
{
return 0;
}
else
{

$PortObj->handshake("xoff");
$PortObj->baudrate(115200);
$PortObj->parity("even");
$PortObj->databits(8);
$PortObj->stopbits(1);
........
........

}
I set this $quiet to 1 but my application still exits.
Actually my board is connected to one of the port on the PC.Now I want
to open ports from COM1 to COM20 and see on which port my board is
connected.
But as soon as my application comes across any port which it is not
able to open it shows me the above mentioned message(****) and
application exits.

So can you please tell me how to use $quiet so that I get return value
0 when port is not opened and my application does not exit.

Your suggestions are welcome.
Thanks in advance


Posted by Brian McCauley on September 8, 2007, 10:02 am
Please log in for more thread options


> Now I am trying to open a port which does not exist on my machine(e.g.
> COM3)
> When I open this port , I get an error
> ****" Can't open \.\COM3: The system cannot find the file specified"
> and application exits.
> I dont want to get my application exit after this.
> $PortObj = new Win32::SerialPort ($_[0], $quiet)
> || die "Can't open $_[0]: $^E\n"; # $quiet is optional

> But as soon as my application comes across any port which it is not
> able to open it shows me the above mentioned message(****) and
> application exits.
>

Doctor, doctor it hurts when I do this...

If you don't want your application to die when Win32::SerialPort->new
returns false then I would suggest you should remove the die() that is
executed when Win32::SerialPort->new returns false.


Similar ThreadsPosted
Need help with Win32::SerialPort August 13, 2004, 5:43 am
help on win32::serialport June 4, 2007, 5:12 pm
Please help on win32::serialport July 13, 2007, 12:41 pm
Help need about Win32::SerialPort December 2, 2008, 2:58 pm
Win32::serialport and Windows NT 4 July 31, 2007, 6:08 pm
win32::SerialPort are_match just won't work February 15, 2006, 8:05 pm
No response from printer using Win32::SerialPort October 11, 2006, 11:36 am
hiding Win32::SerialPort->start( ... ) error messages April 19, 2005, 2:27 am
problem with Device::SerialPort November 30, 2005, 4:19 pm
Win32::API problem... May 25, 2005, 5:33 pm

Our other projects:

Art Dolls, Fairies and Mermaids - Sunnyfaces.net

Roy's Linux, Programming and Search Engines messages

1-Script XML SitemapXML Sitemap