TUIBService

type TUIBService = class(TUIBComponent)

protected

  FLibrary: TUIBLibrary;

  FHandle: IscSvcHandle;

  procedure BeginService; virtual;

  procedure EndService; virtual;

  function CreateParam();

public

  constructor Create(); override;

  destructor Destroy; override;

published

  property UserName: string; [rw]

  property PassWord: string; [rw]

  property Host: string; [rw]

  property Protocol: TUIBProtocol; [rw]

  property LibraryName: string; [rw]

end;

TUIBService

TUIBComponent

TObject