关于spcomm问题！简单！

Question

我是delphi初学者，麻烦各位：我的开发环境是winxp ＋ delphi6 ，程序运行环境win200 ＋ 客显（com3），如何用spcomm向com3口发送字符串（如：this is a example），并在客显上显示。

Answer 1

SPCOMM帮助可以看看，Comm3.WriteCommData(PChar(‘毒素发毒素发毒素发’) , Length(strSend));就可以了，不过要判断COM3是否打开了。

Answer 2

在Delphi中用SPCOMM实现串口编程
出处: http://www.ccw.com.cn/htm/app/aprog/01_1_8_4.asp   
 发不上来，自己去看吧

Answer 3

leilu(Delphi&Java):
   你好！谢谢你的回复！
   你的讲的方法我已经试过了，还是不行。
   网上的一些例子只能在win98中正确，但在win2000中不行。
   下面是我写的：帮忙指教一下。
    显示结果是乱码。
    unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, SPComm;type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Comm1: TComm;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);  private
    { Private declarations }
    //procedure SendDate;
  public
    { Public declarations }
  end;var
  Form1: TForm1;
  str:string;
  rbuf,sbuf :array[1..6] of byte;
  aa :Pchar;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
Comm1.StartComm;
end;procedure TForm1.Button2Click(Sender: TObject);
begin
Comm1.StopComm;
end;procedure SendDate;
var
  i:integer;
  TmpString:string;
  bOk:boolean;
begin
TmpString:='11111111';
form1.Comm1.WriteCommData(Pchar(Tmpstring),Length(TmpString));end;procedure TForm1.Button3Click(Sender: TObject);
beginSendDate;end;end.

Answer 4

cjf1009(农民程序员) :
   也谢谢你的例子！
   我最开始就是用的这个例子，在win98中可以，win2000中也是乱码。
   我是因为工作原因初学delphi，有很多东西还不懂，希望大家帮忙指教指教。

Answer 5

你的spcomm的端口设置为comm3了？看一下是不是哪里设置没对了？