the correct use of serial communication events

[Arepi]

Hi!

I read from emulated serial port (whit usb).It works correctly but with the condition of waitcommevent doesnt. How can use correct the serial events?

use Win32;    
use Win32API::CommPort;
use Win32API::File;
 
 
 $PortObj= new Win32API::CommPort ('com4')
       || die "Can't open PortName: $^E\n";  
 
 
while(1)
{
 
 
    if ( ($PortObj->WaitCommEvent('com4', EV_RXCHAR ,  )) )  
         {
            $count_in=$PortObj->read_bg( 1);
            ( $done,  $count_in, $string_in) = $PortObj->read_done(1);
            print("$string_in\n");
        }
}

Thanks!

[KevinADC]

I have no idea. Maybe someone else will.

[Icecrack]

first off use strict if you can,

use strict;

second:

try put this on one line,

 $PortObj= new Win32API::CommPort ('com4')
       || die "Can't open PortName: $^E\n";  

try

 if ( ($PortObj->WaitCommEvent(com4, EV_RXCHAR, ERROR_IO_INCOMPLETE )) )  
         {

don't forget to take out ' ' for your handle.

or

 if ( ($PortObj->WaitCommEvent(com4, EV_RXCHAR, )) )  
         {

usage for above:

WaitCommEvent($handle, $Event_Bitmask, $lpOverlapped);

[Arepi]

first off use strict if you can,

use strict;

second:

try put this on one line,

 $PortObj= new Win32API::CommPort ('com4')
       || die "Can't open PortName: $^E\n";  

try

 if ( ($PortObj->WaitCommEvent(com4, EV_RXCHAR, ERROR_IO_INCOMPLETE )) )  
         {

don't forget to take out ' ' for your handle.

or

 if ( ($PortObj->WaitCommEvent(com4, EV_RXCHAR, )) )  
         {

usage for above:

WaitCommEvent($handle, $Event_Bitmask, $lpOverlapped);

Thanks for help!

I try the code whit use strict but the following message come in promt shell: Bareword "EV_RXCHAR" not allowed while "stricts sub" in use
and same for com4 and ERROR_IO_INCOMPLETE.

Itry this to:

if ( ($PortObj->WaitCommEvent('com4', 'EV_RXCHAR' ,  )) ) 

its run but doesnt work like without strict.
any other idea?

Thanks!

[Icecrack]

Thanks for help!


Itry this to:

if ( ($PortObj->WaitCommEvent('com4', 'EV_RXCHAR' ,  )) ) 

!

did you try:

if ( ($PortObj->WaitCommEvent(com4, 'EV_RXCHAR' ,  )) ) 

if so please get back to me with all errors.

thanks

[Arepi]

did you try:

if ( ($PortObj->WaitCommEvent(com4, 'EV_RXCHAR' ,  )) ) 

if so please get back to me with all errors.

thanks

yes I try all variations : whit srtict and whitout ' ', combackwhit errror:not allowed while "stricts sub" in use
when i use ' ' its run but doesnt use event

Thank you!