![]() ![]() ![]() Const unsigned long BAUD_RATE = 9600 int count void setup () uses SysUtils, exec, serial const DefDevice : AnsiString = 'vice' // or vice DefUnit = 0 DefBaud = 9600 var Mp : PMsgPort = nil Io : PIOExtSer = nil DevOpen : Boolean = False Res : LongInt DeviceName : string = DefDevice UnitNumber : Integer = DefUnit Baud : Integer = DefBaud Buffer : array of char begin try // create Messageport Mp := CreateMsgPort if not Assigned ( Mp ) then begin writeln ( 'Failed to create MsgPort' ) Exit end // create IO Serial Io := PIOExtSer ( CreateExtIO ( mp, SizeOf ( TIOExtSer ))) if not Assigned ( Io ) then begin Writeln ( 'Cannot alloc IOExtSer' ) Exit end // Open the device Res := OpenDevice ( PChar ( DeviceName ), UnitNumber, PIORequest ( io ), 0 ) if Res 0 then begin Writeln ( 'Unable to open device "' + DeviceName + ' ' + IntToStr ( UnitNumber ) + '" :' + IntToStr ( Res )) Exit end DevOpen := True // configure serial interface io ^.
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |