盒子论坛 v2.1

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  SPComm, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Comm1: TComm;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
    procedure Comm1ReceiveData(Sender: TObject; Buffer: Pointer;
      BufferLength: Word);
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    procedure SendData;
    { Public declarations }
  end;

var
  Form1: TForm1;

var
  SBuf,RBuf:array[1..10] of byte;
  i:integer;
  ViewString:string;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
  SBuf[1]:=byte($5A);
  SBuf[2]:=byte('4');
  SendData;
end;

procedure TForm1.SendData;
var
  i:integer;
  CommFlg:Boolean;
begin
  ViewString:=';
  CommFlg:=True;
  for i:=1 to High(SBuf) do
  begin
    if Not Comm1.WriteCommData(@SBuf[i],1) then
      begin
        CommFlg:=False;
        break;
      end;
      //发送时字节间的延时
      Sleep(2);
      ViewString:=ViewString+IntToHex(SBuf[i],2)+' ';
  end;
  ViewString:='发送'+ViewString;
  Memo1.Clear;
  Memo1.lines.Add(ViewString);
  if not CommFlg then
    MessageDlg('发送失败！',mtError,[mbyes],0);
end;

procedure TForm1.Comm1ReceiveData(Sender: TObject; Buffer: Pointer;
  BufferLength: Word);
var
  i:integer;
begin
  ViewString:=';
  move(Buffer^,pchar(@RBuf)^,Bufferlength);
  for i:=1 to high(RBuf) do
    ViewString:=ViewString+IntToStr(RBuf[i]);
  ViewString:='接收'+ViewString;
  Memo1.lines.Add(ViewString);
  memo1.lines.Add(' ');
end;

procedure TForm1.FormShow(Sender: TObject);
begin
  Comm1.StartComm;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Comm1.StopComm;
end;

仅仅提供参考！
----------------------------------------------

作者：

hq12 (heygel)	★☆☆☆☆	-
	普通会员

2003/10/4 13:40:52

2楼：

不是啊，我是要对字符一个个接收，按十六进制方式，我就是对bufferlength不知道怎么处理，想知道能不能象mscomm32一样处理，一个一个字符的接收，我的大量数据是没有开始停止标志的，需要一个一个处理了自己判断的。
----------------------------------------------
-

作者：

hq12 (heygel)	★☆☆☆☆	-
	普通会员

2003/10/4 13:41:57

3楼：

接收到特定字符时候，还需要自动发送回执。所以需要控制RTS信号线.
----------------------------------------------
-

作者：

bios (阿贡)	★☆☆☆☆	-
	盒子中级会员

2003/10/4 16:50:58

4楼：

等待高手了。。。。。。*_*
----------------------------------------------

信息

登陆以后才能回复