![]() io_Command := SDCMD_SETPARAMS SendIO ( PIORequest ( io )) WaitIO ( PIORequest ( io )) // read 256 chars from the serial port FillChar ( Buffer, 257, #0 ) io ^. ![]() ![]() io_ReadLen := 8 // 8 bits per char for read and write io ^. io_SerFlags or SERF_XDISABLED ) and ( not SERF_PARTY_ON ) io ^. 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 |