comm1.pas

读取网通或电信电话交换机（华为）数据给酒店管理数据库

unit comm1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, SPComm, Buttons, ExtCtrls, Menus,registry, Db, DBTables,
  ComCtrls, TeEngine, Series, TeeProcs, Chart, jpeg;

type
  Tfcomm = class(TForm)
    Comm1: TComm;
    Timer1: TTimer;
    Memo1: TMemo;
    Label1: TLabel;
    Label2: TLabel;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Comm1ReceiveData(Sender: TObject; Buffer: Pointer;
      BufferLength: Word);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
fcomm: Tfcomm;
 len:longint;
implementation

{$R *.DFM}
//自定义的发送过程

//
procedure Tfcomm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
comm1.StopComm;
end;

procedure Tfcomm.Comm1ReceiveData(Sender: TObject; Buffer: Pointer;
  BufferLength: Word);
var
// Present: TDateTime;
// Year, Month, Day, Hour, Min, Sec, MSec: Word;
 s,strreceive:string;
 s2:integer;
 da:tdate;
 ti:ttime;
begin
//  Present:= Now;
//  DecodeTime(Present, Hour, Min, Sec, MSec);
  setlength(strreceive,bufferlength);
  move(buffer^,pchar(strreceive)^,bufferlength);
s2:=strtoint(trim(copy(strreceive,53,11)));
s:=copy(strreceive,65,10);
da:=strtodate(s);
ti:=strtotime(copy(strreceive,76,8));
  strreceive:=copy(strreceive,1,1)+','+
  copy(strreceive,3,4)+','+
  copy(strreceive,28,24)+','+
  copy(strreceive,53,11)+','+
  copy(strreceive,65,19)+','+datetostr(da-s2);
  memo1.Lines.add(strreceive);
  label2.Caption :=inttostr(len+1);
  memo1.Invalidate ;
end;
procedure Tfcomm.FormShow(Sender: TObject);
begin
memo1.Clear;
comm1.StartComm;
len:=0;
end;

end.