FATS - Fast Access Tree System Inhaltsverzeichnis Programmierschnittstellen Borland Delphi für Windows 95/NT

Borland Delphi für Windows 95/NT

---

 
Windows Bibliotheken FATS_W32.DLL bzw. FATSXW32.DLL

Im Lieferumfang der FATS-Version für Windows 95/NT befinden sich die Dynamischen Bibliotheken FATS_W32.DLL (Basisversion) bzw. FATSXW32.DLL (Erweiterte Version), die Sie in das Systemverzeichnis von Windows kopieren müssen:

COPY FATS?W32.DLL \WINDOWS\SYSTEM

Die Bibliotheken exportieren folgende Funktionen:

function FATSLibInit(nSize: integer; nSign: integer): Pointer; stdcall;external 'fats_w32.dll';

function FATSLibExit(lpFatsdata: Pointer): Pointer; stdcall;external 'fats_w32.dll';

function FATSLibCall(var szCmnd: string; var nErrorcode: integer;var szFatsKey: fatskeystr; lpFatsdata: Pointer): longint;stdcall; external 'fats_w32.dll' name 'FATSLibCallA';

Bevor Sie die FATS-Befehle aus Ihrem Delphi Programm verwenden können, müssen Sie FATS einen Datenbereich zuweisen:

begin
{ -------> init fats datasegment }

{$IFOPT H+}
lpFatsdata:=FATSLibInit(0, 4);
{$ELSE}
lpFatsdata:=FATSLibInit(0, 1);
{$ENDIF}

Der erste Parameter bestimmt die Größe des FATS-Datenbereichs. Wenn Sie hier eine Null angeben, dann wird der minimal benötigte Speicherplatz reserviert (ca. 18-20 KB). Der zweite Parameter bestimmt die eingesetzte Programmiersprache, für 32-Bit-Delphi Programme muß dieser Wert gleich 4 (LONGSTRINGS) oder 1 (SHORTSTRINGS) sein. Die Adresse des Datenbereichs wird in der Variable lpFatsdata zurückgegeben.

Vor dem Beenden des Anwendungsprogrammes sollten Sie den mit der Funktion FATSLibInit reservierten Speicherbereich wieder freigeben. Dafür steht die Funktion FATSLibExit zur Verfügung:

lpFatsdata:=FATSLibExit(lpFatsdata);

Obwohl der Speicherbereich notfalls auch vom Betriebssystem automatisch freigegeben würde, ist dieser Befehl nützlich, da er sämtliche noch geöffneten FATS-Dateien ordnungsgemäß schließt.

 
Aufruf von FATS

FATS-Befehle werden mit der Funktion FATSLibCall ausgeführt:

dwRecno :=FATSLibCall(szCmnd, nErrorcode, szFatsKey, lpFatsdata);

Bedeutung der verwendeten Parameter:

szCmnd	Befehlsstring
nErrorcode	Fehlercode von FATS
szFatsKey	Schlüsselstring von FATS
lpFatsdata	Adresse des FATS-Datenbereichs
Rückgabe:	Datensatznummer

 
Testprogramme

Auf der FATS-Diskette für Windows 95/NT befinden sich im Verzeichnis WIN_32I\PASCAL\DELPHI Testprogramme, anhand derer Sie die Verwendung von FATS studieren können:

tst1_ger.dpr	Testprogramm für Delphi für Windows 95/NT
rebldger.dpr	Wiederherstellung einer Indexdatei ('BK', 'DL')

Bei der erweiterten Version von FATS befinden sich zusätzlich die folgenden Testprogramme im Verzeichnis:

tst2_ger.dpr	Matchcode-Suche im Kundenstamm
mcsort.dpr	Anwendung des Key-Flags beim Kommando 'MC'
reindger.dpr	Schnelle Re-Indizierung (Befehl 'XB')

© 2008  GCS Software, Udo Gertz