serverdlg.pas

Asta For d2006 自己修改版 经典中间件 速度超快

unit ServerDlg;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, StdCtrls, Menus, ComCtrls, AstaRemote_Server;

type
  TServerForm = class(TForm)
    PageServer: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    LogList: TListBox;
    Panel1: TPanel;
    DisconBut: TButton;
    StartBut: TButton;
    Panel2: TPanel;
    Label5: TLabel;
    StartLab: TLabel;
    ConLab: TLabel;
    Label9: TLabel;
    Label11: TLabel;
    NumRecLab: TLabel;
    NumSendLab: TLabel;
    Label13: TLabel;
    Label3: TLabel;
    LastRecLab: TLabel;
    NumErrLab: TLabel;
    Label4: TLabel;
    Panel3: TPanel;
    Label1: TLabel;
    NameLabel: TLabel;
    PortEdt: TEdit;
    Label2: TLabel;
    PasswordEdt: TEdit;
    Label6: TLabel;
    SV: TRemoteControlServer;
    procedure FormCreate(Sender: TObject);
    procedure LogListAdd(Sender: TObject);
    procedure StartButClick(Sender: TObject);
    procedure DisconButClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure UpdateState(Sender: TObject);
    procedure EnableButs;
  protected

  public

  end;

var
  ServerForm: TServerForm;
 
implementation

{$R *.DFM}


procedure TServerForm.FormCreate(Sender: TObject);
begin
  NameLabel.Caption := sv.ServerName;
end;

procedure TServerForm.LogListAdd(Sender: TObject);
begin
  if loglist.items.Count>20000 then
     begin
      loglist.Clear;
      loglist.items.add('Clear LOG');
     end;
  loglist.items.add(sv.Log);
end;

procedure TServerForm.StartButClick(Sender: TObject);
begin
  sv.Port := StrToInt(PortEdt.Text);
  sv.Password := PasswordEdt.Text;
  sv.Start;
  EnableButs;
end;

procedure TServerForm.DisconButClick(Sender: TObject);
begin
  sv.Stop;
  EnableButs;
end;

procedure TServerForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  sv.Stop;
end;

procedure TServerForm.UpdateState(Sender: TObject);
begin
  ConLab.Caption := IntToStr(sv.Connections);
  NumRecLab.Caption := FloatToStr(sv.BytesReceived);
  NumSendLab.Caption := Floattostr(sv.BytesSend);
  NumErrLab.Caption := IntToStr(sv.NumErrors);
  StartLab.Caption := DateTostr(sv.StartupTime);
  LastRecLab.Caption := DateTostr(sv.LastReceive);
end;

procedure TServerForm.EnableButs;
var
  b: boolean;
begin
  b := sv.Enabled;
  StartBut.Enabled := not b;
  PortEdt.Enabled := not b;
  DisconBut.Enabled := b;
end;
//******   USE FOR TEST ENCRYPT AND DECRYPT*************
//  IT IS NECESARY TO PUT THIS PROCEDURE and in CLIENT
{
procedure TServerForm.SVEncrypt(Sender: TObject; var S: String);
var
  i:integer;
begin
  for i:=1 to length(s) do
    s[i]:=chr(ord(s[i]) XOR $CACA);
end;
 }
{procedure TServerForm.SVDecrypt(Sender: TObject; var S: String);
var
  i:integer;
begin
  for i:=1 to length(s) do
    s[i]:=chr(ord(s[i]) XOR $CACA);
end;
}
end.