Class TNotesDirectory (unit Class_LotusNotes) |
Inherits from
TObject
This class allows to list servers/directories/databases
constructor Create;
- ClassMarker_Method(TNotesDocument) *************************************************** TNotesDirectory
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;
***************************************************
property Ports : TStrings
lists all servers for specific port (if empty string - for all ports) at least one entry always exists: empty string for local computer
FPorts : TStrings;
hDirectory : THandle;
SrcIndex : integer;
SrcOptions : TNotesFindOptions;
SrcPath : string;
SrcServer : string;
SrcTable : TList;
constructor Create;
ClassMarker_Method(TNotesDocument) *************************************************** TNotesDirectory
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;
***************************************************
property Ports : TStrings
lists all servers for specific port (if empty string - for all ports) at least one entry always exists: empty string for local computer
FPorts : TStrings;
hDirectory : THandle;
SrcIndex : integer;
SrcOptions : TNotesFindOptions;
SrcPath : string;
SrcServer : string;
SrcTable : TList;