unit1.pas

程序主要是在监控系统中的车辆检测与其他设备协议的测试程序

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,JKDvc, StdCtrls, Buttons,cmsitemdefine;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public

    { Public declarations }
  end;

var
  Form1: TForm1;
  myCMS:TCMSPanel;
  myVD :TVDPanel;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  temppos :TPoint;
  ss:TDvc;
  s:string;
begin
  myCMS :=TCMSPanel.Create(self);
  ss:= TDvc.Create;
  ss.ID := 'aaaaaaaa';
  ss.CName :='郑州南站前';
  ss.Location :='K100+200';
  mycms.Dvcinfo:=ss;

  mycms.CMSSize  := '48*48';
  s :=  ReadFromTxtFile('cms.txt')  ;
  mycms.CMSPubInfo :=TurnStrToCmsPublishFormat(s);
  mycms.Parent :=self;
  GetCursorPos(temppos);
  mycms.Left  := temppos.X ;
  mycms.top   := temppos.Y  ;
  mycms.Show;

end;

procedure TForm1.Button2Click(Sender: TObject);
var temppos :TPoint;
ss:TDvc;
begin
  myVD :=TVDPanel.Create(self);
 
  ss:= TDvc.Create;
  ss.ID := 'aaaaaaaa';
  ss.CName :='郑州南站前';
  ss.Location :='K100+200';

  myVD.Dvcinfo:=ss;
  GetCursorPos(temppos);
  myVD.Left  := temppos.X ;
  myVD.top   := temppos.Y  ;
  myVD.Parent :=self;


  
end;

end.