Write COM port data to file

[leapingleon]

Hi All

I am using the following script to capture all info from my COM port and write it in a text file:

$comport=FILEOPEN("COM2", 0)
$tmp="C:\Documents and Settings\Administrator.SERVER\Desktop\TEST.txt"

While 1
   $data = FILEREAD($comport, 1)
   $output=FILEOPEN($tmp,1)
   FILEWRITE($output,$data)
   FILECLOSE($output)
Wend

However its not feasably to keep it running 24hrs a day as it consumes 50% of my CPU.

1) Is there any way to reduce this by say catching the data only when it comes, as its not a constant data flow.

2) Will this catch ALL the data? say if two messages come to the COM port at once an this script catches the first one, and processes it, will it still catch the second one too?

Thanks for your help

[lod3n]

First of all, I had no idea you could capture stuff from the com port in this way. Nifty. Second, why not something like this:

$comport=FILEOPEN("COM2", 0)
$tmp="C:\Documents and Settings\Administrator.SERVER\Desktop\TEST.txt"

While 1
   $data = FILEREAD($comport, 1)
   if stringLen($data) > 0 then
      FileWriteLine($tmp,$data)
   endif
Wend

[DaleHohm]

There is a COM interface that you can use that will allow you to make this event driven. See the phone dialer link in my Sig.

Dale

[leapingleon]

Thanks Dale, think I am going to try that way, however Im still new to AutoIT, so just say if I am on the wrong track etc.

Here is where I am so far:

$tmp="C:\Documents and Settings\Administrator.SERVER\Desktop\TEST.txt"
    $com = ObjCreate ("NETCommOCX.NETComm")
    $SinkObject = ObjEvent($com,"COMEvent_")
    
    With $com
        .CommPort = 2
        .PortOpen = True
        .Settings = "9600,N,8,1"
        .InBufferCount = 0
    EndWith
    
    Func COMEvent_InputData($data)
        MsgBox(0,"",$data)
        $output=FILEOPEN($tmp,1)
        FILEWRITE($output,$data)
        FILECLOSE($output)
    EndFunc

[DaleHohm]

It has been a long time since I've looked at this, but it looks good conceptually. Give it a shot.

Dale

[leapingleon]

It has been a long time since I've looked at this, but it looks good conceptually. Give it a shot.

Dale

I was sort of hoping you would see and problem. I ran it and nothing happens. It just seems to popup and then dissapear straight away. My intention was to leave it running continuosly so that it could capture all data sent to COM2. I dont want to use an infinite loop, because that consumes alot of CPU, therefore I was hoping this event driven approach would work better.

By the way, I dont get any errors from it, so it seems to work, but because its not running all the time it doesnt capture the data.

[DaleHohm]

Ah... didn't know youy intended it to be a standalone piece of code.

To make it work you need to have an idle loop, e.g.

While 1
    Sleep(100)
Wend

Dale