Sending data via Serial port using Kernel32.dll

[cheeroke]

Hi all,

I got this code and would like to be able to change Baud Rate and instead of sending character by character i would like to be able (if possible) to send whole string. But i don't know how to change it.

I am taking input from file and processing whole line (this is done in FilesHandling.au3).

To execute this i am just calling SendData("FileName", int) in "main" script.

Any help very appreciated.

#include <WinAPI.au3>
 #include <Array.au3>
 #include "FilesHandling.au3"


    ;init DLL function, we need handle to call the function
    $h = DllCall("Kernel32.dll", "hwnd", "CreateFile", "str", "\\.\COM19", "int", BitOR($GENERIC_READ,$GENERIC_WRITE), "int", 0, "ptr", 0, "int", $OPEN_EXISTING, "int", $FILE_ATTRIBUTE_NORMAL, "int", 0)
    $handle=$h[0]

Func SendData($FileName, $LineNumber)
    ;string to be send
    $c = readFile($FileName, $LineNumber)
    $cLenght = StringLen($c)
    $aArray = StringSplit($c, "")
    ;_ArrayDisplay($aArray, "", Default, 64)

    For $i = 1 To $cLenght
        writeChar($handle, $aArray[$i], $cLenght)
    Next

    ;move to next line
    writeChar($handle, @CR,1)
EndFunc


;write a single char
func writeChar($handle,$c,)
    $stString = DLLStructCreate("char str")
    $lpNumberOfBytesWritten = 0
    DllStructSetData($stString, 1, $c)
    $res = _WinAPI_WriteFile($handle, DllStructGetPtr($stString, "str"), 1,$lpNumberOfBytesWritten)
    if ($res<>true) then
       ConsoleWrite ( _WinAPI_GetLastErrorMessage() & @LF)
    EndIf
EndFunc

 

Edited September 14, 2017 by cheeroke