unit1.~pas

智能监控delphi源码, 操作说明 1. 在两台微机上分别运行文件夹中的可执行文件。 2. 主界面程序可以通过菜单或者按钮选择监控方式、报警模式、打开/关闭摄像头、开始/停止录像以及查看历史记

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Comm1: TComm;
    Timer1: TTimer;
    pnlShowSendStr: TPanel;
    mmo1: TMemo;
    mmo2: TMemo;
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure btnSendStrClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
    procedure ChangeString(newS: string; n: Integer); {修改发送字符串}

  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  CommSendStr: string;

implementation

{$R *.dfm}

{-------------------------------------------------------------------------------
  过程名:    TForm1.ChangeString   修改发送字符串 对CommSendStr修改
  作者:      Myself
  日期:      2005.05.25       n  欲修改位    newS  新字符
  参数:      newS: string; n: Integer
  返回值:    无
-------------------------------------------------------------------------------}

procedure TForm1.ChangeString(newS: string; n: Integer);
begin
  Delete(CommSendStr, n, 1);
  Insert(newS, CommSendStr, n);
end;


procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if (key = 'a') or (key = 'A') then begin
    ChangeString('1', 1);
    ChangeString('0',2);
    pnlShowSendStr.Caption := CommSendStr;
  end;
  if (key = 'b') or (key = 'B') then begin
    ChangeString('1', 3);
    ChangeString('0',4);
    pnlShowSendStr.Caption := CommSendStr;
  end;
  if (key = 'z') or (key = 'Z') then begin
    ChangeString('0', 1);
    ChangeString('1',2);
    pnlShowSendStr.Caption := CommSendStr;
  end;
  if (key = 'v') or (key = 'V') then begin
    ChangeString('0', 3);
    ChangeString('1',4);
    pnlShowSendStr.Caption := CommSendStr;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Comm1.StartComm;
  CommSendStr := '0101';
  pnlShowSendStr.Caption := CommSendStr;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Comm1.WriteCommData(PChar(CommSendStr), 4);
end;

procedure TForm1.btnSendStrClick(Sender: TObject);
begin
  Comm1.WriteCommData(PChar(CommSendStr), Length(CommSendStr));
end;

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

end.