TVisualServer

type TVisualServer = class(TComponent)

protected

  FActive: Boolean;

  FMakeActive: Boolean;

  FSettings: TSettings;

  FCallBacks: TCallbacks;

  FListenThread: TVisualListen;

  FServerType: TThreadClass;

  FClientType: THandlerClass;

  FIni: TMemIniFile;

  FIniSettings: TStrings;

  FAuthentication: TvsAuthentication;

  procedure Loaded; override;

  function InitIniWrite();

  function InitIniRead();

  procedure FinishIni;

  procedure WriteSectionValues();

public

  procedure SetActive();

  constructor Create(); override;

  destructor Destroy; override;

  procedure DropClient();

  procedure SendData();

  procedure SendStream();

  function SaveSettings(); virtual;

  function LoadSettings(); virtual;

  property IniSettings: TStrings; [r]

published

  property Active: Boolean; [rw]

  property BaseDir: string; [rw]

  property ListenIP: string; [rw]

  property ListenPort: string; [rw]

  property ServerName: string; [rw]

  property ThreadSafe: Boolean; [rw]

  property LogFile: string; [rw]

  property ErrorLog: string; [rw]

  property SSL: Boolean; [rw]

  property AutoTLS: Boolean; [rw]

  property SSLCertCAFile: string; [rw]

  property SSLPrivateKeyFile: string; [rw]

  property SSLCertificateFile: string; [rw]

  property vsAuthentication: TvsAuthentication; [rw]

  property OnConnect: TOnConnect; [rw]

  property OnDisConnect: TOnDisConnect; [rw]

  property OnAuthenticate: TOnAuthenticate; [rw]

  property OnMustAuthenticate: TOnMustAuthenticate; [rw]

  property OnRequest: TOnRequest; [rw]

  property OnPut: TOnPut; [rw]

  property OnError: TOnError; [rw]

end;

TVisualServer

TObject