 | FATS - Fast Access Tree System | |||
| Inhaltsverzeichnis | |||
| Programmierschnittstellen | |||
 | Borland Delphi für Windows 3.x | |||
| | ||||||||||||||||||||
Borland Delphi für Windows 3.x
Windows Bibliotheken FATS_WIN.DLL bzw. FATSXWIN.DLL
Im Lieferumfang der FATS-Version für Windows 3.x befinden sich die Dynamischen Bibliotheken FATS_WIN.DLL (Basisversion) bzw. FATSXWIN.DLL (Erweiterte Version), die Sie in das Systemverzeichnis von Windows kopieren müssen:
COPY FATS?WIN.DLL \WINDOWS\SYSTEM
Die Bibliotheken exportieren folgende Funktionen:
function FATSLibInit(nSize: integer; nSign: integer): pointer;far; external 'fats_win';function FATSLibExit(lpFatsdata: pointer ): pointer;far; external 'fats_win';
function FATSLibCall(var szCmnd: fatscmndstr; var nErrorcode: integer;var szFatsKey: fatskeystr; lpFatsdata: pointer): longint;far; external 'fats_win';
Bevor Sie die FATS-Befehle aus Ihrem Delphi Programm verwenden können, müssen Sie FATS einen Datenbereich zuweisen:
begin
{ -------> init fats datasegment }
lpFatsdata := FATSLibInit(0, 1);
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 16-Bit Delphi Programme muß dieser Wert gleich 1 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 3.x befinden sich im Verzeichnis WIN_16I\PASCAL\DELPHI Testprogramme, anhand derer Sie die Verwendung von FATS studieren können:
Testprogramm für Delphi für Win 3.11 Wiederherstellung einer Indexdatei ('BK', 'DL')
Bei der erweiterten Version von FATS befinden sich zusätzlich die folgenden Testprogramme im Verzeichnis:
Matchcode-Suche im Kundenstamm Anwendung des Key-Flags beim Kommando 'MC' Schnelle Re-Indizierung (Befehl 'XB')
© 2008 
GCS Software, Udo Gertz