请问怎么向串口发送信息

Question

比如我想向串口发送字符串
chr(27)+'QA'+'123456'
该怎么办
是否要首先打开串口，应该怎么打开串口呢

Answer 1

comm32控件
Comm321.StartComm
comm321.StopComm
comm321.WriteCommData

Answer 2

请问COMM32控件该从哪里找呢

Answer 3

Thank you 
我已经找到了，
http://www.csdn.net/Dev/Delphi/vcl/comm/
谢谢
To Eastunfail(恶鱼杀手)
我本来使用的你的这个方法procedure f_ShowMoney(MoneyPort:String;ShowString:String);  //顾客显示屏显示信息
var
  PrnFileName:TextFile;
begin
  Assignfile(PrnFileName,MoneyPort);
  Rewrite(PrnFileName);
  write(PRNFileName,chr(27)+'QA'+ShowString+chr(13));   //显示信息
  CloseFile(PRNFileName);
end;但是顾显却不能显示出任何信息，可是我假如向顾显发送一条清空的指令，却可以发现顾显被清空了
而且，假如我用别的程序让顾显显示出字来之后，再调用这个过程，就可以让顾显显示了，我怀疑是我没有打开串口，你能帮我看看吗

Answer 4

装好控件
设置一下通信速率，rate ,和　端口 com1Comm321.StartComm；　　//启动端口
comm321.WriteCommData('aa',2); //发送aa,长度为２
comm321.StopComm; //程序退出的时候关闭端口

Answer 5

请看我这段代码，可以吗？
procedure TForm1.Button1Click(Sender: TObject);
var
  spcomm1:Tcomm;
  TmpString:string;
begin  spcomm1:=TComm.Create(self);
  spcomm1.CommName := 'COM1';
  SPCOMM1.StartComm;
  TmpString:=chr(27)+'QA123'+chr(13);
   Spcomm1.WriteCommData(Pchar(Tmpstring),28);
  Spcomm1.StopComm;end;
我的串口好像没有接到信息

Answer 6

我有一个现成的使用SPComm做的串口测试的例子，源码奉送，EMail To:[email protected]

Answer 7

已经搞定，谢谢各位.
不过到底是怎么搞定的我自己都不怎么清楚，反正我是用的SPCOMM打开的串口，可是我却不会用SPCOMM去往串口写东西，最后还是用的
var
  PrnFileName:TextFile;
begin
  Assignfile(PrnFileName,MoneyPort);
  Rewrite(PrnFileName);
  write(PRNFileName,chr(27)+'QA'+ShowString+chr(13));   //显示信息
  CloseFile(PRNFileName);往串口里面写的东西，真是胡涂了，有哪位高手能详细的指点我到底是什么原因吗？
今天这一帖先放在这里，明天晚上一定结