TIPCBase

type TIPCBase = class(TComponent)

protected

  class function ServerIDToFileName();

  function GetResponseFileName();

  function GetPeekedRequestFileName();

  function GetRequestPrefix;

  function GetRequestFileName();

  function RequestFileNameToID();

  function RequestExists();

  procedure SetServerID(); virtual;

  procedure SetGlobal(); virtual;

  function CanReadMessage();

  procedure DoPostMessage();

  function DoReadMessage();

  property FileName: string; [r]

public

  class procedure FindRunningServers();

  class function ServerRunning(); overload;

  property ServerID: string; [rw]

  property Global: Boolean; [rw]

  property MessageVersion: Integer; [rw]

end;

TIPCBase

TObject