Unit Class_LotusNotes

} { Lotus Notes 4.x object layer } { Version 3.1 } { Created by: } { Sergey Kolchin skolchin@usa.net } { Sergey Kucherov skch@usa.net } { Sergey Okorochkov } { Sergey_Okorochkov@europe.notes.pw.com } { Last Modified: } { 26.05.98, Sergey Kolchin } { } These classes simulates Lotus Notes "classes", available in LotusScript. A lot of methods and properties work the same way, so Notes help may be used for additional comments. Use RUSSIAN_TEXT define to enable/disable russian text processing

Classes

ELotusNotes -
TNotesDatabase - Notes database
TNotesDirectory - This class allows to list servers/directories/databases
TNotesDocument - Notes document
TNotesDocumentCollection - Document collection
TNotesItem - Document item
TNotesRichTextItem -

Functions

CheckError - Initialization (don't call directly

*****************************************************************************)
CloseNotes - *****************************************************************************)
CloseNotesThread - *****************************************************************************)
DateTimeToNotes - Date time conversions

*****************************************************************************)
InitNotes - *****************************************************************************)
InitNotesThread - Thread initialization InitNotesThread must be called by the thread before using of any Notes functions It will call InitNotes inside CloseNotesThread must be called by the thread before thread terminates

*****************************************************************************)
NotesToDateTime - *****************************************************************************)
NotesToDateTimeEx - *****************************************************************************)

Types

pNotesDirEntry
PTDateTime
TNotesDirEntry
TNotesFindOption
TNotesFindOptions
TRichTextFont
TRichTextJustification

Constants

ITEM_VALUE_SEPARATOR
strLength

Variables


Functions


procedure CheckError(Error: word);

Initialization (don't call directly

*****************************************************************************)


procedure CloseNotes;

*****************************************************************************)

procedure CloseNotesThread;

*****************************************************************************)

function DateTimeToNotes (DelphiTime: TDateTime): TIMEDATE;

Date time conversions

*****************************************************************************)


procedure InitNotes;

*****************************************************************************)

procedure InitNotesThread;

Thread initialization InitNotesThread must be called by the thread before using of any Notes functions It will call InitNotes inside CloseNotesThread must be called by the thread before thread terminates

*****************************************************************************)


function NotesToDateTime (NotesTime: TIMEDATE): TDateTime;

*****************************************************************************)

function NotesToDateTimeEx (NotesTime: TimeStruct): TDateTime;

*****************************************************************************)

Types


pNotesDirEntry = ^TNotesDirEntry
description of the database
PTDateTime = ^TDateTime

TNotesDirEntry = record
FileName : shortString;
EntryType : boolean;
FileInfo : shortString;
end;
One directory entry
TNotesFindOption = (nfoFiles, nfoTemplates, nfoSubDirs);
Search options nfoFiles and nfoTemplates are mutually exclusive. If both are set, nfoFiles is used
TNotesFindOptions = set of TNotesFindOption

TRichTextFont = (rfRoman, rfSwiss, rfMonospace);

TRichTextJustification = (rjNone, rjLeft, rjCenter, rjRight, rjBlock);
Rich-text item class

Constants

ITEM_VALUE_SEPARATOR = ';'

strLength = 2048


Variables