unit1.pas

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

unit unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Grids, DBGrids, Db, AstaDrv2, AstaClientDataset, StdCtrls, ScktComp,
  AstaCustomSocket, AstaClientSocket, ExtCtrls, AstaRemote_Server;

type
  TForm1 = class(TForm)
    AstaClientSocket1: TAstaClientSocket;
    AstaClientDataSet1: TAstaClientDataSet;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    RadioGroup2: TRadioGroup;
    RemoteControlServer1: TRemoteControlServer;
    procedure RadioGroup2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.RadioGroup2Click(Sender: TObject);
begin
 if RadioGroup2.ItemIndex=1
      then RemoteControlServer1.Stop
      else begin
             //Set the Port and Password and START Remote Control SERVER
             RemoteControlServer1.Password:='Remote Control Password';
             RemoteControlServer1.Port:=23;
             RemoteControlServer1.Start;
           end;

end;

end.