复件 unit1.pas

用dephi控件SPCOM写的一个485通信程序

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Comm1: TComm;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    procedure FormShow(Sender: TObject);
    procedure ComInit;
    procedure CircleDetect;
    procedure Comm1ReceiveData(Sender: TObject; Buffer: Pointer;
      BufferLength: Word);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  ComFlag: integer;

implementation

{$R *.dfm}

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

procedure TForm1.ComInit;
begin
  Comm1.StopComm;
  Comm1.BaudRate:=4800;
  Comm1.CommName:='Com1';
  Comm1.ByteSize:=_9;
  Comm1.StopBits:=_1;
  Comm1.Parity:=None;
  Comm1.StartComm;
  ComFlag:=0;
end;

procedure TForm1.CircleDetect;
var
  address:integer;
  i:integer;
begin

end;

procedure TForm1.Comm1ReceiveData(Sender: TObject; Buffer: Pointer;
  BufferLength: Word);
type ss=array[1..50] of char;
var
  str:^ss;
  viewstring:string;
  i:integer;
  //store_i:integer;
  //length:word;
  myDate:Tdate;
  myTime:Ttime;
begin
  str:=Buffer;
case ComFlag of
0:
  begin
    viewstring:='';
    for i:=1 to BufferLength do
    begin
      //intn:=str[i];
      viewstring:=viewstring+str[i];
    end;
    Edit1.Text:='得到的信息是：'+viewstring;
    if viewstring='password' then
      Comm1.WriteCommData(char($ee),1);
    ComFlag:=1;
  end;
1:
  begin
    viewstring:='';
    for i:=1 to 6 do
    begin
      viewstring:=viewstring+str[i];
    if (i=2) or (i=4) then
      viewstring:=viewstring+'-';
    end;
    Edit2.Text:='得到的日期是：'+viewstring;
    myDate:=StrtoDate(viewstring);
    viewstring:='';
    for i:=7 to BufferLength do
    begin
      viewstring:=viewstring+str[i];
    if (i=8) or (i=10) then
      viewstring:=viewstring+':';
    end;
    Edit3.Text:='得到的时间是：'+viewstring;
    myTime:=StrtoTime(viewstring);
    //ComFlag:=2;
  end;
{2:
  begin
    viewstring:='';
    for i:=1 to BufferLength do
    begin
      viewstring:=viewstring+str[i];
    if (i=2) or (i=4) then
      viewstring:=viewstring+'-';
    end;
    Edit3.Text:='得到的时间是：'+viewstring;
    //myDate:=StrtoDate(viewstring);
    ComFlag:=3;
  end;       }
end;


end;

end.