|
发表于 2011-2-23 22:50:39
|
显示全部楼层
SynaSer serial library
满足你的需求
h t t p://www.ararat.cz/synapse/doku.php/download
简单使用
use
Synaser;
var
ser: TBlockSerial;
//创建
ser := TBlockSerial.Create;
//打开与连接
{$IFDEF Linux}
//linux 使用
ser.Connect('/dev/ttyS1');
ser.Config(115200, 8, 'N', SB1, false, false);
StatusBar1.Panels.Items[0].Text := 'linux';
{$ENDIF}
{$IFDEF Win32}
//windows下使用
ser.Connect('COM1');
ser.Config(115200, 8, 'N', SB1, false, false);
StatusBar1.Panels.Items[0].Text := 'win32';
{$ENDIF}
//清空
ser.Purge;
//发送
ser.SendBuffer(ptr, 12);
//接收
ser.RecvByte(1000);
//释放
ser.free; |
|