谁做过spcom的实例，能给发一个吗？(100)

谁做过spcom的实例，能给发一个吗？我的邮箱：lilb_px@163.com

procedure comset(protTemp: string);var Comm1: TComm;begin Comm1 := TComm.create(nil); try with Comm1 do begin CommName := trim(string(protTemp)); BaudRate := 9600; Parity := Space; ParityCheck := true; Outx_XonXoffFlow := false; Inx_XonXoffFlow := false; end; Comm1.StartComm; sleep(2); Comm1.StopComm; finally Comm1.Free; end;end;

我做过音视频设备的控制，最后向串口发送控制码，用的是spcomm,给您发个文档看看，希望能有帮助

多人接受答案了。