/* function StrTrim(CStr:
PChar): PChar;
Like delphi func Trim
*/
DECLARE EXTERNAL FUNCTION StrTrim
CSTRING(255)
RETURNS CSTRING(255) FREE_IT
ENTRY_POINT "StrTrim" MODULE_NAME "XLIBUDF.DLL";
/* function StrUCase(CStr:
PChar): PChar;
Like delphi func ANSIUpperCase
*/
DECLARE EXTERNAL FUNCTION StrUCase
CSTRING(255)
RETURNS CSTRING(255)
ENTRY_POINT "StrUCase" MODULE_NAME "XLIBUDF.DLL";
/* function StrLCase(CStr:
PChar): PChar;
Like delphi func ANSILowerCase
*/
DECLARE EXTERNAL FUNCTION StrLCase
CSTRING(255)
RETURNS CSTRING(255)
ENTRY_POINT "StrLCase" MODULE_NAME "XLIBUDF.DLL";
/* function StrLength(S:
pchar): integer;
Return length of string
*/
DECLARE EXTERNAL FUNCTION StrLength
CSTRING(255)
RETURNS INTEGER BY VALUE
ENTRY_POINT "StrLength" MODULE_NAME "XLIBUDF.DLL";
/* function SubStr(S:
PChar; var FromPos, SubLen: Integer): PChar;
Return substring (like delphi func Copy)
*/
DECLARE EXTERNAL FUNCTION SubStr
CSTRING(255), INTEGER, INTEGER
RETURNS CSTRING(255)
ENTRY_POINT "SubStr" MODULE_NAME "XLIBUDF.DLL";
/* function StrFirst(S:
PChar; var Len: Integer): PChar;
Return first Len chars of string S
*/
DECLARE EXTERNAL FUNCTION StrFirst
CSTRING(255), INTEGER
RETURNS CSTRING(255)
ENTRY_POINT "StrFirst" MODULE_NAME "XLIBUDF.DLL";
/* function StrLast(S:
PChar; var Len: Integer): PChar;
Return last Len chars of string S
*/
DECLARE EXTERNAL FUNCTION StrLast
CSTRING(255), INTEGER
RETURNS CSTRING(255)
ENTRY_POINT "StrLast" MODULE_NAME "XLIBUDF.DLL";
/* function ANSILike(Src,MathStr:
PChar): integer;
Return 1 if Str contain MathStr. Case insensitive. ANSI
support.
Otherwise return 0.
*/
DECLARE EXTERNAL FUNCTION ANSILike
CSTRING(255), CSTRING(255)
RETURNS INTEGER BY VALUE
ENTRY_POINT "ANSILike" MODULE_NAME "XLIBUDF.DLL";
/* function CreateUID:
pchar;
Return reversed GUID as string with length 32 chars.
*/
DECLARE EXTERNAL FUNCTION CreateUID
RETURNS CSTRING(32) FREE_IT
ENTRY_POINT "CreateUID" MODULE_NAME "XLIBUDF.DLL";
/* function WaitMutex(MutexName:
PChar; Timeout: integer): Integer;
1 - OK, 0 - TimeOut
*/
DECLARE EXTERNAL FUNCTION WaitMutex
CSTRING(255), INTEGER
RETURNS INTEGER BY VALUE
ENTRY_POINT "WaitMutex" MODULE_NAME "XLIBUDF.DLL";
/* function FreeMutex(MutexName:
PChar): integer;
*/
DECLARE EXTERNAL FUNCTION FreeMutex
CSTRING(255), INTEGER
RETURNS INTEGER BY VALUE
ENTRY_POINT "FreeMutex" MODULE_NAME "XLIBUDF.DLL";
/* function WriteDebug(Msg:
pchar): integer;
Output Msg to IBDebugWindow.
If IBDebugWindow not started it will be run automatically.
*/
DECLARE EXTERNAL FUNCTION WriteDebug
CSTRING(255)
RETURNS INTEGER BY VALUE
ENTRY_POINT "WriteDebug" MODULE_NAME "XLIBUDF.DLL";
/* function TimeStamp:
integer;
Result:=DateTimeToFileDate(Now);
*/
DECLARE EXTERNAL FUNCTION TimeStamp
RETURNS INTEGER BY VALUE
ENTRY_POINT "TimeStamp" MODULE_NAME "XLIBUDF.DLL";