Re: [BLACKBOX] PC Ports

From: [at]} <Rex>
Date: Tue, 28 Aug 2012 16:07:47 -0500

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

At 03:03 PM 8/28/2012, Robert wrote:
>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 don't know about Bluetooth, but BB has a nice RS232 implementation using CommV24. At a minimum you need to use Open, SetBuffers, SendBytes, and Close. Here's a sample program.

(* DevLinker.LinkExe
CrashEcho.exe := Kernel+ CommV24 Fonts Ports Files Dialog Math Strings Stores Log Services Sequencers Models Meta Converters Views Controllers Properties HostFiles HostRegistry HostFonts HostPorts Printers Dates Printing Mechanisms Containers Documents Windows OleData HostMechanisms HostWindows XYplane TextModels TextMappers TextRulers TextSetters TextViews HostPrinters StdDialog StdApi StdCmds StdCFrames HostCFrames HostDialog TextControllers StdLog Out Echo ~ *)

MODULE Echo;
(* Echos serial communications *) (* Crashes as stand-alone app. Possilyb ReadKey problem? BB trap #100 Dialog.Call *)

IMPORT CommV24, XYplane, Out;

CONST
        baud = 2400;

VAR
        c: CommV24.Connection;
        inVar, outVar: ARRAY 256 OF BYTE;
        nReady: INTEGER;

PROCEDURE Init;
BEGIN
        CommV24.Open( 'COM1:', baud, {}, c);
        CommV24.SetBuffers( c, 1024, 1024);
END Init;

PROCEDURE Done;
BEGIN
        CommV24.Close( c);
END Done;

PROCEDURE Do*;
BEGIN
        Init;
        Out.String( 'Press a key to terminate'); Out.Ln;
        REPEAT
                nReady:= CommV24.Available( c);
                IF (nReady > 0) THEN
                        CommV24.ReceiveBytes( c, inVar, 0, nReady); (* But will buffers always be ready? *)
                        CommV24.SendBytes( c, inVar, 0, nReady);
                        END
        UNTIL (XYplane.ReadKey() # 0X);
        Done;
END Do;



Rex Couture

----
To unsubscribe, send a message with body "SIGNOFF BLACKBOX" to LISTSERV{([at]})nowhere.xy----boundary-LibPST-iamunique-1874846520_-_-
Content-type: application/rtf
Content-transfer-encoding: base64
Content-Disposition: attachment; filename="rtf-body.rtf"
e1xydGYxXGFuc2lcYW5zaWNwZzEyNTJcZnJvbXRleHQgXGZiaWRpcyBcZGVmZjB7XGZvbnR0YmwN
CntcZjBcZnN3aXNzIEFyaWFsO30NCntcZjFcZm1vZGVybiBDb3VyaWVyIE5ldzt9DQp7XGYyXGZu
aWxcZmNoYXJzZXQyIFN5bWJvbDt9DQp7XGYzXGZtb2Rlcm5cZmNoYXJzZXQwIENvdXJpZXIgTmV3
O319DQp7XGNvbG9ydGJsXHJlZDBcZ3JlZW4wXGJsdWUwO1xyZWQwXGdyZWVuMFxibHVlMjU1O30N
Clx1YzFccGFyZFxwbGFpblxkZWZ0YWIzNjAgXGYwXGZzMjAgQXQgMDM6MDMgUE0gOC8yOC8yMDEy
LCBSb2JlcnQgd3JvdGU6XHBhcg0KPlRoaXMgaXMgbW9yZSBvZiBhIFdpbmRvd3MgcXVlc3Rpb24g
cmF0aGVyIHRoYW4gQmxhY2tCb3gsIEkgdGhpbmssXHBhcg0KPmJ1dCBkb2VzIGFueW9uZSBrbm93
IGhvdyB0byB3cml0ZSBhIHNpbXBsZSAoQVNDSUkpIHN0cmluZyB0byB0aGUgUlMyMzJccGFyDQo+
cG9ydCBhbmQgdG8gdGhlIEJsdWV0b290aCBwb3J0P1xwYXINClxwYXINCiAgICAgICAgSSBkb24n
dCBrbm93IGFib3V0IEJsdWV0b290aCwgYnV0IEJCIGhhcyBhIG5pY2UgUlMyMzIgaW1wbGVtZW50
YXRpb24gdXNpbmcgQ29tbVYyNC4gIEF0IGEgbWluaW11bSB5b3UgbmVlZCB0byB1c2UgT3Blbiwg
U2V0QnVmZmVycywgU2VuZEJ5dGVzLCBhbmQgQ2xvc2UuICBIZXJlJ3MgYSBzYW1wbGUgcHJvZ3Jh
bS5ccGFyDQpccGFyDQooKiBEZXZMaW5rZXIuTGlua0V4ZVxwYXINCkNyYXNoRWNoby5leGUgOj0g
S2VybmVsKyBDb21tVjI0IEZvbnRzIFBvcnRzIEZpbGVzIERpYWxvZyBNYXRoIFN0cmluZ3MgU3Rv
cmVzIExvZyBTZXJ2aWNlcyBTZXF1ZW5jZXJzIE1vZGVscyBNZXRhIENvbnZlcnRlcnMgVmlld3Mg
Q29udHJvbGxlcnMgUHJvcGVydGllcyBIb3N0RmlsZXMgSG9zdFJlZ2lzdHJ5IEhvc3RGb250cyBI
b3N0UG9ydHMgUHJpbnRlcnMgRGF0ZXMgUHJpbnRpbmcgTWVjaGFuaXNtcyBDb250YWluZXJzIERv
Y3VtZW50cyBXaW5kb3dzIE9sZURhdGEgSG9zdE1lY2hhbmlzbXMgSG9zdFdpbmRvd3MgWFlwbGFu
ZSBUZXh0TW9kZWxzIFRleHRNYXBwZXJzIFRleHRSdWxlcnMgVGV4dFNldHRlcnMgVGV4dFZpZXdz
IEhvc3RQcmludGVycyBTdGREaWFsb2cgU3RkQXBpIFN0ZENtZHMgU3RkQ0ZyYW1lcyBIb3N0Q0Zy
YW1lcyBIb3N0RGlhbG9nIFRleHRDb250cm9sbGVycyBTdGRMb2cgT3V0IEVjaG8gfiAgKilccGFy
DQpccGFyDQpNT0RVTEUgRWNobztccGFyDQooKiBFY2hvcyBzZXJpYWwgY29tbXVuaWNhdGlvbnMg
KikgICAgICAgICAgICAoKiBDcmFzaGVzIGFzIHN0YW5kLWFsb25lIGFwcC4gICBQb3NzaWx5YiBS
ZWFkS2V5IHByb2JsZW0/ICBCQiB0cmFwICMxMDAgRGlhbG9nLkNhbGwgKilccGFyDQpccGFyDQpJ
TVBPUlQgQ29tbVYyNCwgWFlwbGFuZSwgT3V0O1xwYXINClxwYXINCkNPTlNUXHBhcg0KICAgICAg
ICBiYXVkID0gMjQwMDtccGFyDQpccGFyDQpWQVJccGFyDQogICAgICAgIGM6IENvbW1WMjQuQ29u
bmVjdGlvbjtccGFyDQogICAgICAgIGluVmFyLCBvdXRWYXI6IEFSUkFZIDI1NiBPRiBCWVRFO1xw
YXINCiAgICAgICAgblJlYWR5OiBJTlRFR0VSO1xwYXINClxwYXINClBST0NFRFVSRSBJbml0O1xw
YXINCkJFR0lOXHBhcg0KICAgICAgICBDb21tVjI0Lk9wZW4oICdDT00xOicsIGJhdWQsIFx7XH0s
IGMpO1xwYXINCiAgICAgICAgQ29tbVYyNC5TZXRCdWZmZXJzKCBjLCAxMDI0LCAxMDI0KTtccGFy
DQpFTkQgSW5pdDtccGFyDQpccGFyDQpQUk9DRURVUkUgRG9uZTtccGFyDQpCRUdJTlxwYXINCiAg
ICAgICAgQ29tbVYyNC5DbG9zZSggYyk7XHBhcg0KRU5EIERvbmU7XHBhcg0KXHBhcg0KUFJPQ0VE
VVJFIERvKjtccGFyDQpCRUdJTlxwYXINCiAgICAgICAgSW5pdDtccGFyDQogICAgICAgIE91dC5T
dHJpbmcoICdQcmVzcyBhIGtleSB0byB0ZXJtaW5hdGUnKTsgIE91dC5MbjtccGFyDQogICAgICAg
IFJFUEVBVFxwYXINCiAgICAgICAgICAgICAgICBuUmVhZHk6PSBDb21tVjI0LkF2YWlsYWJsZSgg
Yyk7XHBhcg0KICAgICAgICAgICAgICAgIElGIChuUmVhZHkgPiAwKSBUSEVOXHBhcg0KICAgICAg
ICAgICAgICAgICAgICAgICAgQ29tbVYyNC5SZWNlaXZlQnl0ZXMoIGMsIGluVmFyLCAwLCBuUmVh
ZHkpOyAgKCogQnV0IHdpbGwgYnVmZmVycyBhbHdheXMgYmUgcmVhZHk/ICopXHBhcg0KICAgICAg
ICAgICAgICAgICAgICAgICAgQ29tbVYyNC5TZW5kQnl0ZXMoIGMsIGluVmFyLCAwLCBuUmVhZHkp
O1xwYXINCiAgICAgICAgICAgICAgICAgICAgICAgIEVORFxwYXINCiAgICAgICAgVU5USUwgKFhZ
cGxhbmUuUmVhZEtleSgpICMgMFgpO1xwYXINCiAgICAgICAgRG9uZTtccGFyDQpFTkQgRG87XHBh
cg0KXHBhcg0KXHBhcg0KXHBhcg0KUmV4IENvdXR1cmUgXHBhcg0KXHBhcg0KXHBhcg0KLS0tLVxw
YXINClRvIHVuc3Vic2NyaWJlLCBzZW5kIGEgbWVzc2FnZSB3aXRoIGJvZHkgIlNJR05PRkYgQkxB
Q0tCT1giIHRvIExJU1RTRVJWQExJU1RTLk9CRVJPTi5DSH19AEJUPTE=
----boundary-LibPST-iamunique-1874846520_-_---

Received on Tue Aug 28 2012 - 23:07:47 UTC