| Class TNotesDirectory (unit Class_LotusNotes) |
TObject
This class allows to list servers/directories/databases
| Constructors |
constructor Create;| Functions |
destructor Destroy;
procedure FindClose;
function FindFirst (const Server, Path: string; Options: TNotesFindOptions; var Entry: TNotesDirEntry): boolean;***************************************************
function FindNext (var Entry: TNotesDirEntry): boolean;
procedure ListServers (Port: string; List: TStrings);***************************************************
function GetPorts: TStrings;| Properties |
property Ports : TStrings| Events |
| Variables |
FPorts : TStrings;
hDirectory : THandle;
SrcIndex : integer;
SrcOptions : TNotesFindOptions;
SrcPath : string;
SrcServer : string;
SrcTable : TList;| Constructors |
constructor Create;ClassMarker_Method(TNotesDocument) *************************************************** TNotesDirectory
| Functions |
destructor Destroy;***************************************************
procedure FindClose;***************************************************
function FindFirst (const Server, Path: string; Options: TNotesFindOptions; var Entry: TNotesDirEntry): boolean;closes search sequence
***************************************************
function FindNext (var Entry: TNotesDirEntry): boolean;***************************************************
procedure ListServers (Port: string; List: TStrings);use these functions to find files in the directory they returns False if no more files can be found
***************************************************
function GetPorts: TStrings;***************************************************
| Properties |
property Ports : TStringslists all servers for specific port (if empty string - for all ports) at least one entry always exists: empty string for local computer
| Events |
| Variables |
FPorts : TStrings;
hDirectory : THandle;
SrcIndex : integer;
SrcOptions : TNotesFindOptions;
SrcPath : string;
SrcServer : string;
SrcTable : TList;