unit1.pas

著名的SecureBlackBox控件完整源码

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, uROClient, uROBINMessage, uROClientIntf, uROServer,
  uROIndyHTTPServer, uROIndyTCPServer;

type
  TForm1 = class(TForm)
    ROMessage: TROBINMessage;
    ROServer: TROIndyHTTPServer;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private

  protected

  public

  end;

var
  Form1: TForm1;

implementation


{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
  ROServer.Active := true;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  ROServer.Active := false;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  if ROServer.Active then
    Button3.Caption := 'Status=Active'
  else Button3.Caption := 'Status=Inactive';
end;

end.