Re: ISIS + Perl + Pft
Пользователь: Очагова Л. Н. (IP-адрес скрыт)
Дата: 09, September, 2005 16:43
Библиотека Format32.dll подключается к проекту (DEPHI) через модуль pas и используется обращение типа:
IsisFmtNA(Space, 0, pchar, pchar, 1, 0,MAX,'format32');
Format32.pas:
unit Format32;
Interface
uses IniFiles;
{Function DosWin(Line: PChar): PChar;}
{Function WinDos(Line: PChar): PChar;}
Procedure SetIniFmt(AIniFile: TIniFile; AHApp: integer); {2001.1}
Procedure SetIniFile(AIniFile: TIniFile);
Function IsisFmtGet(Area_Pft: PChar; Line: PChar): Integer;
Function IsisFmtNA (H_ : LongInt; { Handle }
Curr_Shelf : LongInt; { Shelf of Current record }
Area_Pft : PChar; { Current format }
Work_Buf : PChar; { Formatted Record Buffer }
Alt_Shelf : LongInt; { Shelf of Altern record }
Trm_Shelf : LongInt; { Shelf of Term for "L" }
Line_Width : LongInt; { Length of Out string }
FmtExitDLL : PChar { DLL Format Exits }
): Integer;
Function UNIFOR(H : LongInt; { Handle }
Curr_Shelf : LongInt; { Shelf of Current record }
Trm_Shelf : LongInt; { Shelf of Term }
LW_Exit: integer;
OCC_Exit: integer;
SP1,SP2: Pchar
): integer;
Function UMARCI(H : LongInt; { Handle }
Curr_Shelf : LongInt; { Shelf of Current record }
Trm_Shelf : LongInt; { Shelf of Term }
LW_Exit: integer;
OCC_Exit: integer;
SP1,SP2: Pchar
): integer;
Implementation
{Function DosWin(Line: PChar): PChar; external 'Format32.DLL';}
{Function WinDos(Line: PChar): PChar; external 'Format32.DLL';}
Procedure SetIniFmt(AIniFile: TIniFile; AHApp: integer); external 'Format32.DLL'; {2001.1}
Procedure SetIniFile(AIniFile: TIniFile); external 'Format32.DLL';
Function IsisFmtGet(Area_Pft: PChar; Line: PChar): Integer; external 'Format32.DLL';
Function IsisFmtNA (H_ : LongInt; { Handle }
Curr_Shelf : LongInt; { Shelf of Current record }
Area_Pft : PChar; { Current format }
Work_Buf : PChar; { Formatted Record Buffer }
Alt_Shelf : LongInt; { Shelf of Altern record }
Trm_Shelf : LongInt; { Shelf of Term for "L" }
Line_Width : LongInt; { Length of Out string }
FmtExitDLL : PChar { DLL Format Exits }
): Integer; external 'Format32.DLL';
Function UNIFOR(H : LongInt; { Handle }
Curr_Shelf : LongInt; { Shelf of Current record }
Trm_Shelf : LongInt; { Shelf of Term }
LW_Exit: integer;
OCC_Exit: integer;
SP1,SP2: Pchar
): integer; external 'Format32.DLL';
Function UMARCI(H : LongInt; { Handle }
Curr_Shelf : LongInt; { Shelf of Current record }
Trm_Shelf : LongInt; { Shelf of Term }
LW_Exit: integer;
OCC_Exit: integer;
SP1,SP2: Pchar
): integer; external 'Format32.DLL';
End.