Re: [BLACKBOX] PC Ports

From: [at]} <philipp>
Date: Tue, 28 Aug 2012 17:19:11 -0700

----boundary-LibPST-iamunique-1084695048_-_-
Content-type: text/plain

Below is an example to read/write to a (virtual) serial port
Hi Robert

Below is an example to read/write to a (virtual) serial port: 
(To try it just generate a new form with Controls > New Form.... Use the CPC beautifier to format it into a readable text. Hope this helps.)



MODULE UartSimple;

IMPORT S := SYSTEM, Dialog, Services, Strings, Print := StdLog, Uart := CommV24, WinApi;

TYPE
Action = POINTER TO RECORD (Services.Action) END;

VAR
commPort*: Dialog.List;
txString*: ARRAY 32 OF CHAR;
conn: Uart.Connection;
rxTask: Action;



(* UART Receive *)
PROCEDURE (rxTask: Action) Do;
VAR
rx: BYTE;
BEGIN
WHILE Uart.Available(conn) > 0 DO
Uart.ReceiveByte(conn, rx);
IF rx >= 21 THEN Print.Char(S.VAL(SHORTCHAR, rx)) END;
IF rx = 0AH THEN Print.Ln END
END;
Services.DoLater(rxTask, Services.Ticks() + 300)
END Do;


PROCEDURE SendTXString* ();
VAR i: INTEGER;
tx: ARRAY 64 OF BYTE;
BEGIN
FOR i := 0 TO LEN(txString$) DO
(* Uart.SendByte(conn, S.VAL(BYTE, txString[i])) *)
tx[i] := S.VAL(BYTE, txString[i]);
END;

Uart.SendBytes(conn, tx, 0, LEN(txString$));
END SendTXString;


PROCEDURE OpenUART*;
VAR
listItem: Dialog.String;
BEGIN
IF conn = NIL THEN
commPort.GetItem(commPort.index, listItem);
Uart.Open(listItem$, 2400, {}, conn);
IF conn # NIL THEN
Print.Open();
Print.String("Port " + listItem$ + " opened!"); Print.Ln();
IF rxTask = NIL THEN
NEW(rxTask);
Services.DoLater(rxTask, Services.now)
END
ELSE
Print.Open(); Print.String("Port " + listItem$ + " is not available."); Print.Ln()
END
ELSE
Print.Open(); Print.String("Comm port open. Please close first before opening again."); Print.Ln()
END
END OpenUART;

PROCEDURE CloseUART*;
BEGIN
IF conn # NIL THEN
Uart.Close(conn); conn := NIL;
Print.String("Port closed!"); Print.Ln()
ELSE
Print.String("No port opened."); Print.Ln()
END;
Services.RemoveAction(rxTask);
rxTask := NIL
END CloseUART;



PROCEDURE QueryCommPorts*;
CONST
SIZE = 256;
VAR
type, i, res: INTEGER;
valueNameLen, valueLen: INTEGER;
hKey: WinApi.HKEY;
name: WinApi.PtrSTR;
subKey, data: ARRAY[untagged] SIZE OF SHORTCHAR;

BEGIN
subKey := "HARDWARE\DEVICEMAP\SERIALCOMM";

res := WinApi.RegOpenKeyExA(WinApi.HKEY_LOCAL_MACHINE, subKey, 0, WinApi.KEY_READ, hKey);
IF res = WinApi.ERROR_SUCCESS THEN
Print.Ln(); Print.String("QUERY WINDOWS REGISTRY:"); Print.Ln();

name := S.VAL(WinApi.PtrSTR, WinApi.HeapAlloc(WinApi.GetProcessHeap(), WinApi.HEAP_ZERO_MEMORY, SIZE+1));

commPort.SetLen(0);
i := 0;
REPEAT
valueNameLen := SIZE; (* they just have to be big enough - if too small -> ERROR_MORE_DATA *)
valueLen := SIZE; (* ditto *)

res := WinApi.RegEnumValueA(hKey, i, name, valueNameLen, NIL, type, data[0], valueLen);

IF res = WinApi.ERROR_SUCCESS THEN
Print.String(name$);
IF (type = WinApi.REG_SZ) OR (* Check if it is type string *)
(type = WinApi.REG_EXPAND_SZ) OR
(type = WinApi.REG_MULTI_SZ) OR
(type = WinApi.REG_DWORD_BIG_ENDIAN) THEN
Print.String(" -> "); Print.String(data$); Print.Ln;
commPort.SetItem(i, "\\.\" + data$)
END
ELSIF res = WinApi.ERROR_NO_MORE_ITEMS THEN
Print.String("END: NO MORE ITEMS"); Print.Ln()
ELSIF res = WinApi.ERROR_MORE_DATA THEN
Print.String("END: ERROR MORE DATA - BUFFER TOO SMALL"); Print.Ln()
ELSE
Print.String("ERROR READING VALUE"); Print.Ln()
END;

INC(i)
UNTIL res # WinApi.ERROR_SUCCESS;
Dialog.UpdateList(commPort);

res := WinApi.HeapFree(WinApi.GetProcessHeap(), WinApi.HEAP_ZERO_MEMORY, S.VAL(WinApi.PtrVoid, name));
res := WinApi.RegCloseKey(hKey)
ELSE
Print.String("ERROR: ACCESS TO " + subKey + " DENIED"); Print.Ln()
END
END QueryCommPorts;



BEGIN
Print.Clear(); Print.Open();
Print.String("A simple UART Terminal program example"); Print.Ln();
Print.String("Author: Philipp Hof -9600.");
Print.Ln();
QueryCommPorts;
CLOSE
IF conn # NIL THEN Uart.Close(conn) END;
Services.RemoveAction(rxTask);
END UartSimple.



________________________________
From: Robert <robert.campbell_{([at]})nowhere.xy
To: BLACKBOX{([at]})nowhere.xy
Sent: Wednesday, 29 August 2012 8:03 AM
Subject: [BLACKBOX] PC Ports

This is more of a Windows question rather than BlackBox, I think,
but does anyone know how to write a simple (ASCII) string to the RS232
port and to the Bluetooth port?

I am using XP.

Cheers

Robert

----
To unsubscribe, send a message with body "SIGNOFF BLACKBOX" to LISTSERV{([at]})nowhere.xy----
To unsubscribe, send a message with body "SIGNOFF BLACKBOX" to LISTSERV{([at]})nowhere.xy----boundary-LibPST-iamunique-1084695048_-_-
Content-type: application/rtf
Content-transfer-encoding: base64
Content-Disposition: attachment; filename="rtf-body.rtf"
e1xydGYxXGFuc2lcYW5zaWNwZzEyNTJcZnJvbXRleHQgXGZiaWRpcyBcZGVmZjB7XGZvbnR0YmwN
CntcZjBcZnN3aXNzXGZjaGFyc2V0MCBBcmlhbDt9DQp7XGYxXGZtb2Rlcm4gQ291cmllciBOZXc7
fQ0Ke1xmMlxmbmlsXGZjaGFyc2V0MiBTeW1ib2w7fQ0Ke1xmM1xmbW9kZXJuXGZjaGFyc2V0MCBD
b3VyaWVyIE5ldzt9fQ0Ke1xjb2xvcnRibFxyZWQwXGdyZWVuMFxibHVlMDtccmVkMFxncmVlbjBc
Ymx1ZTI1NTt9DQpcdWMxXHBhcmRccGxhaW5cZGVmdGFiMzYwIFxmMFxmczIwIEJlbG93IGlzIGFu
IGV4YW1wbGUgdG8gcmVhZC93cml0ZSB0byBhICh2aXJ0dWFsKSBzZXJpYWwgcG9ydFxwYXINCkhp
IFJvYmVydFxwYXINClxwYXINCkJlbG93IGlzIGFuIGV4YW1wbGUgdG8gcmVhZC93cml0ZSB0byBh
ICh2aXJ0dWFsKSBzZXJpYWwgcG9ydDpcJ2EwXHBhcg0KKFRvIHRyeSBpdCBqdXN0IGdlbmVyYXRl
IGEgbmV3IGZvcm0gd2l0aCBDb250cm9scyA+IE5ldyBGb3JtLi4uLiBVc2UgdGhlIENQQyBiZWF1
dGlmaWVyIHRvIGZvcm1hdCBpdCBpbnRvIGEgcmVhZGFibGUgdGV4dC4gSG9wZSB0aGlzIGhlbHBz
LilccGFyDQpccGFyDQpccGFyDQpccGFyDQpNT0RVTEUgVWFydFNpbXBsZTtccGFyDQpccGFyDQpJ
TVBPUlQgUyA6PSBTWVNURU0sIERpYWxvZywgU2VydmljZXMsIFN0cmluZ3MsIFByaW50IDo9IFN0
ZExvZywgVWFydCA6PSBDb21tVjI0LCBXaW5BcGk7XHBhcg0KXHBhcg0KVFlQRVxwYXINCkFjdGlv
biA9IFBPSU5URVIgVE8gUkVDT1JEIChTZXJ2aWNlcy5BY3Rpb24pIEVORDtccGFyDQpccGFyDQpW
QVJccGFyDQpjb21tUG9ydCo6IERpYWxvZy5MaXN0O1xwYXINCnR4U3RyaW5nKjogQVJSQVkgMzIg
T0YgQ0hBUjtccGFyDQpjb25uOiBVYXJ0LkNvbm5lY3Rpb247XHBhcg0KcnhUYXNrOiBBY3Rpb247
XHBhcg0KXHBhcg0KXHBhcg0KXHBhcg0KKCogVUFSVCBSZWNlaXZlICopXHBhcg0KUFJPQ0VEVVJF
IChyeFRhc2s6IEFjdGlvbikgRG87XHBhcg0KVkFSXHBhcg0Kcng6IEJZVEU7XHBhcg0KQkVHSU5c
cGFyDQpXSElMRSBVYXJ0LkF2YWlsYWJsZShjb25uKSA+IDAgRE9ccGFyDQpVYXJ0LlJlY2VpdmVC
eXRlKGNvbm4sIHJ4KTtccGFyDQpJRiByeCA+PSAyMSBUSEVOIFByaW50LkNoYXIoUy5WQUwoU0hP
UlRDSEFSLCByeCkpIEVORDtccGFyDQpJRiByeCA9IDBBSCBUSEVOIFByaW50LkxuIEVORFxwYXIN
CkVORDtccGFyDQpTZXJ2aWNlcy5Eb0xhdGVyKHJ4VGFzaywgU2VydmljZXMuVGlja3MoKSArIDMw
MClccGFyDQpFTkQgRG87XHBhcg0KXHBhcg0KXHBhcg0KUFJPQ0VEVVJFIFNlbmRUWFN0cmluZyog
KCk7XHBhcg0KVkFSIGk6IElOVEVHRVI7XHBhcg0KdHg6IEFSUkFZIDY0IE9GIEJZVEU7XHBhcg0K
QkVHSU5ccGFyDQpGT1IgaSA6PSAwIFRPIExFTih0eFN0cmluZyQpIERPXHBhcg0KKCogVWFydC5T
ZW5kQnl0ZShjb25uLCBTLlZBTChCWVRFLCB0eFN0cmluZ1tpXSkpICopXHBhcg0KdHhbaV0gOj0g
Uy5WQUwoQllURSwgdHhTdHJpbmdbaV0pO1xwYXINCkVORDtccGFyDQpccGFyDQpVYXJ0LlNlbmRC
eXRlcyhjb25uLCB0eCwgMCwgTEVOKHR4U3RyaW5nJCkpO1xwYXINCkVORCBTZW5kVFhTdHJpbmc7
XHBhcg0KXHBhcg0KXHBhcg0KUFJPQ0VEVVJFIE9wZW5VQVJUKjtccGFyDQpWQVJccGFyDQpsaXN0
SXRlbTogRGlhbG9nLlN0cmluZztccGFyDQpCRUdJTlxwYXINCklGIGNvbm4gPSBOSUwgVEhFTlxw
YXINCmNvbW1Qb3J0LkdldEl0ZW0oY29tbVBvcnQuaW5kZXgsIGxpc3RJdGVtKTtccGFyDQpVYXJ0
Lk9wZW4obGlzdEl0ZW0kLCAyNDAwLCBce1x9LCBjb25uKTtccGFyDQpJRiBjb25uICMgTklMIFRI
RU5ccGFyDQpQcmludC5PcGVuKCk7XHBhcg0KUHJpbnQuU3RyaW5nKCJQb3J0ICIgKyBsaXN0SXRl
bSQgKyAiIG9wZW5lZCEiKTsgUHJpbnQuTG4oKTtccGFyDQpJRiByeFRhc2sgPSBOSUwgVEhFTlxw
YXINCk5FVyhyeFRhc2spO1xwYXINClNlcnZpY2VzLkRvTGF0ZXIocnhUYXNrLCBTZXJ2aWNlcy5u
b3cpXHBhcg0KRU5EXHBhcg0KRUxTRVxwYXINClByaW50Lk9wZW4oKTsgUHJpbnQuU3RyaW5nKCJQ
b3J0ICIgKyBsaXN0SXRlbSQgKyAiIGlzIG5vdCBhdmFpbGFibGUuIik7IFByaW50LkxuKClccGFy
DQpFTkRccGFyDQpFTFNFXHBhcg0KUHJpbnQuT3BlbigpOyBQcmludC5TdHJpbmcoIkNvbW0gcG9y
dCBvcGVuLiBQbGVhc2UgY2xvc2UgZmlyc3QgYmVmb3JlIG9wZW5pbmcgYWdhaW4uIik7IFByaW50
LkxuKClccGFyDQpFTkRccGFyDQpFTkQgT3BlblVBUlQ7XHBhcg0KXHBhcg0KUFJPQ0VEVVJFIENs
b3NlVUFSVCo7XHBhcg0KQkVHSU5ccGFyDQpJRiBjb25uICMgTklMIFRIRU5ccGFyDQpVYXJ0LkNs
b3NlKGNvbm4pOyBjb25uIDo9IE5JTDtccGFyDQpQcmludC5TdHJpbmcoIlBvcnQgY2xvc2VkISIp
OyBQcmludC5MbigpXHBhcg0KRUxTRVxwYXINClByaW50LlN0cmluZygiTm8gcG9ydCBvcGVuZWQu
Iik7IFByaW50LkxuKClccGFyDQpFTkQ7XHBhcg0KU2VydmljZXMuUmVtb3ZlQWN0aW9uKHJ4VGFz
ayk7XHBhcg0KcnhUYXNrIDo9IE5JTFxwYXINCkVORCBDbG9zZVVBUlQ7XHBhcg0KXHBhcg0KXHBh
cg0KXHBhcg0KUFJPQ0VEVVJFIFF1ZXJ5Q29tbVBvcnRzKjtccGFyDQpDT05TVFxwYXINClNJWkUg
PSAyNTY7XHBhcg0KVkFSXHBhcg0KdHlwZSwgaSwgcmVzOiBJTlRFR0VSO1xwYXINCnZhbHVlTmFt
ZUxlbiwgdmFsdWVMZW46IElOVEVHRVI7XHBhcg0KaEtleTogV2luQXBpLkhLRVk7XHBhcg0KbmFt
ZTogV2luQXBpLlB0clNUUjtccGFyDQpzdWJLZXksIGRhdGE6IEFSUkFZW3VudGFnZ2VkXSBTSVpF
IE9GIFNIT1JUQ0hBUjtccGFyDQpccGFyDQpCRUdJTlxwYXINCnN1YktleSA6PSAiSEFSRFdBUkVc
XERFVklDRU1BUFxcU0VSSUFMQ09NTSI7XHBhcg0KXHBhcg0KcmVzIDo9IFdpbkFwaS5SZWdPcGVu
S2V5RXhBKFdpbkFwaS5IS0VZX0xPQ0FMX01BQ0hJTkUsIHN1YktleSwgMCwgV2luQXBpLktFWV9S
RUFELCBoS2V5KTtccGFyDQpJRiByZXMgPSBXaW5BcGkuRVJST1JfU1VDQ0VTUyBUSEVOXHBhcg0K
UHJpbnQuTG4oKTsgUHJpbnQuU3RyaW5nKCJRVUVSWSBXSU5ET1dTIFJFR0lTVFJZOiIpOyBQcmlu
dC5MbigpO1xwYXINClxwYXINCm5hbWUgOj0gUy5WQUwoV2luQXBpLlB0clNUUiwgV2luQXBpLkhl
YXBBbGxvYyhXaW5BcGkuR2V0UHJvY2Vzc0hlYXAoKSwgV2luQXBpLkhFQVBfWkVST19NRU1PUlks
IFNJWkUrMSkpO1xwYXINClxwYXINCmNvbW1Qb3J0LlNldExlbigwKTtccGFyDQppIDo9IDA7XHBh
cg0KUkVQRUFUXHBhcg0KdmFsdWVOYW1lTGVuIDo9IFNJWkU7ICgqIHRoZXkganVzdCBoYXZlIHRv
IGJlIGJpZyBlbm91Z2ggLSBpZiB0b28gc21hbGwgLT4gRVJST1JfTU9SRV9EQVRBICopXHBhcg0K
dmFsdWVMZW4gOj0gU0laRTsgKCogZGl0dG8gKilccGFyDQpccGFyDQpyZXMgOj0gV2luQXBpLlJl
Z0VudW1WYWx1ZUEoaEtleSwgaSwgbmFtZSwgdmFsdWVOYW1lTGVuLCBOSUwsIHR5cGUsIGRhdGFb
MF0sIHZhbHVlTGVuKTtccGFyDQpccGFyDQpJRiByZXMgPSBXaW5BcGkuRVJST1JfU1VDQ0VTUyBU
SEVOXHBhcg0KUHJpbnQuU3RyaW5nKG5hbWUkKTtccGFyDQpJRiAodHlwZSA9IFdpbkFwaS5SRUdf
U1opIE9SICgqIENoZWNrIGlmIGl0IGlzIHR5cGUgc3RyaW5nICopXHBhcg0KKHR5cGUgPSBXaW5B
cGkuUkVHX0VYUEFORF9TWikgT1JccGFyDQoodHlwZSA9IFdpbkFwaS5SRUdfTVVMVElfU1opIE9S
XHBhcg0KKHR5cGUgPSBXaW5BcGkuUkVHX0RXT1JEX0JJR19FTkRJQU4pIFRIRU5ccGFyDQpQcmlu
dC5TdHJpbmcoIiAtPiAiKTsgUHJpbnQuU3RyaW5nKGRhdGEkKTsgUHJpbnQuTG47XHBhcg0KY29t
bVBvcnQuU2V0SXRlbShpLCAiXFxcXC5cXCIgKyBkYXRhJClccGFyDQpFTkRccGFyDQpFTFNJRiBy
ZXMgPSBXaW5BcGkuRVJST1JfTk9fTU9SRV9JVEVNUyBUSEVOXHBhcg0KUHJpbnQuU3RyaW5nKCJF
TkQ6IE5PIE1PUkUgSVRFTVMiKTsgUHJpbnQuTG4oKVxwYXINCkVMU0lGIHJlcyA9IFdpbkFwaS5F
UlJPUl9NT1JFX0RBVEEgVEhFTlxwYXINClByaW50LlN0cmluZygiRU5EOiBFUlJPUiBNT1JFIERB
VEEgLSBCVUZGRVIgVE9PIFNNQUxMIik7IFByaW50LkxuKClccGFyDQpFTFNFXHBhcg0KUHJpbnQu
U3RyaW5nKCJFUlJPUiBSRUFESU5HIFZBTFVFIik7IFByaW50LkxuKClccGFyDQpFTkQ7XHBhcg0K
XHBhcg0KSU5DKGkpXHBhcg0KVU5USUwgcmVzICMgV2luQXBpLkVSUk9SX1NVQ0NFU1M7XHBhcg0K
RGlhbG9nLlVwZGF0ZUxpc3QoY29tbVBvcnQpO1xwYXINClxwYXINCnJlcyA6PSBXaW5BcGkuSGVh
cEZyZWUoV2luQXBpLkdldFByb2Nlc3NIZWFwKCksIFdpbkFwaS5IRUFQX1pFUk9fTUVNT1JZLCBT
LlZBTChXaW5BcGkuUHRyVm9pZCwgbmFtZSkpO1xwYXINCnJlcyA6PSBXaW5BcGkuUmVnQ2xvc2VL
ZXkoaEtleSlccGFyDQpFTFNFXHBhcg0KUHJpbnQuU3RyaW5nKCJFUlJPUjogQUNDRVNTIFRPICIg
KyBzdWJLZXkgKyAiIERFTklFRCIpOyBQcmludC5MbigpXHBhcg0KRU5EXHBhcg0KRU5EIFF1ZXJ5
Q29tbVBvcnRzO1xwYXINClxwYXINClxwYXINClxwYXINCkJFR0lOXHBhcg0KUHJpbnQuQ2xlYXIo
KTsgUHJpbnQuT3BlbigpO1xwYXINClByaW50LlN0cmluZygiQSBzaW1wbGUgVUFSVCBUZXJtaW5h
bCBwcm9ncmFtIGV4YW1wbGUiKTsgUHJpbnQuTG4oKTtccGFyDQpQcmludC5TdHJpbmcoIkF1dGhv
cjogUGhpbGlwcCBIb2YgLTk2MDAuIik7XHBhcg0KUHJpbnQuTG4oKTtccGFyDQpRdWVyeUNvbW1Q
b3J0cztccGFyDQpDTE9TRVxwYXINCklGIGNvbm4gIyBOSUwgVEhFTiBVYXJ0LkNsb3NlKGNvbm4p
IEVORDtccGFyDQpTZXJ2aWNlcy5SZW1vdmVBY3Rpb24ocnhUYXNrKTtccGFyDQpFTkQgVWFydFNp
bXBsZS5ccGFyDQpccGFyDQpccGFyDQpccGFyDQpfX19fX19fX19fX19fX19fX19fX19fX19fX19f
X19fX1xwYXINCkZyb206IFJvYmVydCA8cm9iZXJ0LmNhbXBiZWxsX0BUSVNDQUxJLkNPLlVLPlxw
YXINClRvOiBCTEFDS0JPWEBMSVNUUy5PQkVST04uQ0ggXHBhcg0KU2VudDogV2VkbmVzZGF5LCAy
OSBBdWd1c3QgMjAxMiA4OjAzIEFNXHBhcg0KU3ViamVjdDogW0JMQUNLQk9YXSBQQyBQb3J0c1xw
YXINClxwYXINClRoaXMgaXMgbW9yZSBvZiBhIFdpbmRvd3MgcXVlc3Rpb24gcmF0aGVyIHRoYW4g
QmxhY2tCb3gsIEkgdGhpbmssXHBhcg0KYnV0IGRvZXMgYW55b25lIGtub3cgaG93IHRvIHdyaXRl
IGEgc2ltcGxlIChBU0NJSSkgc3RyaW5nIHRvIHRoZSBSUzIzMlxwYXINCnBvcnQgYW5kIHRvIHRo
ZSBCbHVldG9vdGggcG9ydD9ccGFyDQpccGFyDQpJIGFtIHVzaW5nIFhQLlxwYXINClxwYXINCkNo
ZWVyc1xwYXINClxwYXINClJvYmVydFxwYXINClxwYXINClxwYXINCi0tLS1ccGFyDQpUbyB1bnN1
YnNjcmliZSwgc2VuZCBhIG1lc3NhZ2Ugd2l0aCBib2R5ICJTSUdOT0ZGIEJMQUNLQk9YIiB0byBM
SVNUU0VSVkBMSVNUUy5PQkVST04uQ0hccGFyDQpccGFyDQpccGFyDQotLS0tXHBhcg0KVG8gdW5z
dWJzY3JpYmUsIHNlbmQgYSBtZXNzYWdlIHdpdGggYm9keSAiU0lHTk9GRiBCTEFDS0JPWCIgdG8g
TElTVFNFUlZATElTVFMuT0JFUk9OLkNIXHBhcg0KfQ=
----boundary-LibPST-iamunique-1084695048_-_---

Received on Wed Aug 29 2012 - 02:19:11 UTC