Class TNotesDirectory (unit Class_LotusNotes)

Inherits from

TObject

This class allows to list servers/directories/databases

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 : TStrings

lists 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;



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 : TStrings

lists 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;