----boundary-LibPST-iamunique-1600558245_-_-
Content-type: text/plain
Frans:
if you want to use the PORT.DLL for serial communication,
the you may find some examples of DLL interfacing at the end
of my PowerPoint prezentation. Be patient with the introductory info,
scroll till almost the very end where the DLL examples are.
http://web1.pas.rochester.edu/~skulski/Presentations/BB_Class.ppt
However, a simpler way to achieve your goal will be to use CommV24
which is a standard built-in interface to the COM ports. It works
very well.
Read documentation Comm/Docu/V24 to get started. You can find it
if you type the word "serial" into the Search field of Help->Content.
Hope this helps,
W.
On Mon, 29 May 2006, Douglas G. Danforth wrote:
> Frans,
> I find that in Delphi
>
> type : Char = #0..#255;
>
> which is 8 bits. A CHAR in Component Pascal is 16 bits.
> A SHORTCHAR is 8 bits. Try using SHORTCHAR.
>
> -Doug Danforth
>
>
> frans-pietervonck{([at]})nowhere.xy> > Hello Blackboxers,
> >
> > I want to blink a led using using Kainka's "PC Interfaces under Windows".
> > The book comes with a dll - PORT.DLL - which enables communication
> > with the serial ports under XP.
> > With Delphi the led blinks. In BlackBox, I can't get it light. I
> > suspect that my way of translating the delphi PCHAR-type
> > into an array is not correct. Can I use an array as an null terminated
> > string? Anyone some advice?
> >
> > In delphi, opening the com-port is done as follows.
> >
> > Function OPENCOM(S:PCHAR):Integer;stdcall; external PORT.DLL;
> >
> > for example: OpenCom (Pchar('COM1:9600,N,8,1'));
> > OpemCom returns a 1 when connected, 0 when failed.
> >
> > Following my the translation of the function to component pascal
> >
> > INTERFACE:
> > constr* = ARRAY 18 OF CHAR;
> > PROCEDURE opencom* ["OPENCOM"]
> > (Constr:constr) : INTEGER;
> >
> > TESTFUNCTION:
> > open := PortDLL.opencom("COM1:9600,N,8,1");
> >
> >
> >
> > The two modules I've used.
> > -----------------------
> > INTERFACE
> > ----------------------
> > MODULE PortDLL ["PORT.DLL"];
> > IMPORT SYSTEM;
> > TYPE
> >
> > constr* = ARRAY 18 OF CHAR;
> >
> > PROCEDURE opencom* ["OPENCOM"]
> > (Constr:constr) : INTEGER;
> >
> > END PortDLL.
> >
> > ----------------------------------
> > TESTMODULE
> > ----------------------------------
> > MODULE TestPort;
> >
> > IMPORT PortDLL, StdLog;
> > VAR open: INTEGER;
> > PROCEDURE Do*;
> > BEGIN
> > open := 3;
> > open := PortDLL.opencom("COM1:9600,N,8,1");
> > IF open = 1 THEN
> > StdLog.String("Opening COM1 successful. "); StdLog.Ln
> > END;
> > IF open = 0 THEN
> > StdLog.String("Opening COM1 failed."); StdLog.Ln
> > END;
> > END Do;
> >
> > END TestPort.
> > -----------------------------------
> >
> > --- BlackBox
> > --- send subject HELP or UNSUBSCRIBE to blackbox{([at]})nowhere.xy> >
> >
>
> --- BlackBox
> --- send subject HELP or UNSUBSCRIBE to blackbox{([at]})nowhere.xy>
>
--- BlackBox
--- send subject HELP or UNSUBSCRIBE to blackbox{([at]})nowhere.xy
----boundary-LibPST-iamunique-1600558245_-_-
Content-type: application/rtf
Content-transfer-encoding: base64
Content-Disposition: attachment; filename="rtf-body.rtf"
e1xydGYxXGFuc2lcYW5zaWNwZzEyNTJcZnJvbXRleHQgXGRlZmYwe1xmb250dGJsDQp7XGYwXGZz
d2lzcyBBcmlhbDt9DQp7XGYxXGZtb2Rlcm4gQ291cmllciBOZXc7fQ0Ke1xmMlxmbmlsXGZjaGFy
c2V0MiBTeW1ib2w7fQ0Ke1xmM1xmbW9kZXJuXGZjaGFyc2V0MCBDb3VyaWVyIE5ldzt9fQ0Ke1xj
b2xvcnRibFxyZWQwXGdyZWVuMFxibHVlMDtccmVkMFxncmVlbjBcYmx1ZTI1NTt9DQpcdWMxXHBh
cmRccGxhaW5cZGVmdGFiMzYwIFxmMFxmczIwIEZyYW5zOlxwYXINClxwYXINCmlmIHlvdSB3YW50
IHRvIHVzZSB0aGUgUE9SVC5ETEwgZm9yIHNlcmlhbCBjb21tdW5pY2F0aW9uLFxwYXINCnRoZSB5
b3UgbWF5IGZpbmQgc29tZSBleGFtcGxlcyBvZiBETEwgaW50ZXJmYWNpbmcgYXQgdGhlIGVuZFxw
YXINCm9mIG15IFBvd2VyUG9pbnQgcHJlemVudGF0aW9uLiBCZSBwYXRpZW50IHdpdGggdGhlIGlu
dHJvZHVjdG9yeSBpbmZvLFxwYXINCnNjcm9sbCB0aWxsIGFsbW9zdCB0aGUgdmVyeSBlbmQgd2hl
cmUgdGhlIERMTCBleGFtcGxlcyBhcmUuXHBhcg0KXHBhcg0KaHR0cDovL3dlYjEucGFzLnJvY2hl
c3Rlci5lZHUvfnNrdWxza2kvUHJlc2VudGF0aW9ucy9CQl9DbGFzcy5wcHRccGFyDQpccGFyDQpI
b3dldmVyLCBhIHNpbXBsZXIgd2F5IHRvIGFjaGlldmUgeW91ciBnb2FsIHdpbGwgYmUgdG8gdXNl
IENvbW1WMjRccGFyDQp3aGljaCBpcyBhIHN0YW5kYXJkIGJ1aWx0LWluIGludGVyZmFjZSB0byB0
aGUgQ09NIHBvcnRzLiBJdCB3b3Jrc1xwYXINCnZlcnkgd2VsbC5ccGFyDQpccGFyDQpSZWFkIGRv
Y3VtZW50YXRpb24gQ29tbS9Eb2N1L1YyNCB0byBnZXQgc3RhcnRlZC4gWW91IGNhbiBmaW5kIGl0
XHBhcg0KaWYgeW91IHR5cGUgdGhlIHdvcmQgInNlcmlhbCIgaW50byB0aGUgU2VhcmNoIGZpZWxk
IG9mIEhlbHAtPkNvbnRlbnQuXHBhcg0KXHBhcg0KSG9wZSB0aGlzIGhlbHBzLFxwYXINClxwYXIN
ClcuXHBhcg0KXHBhcg0KT24gTW9uLCAyOSBNYXkgMjAwNiwgRG91Z2xhcyBHLiBEYW5mb3J0aCB3
cm90ZTpccGFyDQpccGFyDQo+IEZyYW5zLFxwYXINCj4gSSBmaW5kIHRoYXQgaW4gRGVscGhpXHBh
cg0KPlxwYXINCj4gICB0eXBlIDogQ2hhciA9ICMwLi4jMjU1O1xwYXINCj5ccGFyDQo+IHdoaWNo
IGlzIDggYml0cy4gIEEgQ0hBUiAgaW4gQ29tcG9uZW50IFBhc2NhbCBpcyAxNiBiaXRzLlxwYXIN
Cj4gQSBTSE9SVENIQVIgaXMgOCBiaXRzLiAgVHJ5IHVzaW5nIFNIT1JUQ0hBUi5ccGFyDQo+XHBh
cg0KPiAtRG91ZyBEYW5mb3J0aFxwYXINCj5ccGFyDQo+XHBhcg0KPiBmcmFucy1waWV0ZXJ2b25j
a0BoZXRuZXQubmwgd3JvdGU6XHBhcg0KPiA+IEhlbGxvIEJsYWNrYm94ZXJzLFxwYXINCj4gPlxw
YXINCj4gPiBJIHdhbnQgdG8gYmxpbmsgYSBsZWQgdXNpbmcgdXNpbmcgS2FpbmthJ3MgIlBDIElu
dGVyZmFjZXMgdW5kZXIgV2luZG93cyIuXHBhcg0KPiA+IFRoZSBib29rIGNvbWVzIHdpdGggYSBk
bGwgLSBQT1JULkRMTCAtIHdoaWNoIGVuYWJsZXMgY29tbXVuaWNhdGlvblxwYXINCj4gPiB3aXRo
IHRoZSBzZXJpYWwgcG9ydHMgdW5kZXIgWFAuXHBhcg0KPiA+IFdpdGggRGVscGhpIHRoZSBsZWQg
YmxpbmtzLiBJbiBCbGFja0JveCwgSSBjYW4ndCBnZXQgaXQgbGlnaHQuIElccGFyDQo+ID4gc3Vz
cGVjdCB0aGF0IG15IHdheSBvZiB0cmFuc2xhdGluZyB0aGUgZGVscGhpIFBDSEFSLXR5cGVccGFy
DQo+ID4gaW50byBhbiBhcnJheSBpcyBub3QgY29ycmVjdC4gQ2FuIEkgdXNlIGFuIGFycmF5IGFz
IGFuIG51bGwgdGVybWluYXRlZFxwYXINCj4gPiBzdHJpbmc/IEFueW9uZSBzb21lIGFkdmljZT9c
cGFyDQo+ID5ccGFyDQo+ID4gSW4gZGVscGhpLCBvcGVuaW5nIHRoZSBjb20tcG9ydCBpcyBkb25l
IGFzIGZvbGxvd3MuXHBhcg0KPiA+XHBhcg0KPiA+IEZ1bmN0aW9uIE9QRU5DT00oUzpQQ0hBUik6
SW50ZWdlcjtzdGRjYWxsOyBleHRlcm5hbCBQT1JULkRMTDtccGFyDQo+ID5ccGFyDQo+ID4gZm9y
IGV4YW1wbGU6IE9wZW5Db20gKFBjaGFyKCdDT00xOjk2MDAsTiw4LDEnKSk7XHBhcg0KPiA+IE9w
ZW1Db20gIHJldHVybnMgYSAxIHdoZW4gY29ubmVjdGVkLCAwIHdoZW4gZmFpbGVkLlxwYXINCj4g
PlxwYXINCj4gPiBGb2xsb3dpbmcgbXkgdGhlIHRyYW5zbGF0aW9uIG9mIHRoZSBmdW5jdGlvbiAg
dG8gY29tcG9uZW50IHBhc2NhbFxwYXINCj4gPlxwYXINCj4gPiBJTlRFUkZBQ0U6XHBhcg0KPiA+
IGNvbnN0ciogPSAgQVJSQVkgMTggT0YgQ0hBUjtccGFyDQo+ID4gUFJPQ0VEVVJFIG9wZW5jb20q
IFsiT1BFTkNPTSJdXHBhcg0KPiA+IChDb25zdHI6Y29uc3RyKSA6IElOVEVHRVI7XHBhcg0KPiA+
XHBhcg0KPiA+IFRFU1RGVU5DVElPTjpccGFyDQo+ID4gb3BlbiA6PSBQb3J0RExMLm9wZW5jb20o
IkNPTTE6OTYwMCxOLDgsMSIpO1xwYXINCj4gPlxwYXINCj4gPlxwYXINCj4gPlxwYXINCj4gPiBU
aGUgdHdvIG1vZHVsZXMgSSd2ZSB1c2VkLlxwYXINCj4gPiAtLS0tLS0tLS0tLS0tLS0tLS0tLS0t
LVxwYXINCj4gPiBJTlRFUkZBQ0VccGFyDQo+ID4gLS0tLS0tLS0tLS0tLS0tLS0tLS0tLVxwYXIN
Cj4gPiBNT0RVTEUgUG9ydERMTCBbIlBPUlQuRExMIl07XHBhcg0KPiA+IElNUE9SVCBTWVNURU07
XHBhcg0KPiA+IFRZUEVccGFyDQo+ID5ccGFyDQo+ID4gY29uc3RyKiA9ICBBUlJBWSAxOCBPRiBD
SEFSO1xwYXINCj4gPlxwYXINCj4gPiBQUk9DRURVUkUgb3BlbmNvbSogWyJPUEVOQ09NIl1ccGFy
DQo+ID4gKENvbnN0cjpjb25zdHIpIDogSU5URUdFUjtccGFyDQo+ID5ccGFyDQo+ID4gRU5EIFBv
cnRETEwuXHBhcg0KPiA+XHBhcg0KPiA+IC0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0t
LS1ccGFyDQo+ID4gVEVTVE1PRFVMRVxwYXINCj4gPiAtLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0t
LS0tLS0tLS0tXHBhcg0KPiA+IE1PRFVMRSBUZXN0UG9ydDtccGFyDQo+ID5ccGFyDQo+ID4gICAg
SU1QT1JUIFBvcnRETEwsIFN0ZExvZztccGFyDQo+ID4gICAgVkFSIG9wZW46IElOVEVHRVI7XHBh
cg0KPiA+ICAgICAgUFJPQ0VEVVJFIERvKjtccGFyDQo+ID4gICAgQkVHSU5ccGFyDQo+ID4gICAg
ICAgIG9wZW4gOj0gMztccGFyDQo+ID4gICAgICAgIG9wZW4gOj0gUG9ydERMTC5vcGVuY29tKCJD
T00xOjk2MDAsTiw4LDEiKTtccGFyDQo+ID4gICAgICAgIElGIG9wZW4gPSAxIFRIRU5ccGFyDQo+
ID4gICAgICAgICAgICBTdGRMb2cuU3RyaW5nKCJPcGVuaW5nIENPTTEgc3VjY2Vzc2Z1bC4gIik7
IFN0ZExvZy5MblxwYXINCj4gPiAgICAgICAgRU5EO1xwYXINCj4gPiAgICAgICAgSUYgb3BlbiA9
IDAgVEhFTlxwYXINCj4gPiAgICAgICAgICAgIFN0ZExvZy5TdHJpbmcoIk9wZW5pbmcgQ09NMSBm
YWlsZWQuIik7IFN0ZExvZy5MblxwYXINCj4gPiAgICAgICAgRU5EO1xwYXINCj4gPiAgICBFTkQg
RG87XHBhcg0KPiA+XHBhcg0KPiA+IEVORCBUZXN0UG9ydC5ccGFyDQo+ID4gLS0tLS0tLS0tLS0t
LS0tLS0tLS0tLS0tLS0tLS0tLS0tLS1ccGFyDQo+ID5ccGFyDQo+ID4gLS0tIEJsYWNrQm94XHBh
cg0KPiA+IC0tLSBzZW5kIHN1YmplY3QgSEVMUCBvciBVTlNVQlNDUklCRSB0byBibGFja2JveEBv
YmVyb24uY2hccGFyDQo+ID5ccGFyDQo+ID5ccGFyDQo+XHBhcg0KPiAtLS0gQmxhY2tCb3hccGFy
DQo+IC0tLSBzZW5kIHN1YmplY3QgSEVMUCBvciBVTlNVQlNDUklCRSB0byBibGFja2JveEBvYmVy
b24uY2hccGFyDQo+XHBhcg0KPlxwYXINClxwYXINCi0tLSBCbGFja0JveFxwYXINCi0tLSBzZW5k
IHN1YmplY3QgSEVMUCBvciBVTlNVQlNDUklCRSB0byBibGFja2JveEBvYmVyb24uY2hccGFyDQp9
fQByaWFs
----boundary-LibPST-iamunique-1600558245_-_---
Received on Mon May 29 2006 - 23:36:08 UTC