记录一个lazarus的串口控件SynaSer serial library
支持win32和Linux,可惜不支持wince
主要是Synapse TCP/IP library控件,用于delphi。
简单使用方法,算是有点怪异的。
var
ser:TBlockSerial;
begin
ser:=TBlockserial.Create;
try
ser.RaiseExcept:=True;
ser.Connect(‘COM2’);
ser.Config(19200,8,’N’,0,false,false);
writeln (ser.ATCommand(‘ATI8’));
finally
ser.Free;
end;
end.