CommAPI Examples - Revision history

Therealhanuta at 11:02, 7 April 2014

2014-04-07T11:02:51Z

← Older revision		Revision as of 11:02, 7 April 2014
Line 1:		Line 1:
	[[Category:CommAPI]][[Category:Samples]]== Introduction ==		[[Category:CommAPI]][[Category:Samples]]
			== Introduction ==
	This site shows you some examples for [[CommAPI]].		This site shows you some examples for [[CommAPI]].
	You will also need the following snippet for all examples:		You will also need the following snippet for all examples:

Therealhanuta at 11:02, 7 April 2014

2014-04-07T11:02:41Z

← Older revision		Revision as of 11:02, 7 April 2014
Line 1:		Line 1:
	[[Category:Samples]]		[[Category:CommAPI]][[Category:Samples]]== Introduction ==
	== Introduction ==
	This site shows you some examples for [[CommAPI]].		This site shows you some examples for [[CommAPI]].
	You will also need the following snippet for all examples:		You will also need the following snippet for all examples:
Line 44:		Line 43:
	If @error Then Return SetError(@error, @ScriptLineNumber)		If @error Then Return SetError(@error, @ScriptLineNumber)

	~~_CommAPI_TransmitData~~($hFile, $sCommand)		_CommAPI_TransmitString($hFile, $sCommand)
	If @error Then Return SetError(@error, @ScriptLineNumber)		If @error Then Return SetError(@error, @ScriptLineNumber)

Line 85:		Line 84:
	If @error Then Return SetError(@error, @ScriptLineNumber)		If @error Then Return SetError(@error, @ScriptLineNumber)

	~~_CommAPI_TransmitData~~($hFile, IniRead($sFileINI, "COM", "Command", "Command" & @CRLF))		_CommAPI_TransmitString($hFile, IniRead($sFileINI, "COM", "Command", "Command" & @CRLF))
	If @error Then Return SetError(@error, @ScriptLineNumber)		If @error Then Return SetError(@error, @ScriptLineNumber)

Line 115:		Line 114:
	If @error Then Return SetError(@error, @ScriptLineNumber)		If @error Then Return SetError(@error, @ScriptLineNumber)

	~~_CommAPI_TransmitData~~($hFile, $CmdLine[2])		_CommAPI_TransmitString($hFile, $CmdLine[2])
	If @error Then Return SetError(@error, @ScriptLineNumber)		If @error Then Return SetError(@error, @ScriptLineNumber)

Therealhanuta at 14:10, 4 April 2014

2014-04-04T14:10:18Z

← Older revision		Revision as of 14:10, 4 April 2014
Line 47:		Line 47:
	If @error Then Return SetError(@error, @ScriptLineNumber)		If @error Then Return SetError(@error, @ScriptLineNumber)

	Local $sResult = ~~_CommAPI_ReceiveData~~($hFile, 5000)		Local $sResult = _CommAPI_ReceiveString($hFile, 5000)
	If @error Then Return SetError(@error, @ScriptLineNumber, $sResult)		If @error Then Return SetError(@error, @ScriptLineNumber, $sResult)

Line 88:		Line 88:
	If @error Then Return SetError(@error, @ScriptLineNumber)		If @error Then Return SetError(@error, @ScriptLineNumber)

	Local $sResult = ~~_CommAPI_ReceiveData~~($hFile, IniRead($sFileINI, "Timeout", "IDSR", 5000))		Local $sResult = _CommAPI_ReceiveString($hFile, IniRead($sFileINI, "Timeout", "IDSR", 5000))
	If @error Then Return SetError(@error, @ScriptLineNumber, $sResult)		If @error Then Return SetError(@error, @ScriptLineNumber, $sResult)

Line 118:		Line 118:
	If @error Then Return SetError(@error, @ScriptLineNumber)		If @error Then Return SetError(@error, @ScriptLineNumber)

	Local $sResult = ~~_CommAPI_ReceiveData~~($hFile, 5000)		Local $sResult = _CommAPI_ReceiveString($hFile, 5000)
	If @error Then Return SetError(@error, @ScriptLineNumber, $sResult)		If @error Then Return SetError(@error, @ScriptLineNumber, $sResult)

Line 142:		Line 142:
	If @error Then Return SetError(@error, @ScriptLineNumber)		If @error Then Return SetError(@error, @ScriptLineNumber)

	Local $sResult = ~~_CommAPI_ReceiveLine~~($hFile, "<CR>"~~, 5000~~)		Local $sResult = ""
	If @error Then Return SetError(@error, @ScriptLineNumber, $sResult)		While True
			$sResult = _CommAPI_ReceiveString($hFile, 5000, 0, "<CR>")
			If @error Then Return SetError(@error, @ScriptLineNumber, $sResult)
			MsgBox(64, "Line", $sResult)
			WEnd

	_CommAPI_ClosePort($hFile)		_CommAPI_ClosePort($hFile)
Line 162:		Line 166:
	If @error Then Return SetError(@error, @ScriptLineNumber)		If @error Then Return SetError(@error, @ScriptLineNumber)

	Local $sResult = ~~_CommAPI_ReceiveData~~($hFile, 5000)		Local $sResult = _CommAPI_ReceiveString($hFile, 5000)
	If @error Then Return SetError(@error, @ScriptLineNumber, $sResult)		If @error Then Return SetError(@error, @ScriptLineNumber, $sResult)

Therealhanuta: update existing examples and add new examples

2014-03-27T15:17:30Z

update existing examples and add new examples

Show changes

Therealhanuta: clean using of _CommAPI_PurgeComm

2014-03-07T09:56:50Z

clean using of _CommAPI_PurgeComm

← Older revision		Revision as of 09:56, 7 March 2014
Line 30:		Line 30:
	If @error Then Return SetError(@error, @extended, @ScriptLineNumber)		If @error Then Return SetError(@error, @extended, @ScriptLineNumber)

	_CommAPI_PurgeComm($hFile~~, 15~~)		_CommAPI_PurgeComm($hFile)
	If @error Then Return SetError(@error, @extended, @ScriptLineNumber)		If @error Then Return SetError(@error, @extended, @ScriptLineNumber)

Line 84:		Line 84:
	If @error Then Return SetError(@error, @extended, @ScriptLineNumber)		If @error Then Return SetError(@error, @extended, @ScriptLineNumber)

	_CommAPI_PurgeComm($hFile~~, 15~~)		_CommAPI_PurgeComm($hFile)
	If @error Then Return SetError(@error, @extended, @ScriptLineNumber)		If @error Then Return SetError(@error, @extended, @ScriptLineNumber)

Line 127:		Line 127:
	If @error Then Return SetError(@error, @extended, @ScriptLineNumber)		If @error Then Return SetError(@error, @extended, @ScriptLineNumber)

	_CommAPI_PurgeComm($hFile~~, 15~~)		_CommAPI_PurgeComm($hFile)
	If @error Then Return SetError(@error, @extended, @ScriptLineNumber)		If @error Then Return SetError(@error, @extended, @ScriptLineNumber)

Therealhanuta: /* Command Line */ add windows batch file example

2014-02-03T14:55:21Z

Command Line: add windows batch file example

@@ Line 141: / Line 141: @@
 	MsgBox(64, "Result", $sResult)
 EndFunc
 </syntaxhighlight>

Therealhanuta: third example

2014-02-03T14:49:18Z

third example

← Older revision		Revision as of 14:49, 3 February 2014
Line 91:		Line 91:

	Local $sResult = _CommAPI_ReceiveData($hFile, IniRead($sFileINI, "Timeout", "IDSR", 5000))		Local $sResult = _CommAPI_ReceiveData($hFile, IniRead($sFileINI, "Timeout", "IDSR", 5000))
			If @error Then Return SetError(@error, @extended, @ScriptLineNumber)

			_CommAPI_ClosePort($hFile)
			If @error Then Return SetError(@error, @extended, @ScriptLineNumber)

			MsgBox(64, "Result", $sResult)
			EndFunc
			</syntaxhighlight>

			== Command Line ==
			<syntaxhighlight lang="autoit">
			#include "CommInterface.au3"

			Main()

			Func Main()
			Local $iErrorLine = Example()
			If @extended Then
			MsgBox(32, "Error", _WinAPI_GetLastErrorMessage())
			ElseIf @error Then
			MsgBox(32, "Error", "Error in line " & $iErrorLine)
			EndIf
			EndFunc

			Func Example()
			If $CmdLine[0] <> 2 Then
			MsgBox(32, "Syntax", @ScriptName & ' "ModeString" "Command"')
			Return
			EndIf

			Local $hFile = _CommAPI_OpenPort($CmdLine[1])
			If @error Then Return SetError(@error, @extended)

			_CommAPI_ClearCommError($hFile)
			If @error Then Return SetError(@error, @extended, @ScriptLineNumber)

			_CommAPI_PurgeComm($hFile, 15)
			If @error Then Return SetError(@error, @extended, @ScriptLineNumber)

			_CommAPI_TransmitData($hFile, $CmdLine[2])
			If @error Then Return SetError(@error, @extended, @ScriptLineNumber)

			Local $sResult = _CommAPI_ReceiveData($hFile, 5000)
	If @error Then Return SetError(@error, @extended, @ScriptLineNumber)		If @error Then Return SetError(@error, @extended, @ScriptLineNumber)

Therealhanuta: second example

2014-02-03T14:16:54Z

second example

@@ Line 17: / Line 17: @@
 Func Example()
-	Local Const $iPort = 7
+	Local Const $iPort = 1
 	Local Const $iBaud = 9600
 	Local Const $iParity = 0
@@ Line 39: / Line 39: @@
 	If @error Then Return SetError(@error, @extended, @ScriptLineNumber)
-	_CommAPI_CLosePort($hFile)
+	_CommAPI_ClosePort($hFile)
 	If @error Then Return SetError(@error, @extended, @ScriptLineNumber)

Therealhanuta: first example

2014-02-03T13:56:44Z

first example

New page

[[Category:Samples]]This site shows you some examples for [[CommAPI]].

== First example ==
<syntaxhighlight lang="autoit">
#include "CommInterface.au3"

Main()

Func Main()
Local $iErrorLine = Example()
If @extended Then
MsgBox(32, "Error", _WinAPI_GetLastErrorMessage())
ElseIf @error Then
MsgBox(32, "Error", "Error in line " & $iErrorLine)
EndIf
EndFunc

Func Example()
Local Const $iPort = 7
Local Const $iBaud = 9600
Local Const $iParity = 0
Local Const $iByteSize = 8
Local Const $iStopBits = 1
Local Const $sCommand = "Command" & @CRLF

Local $hFile = _CommAPI_OpenCOMPort($iPort, $iBaud, $iParity, $iByteSize, $iStopBits)
If @error Then Return SetError(@error, @extended, @ScriptLineNumber)

_CommAPI_ClearCommError($hFile)
If @error Then Return SetError(@error, @extended, @ScriptLineNumber)

_CommAPI_PurgeComm($hFile, 15)
If @error Then Return SetError(@error, @extended, @ScriptLineNumber)

_CommAPI_TransmitData($hFile, $sCommand)
If @error Then Return SetError(@error, @extended, @ScriptLineNumber)

Local $sResult = _CommAPI_ReceiveData($hFile, 5000)
If @error Then Return SetError(@error, @extended, @ScriptLineNumber)

_CommAPI_CLosePort($hFile)
If @error Then Return SetError(@error, @extended, @ScriptLineNumber)

MsgBox(64, "Result", $sResult)
EndFunc
</syntaxhighlight>