Yegor,
фрагмент кода:
// — Функции обратного вызова для Коннектора — //
TCallBack = Function(pData: PAnsiChar): PAnsiChar;
TCallBackEx = Function(pData: PAnsiChar; pUnknown: Pointer = NIL): PAnsiChar;
// — Функции txmlconnector.dll — //
Function con_SetCallBack (pCallback: TCallBack): Boolean; stdcall;
Function con_SetCallBackEx(tCallbackEx: TCallBackEx; UserData: PAnsiChar): Boolean; stdcall;
Function con_SendCommand (pData: PAnsiChar): PAnsiChar; stdcall;
Function con_FreeMemory (pData: PAnsiChar): Boolean; stdcall;
Function con_Initialize (const logPath: PAnsiChar; logLevel: Integer): PAnsiChar; stdcall;
Function con_UnInitialize: PAnsiChar; stdcall;
Function con_SetLogLevel (logLevel: Integer): PAnsiChar; stdcall;
// — //
Function Transaq_Function_CallBack(pData: PAnsiChar): PAnsiChar;
Function Transaq_Command(const vCommand: String): Boolean;
// — Системные функции для работы с Transaq — //
Function Transaq_ErrorCheck(const vAnswer: String): Boolean;
Function Transaq_ErrorLast_Code: Integer; inline;
Function Transaq_ErrorLast_Bool: Boolean; inline;
Function Transaq_ErrorLast_Text: String;
Function Transaq_Set_Command(const vCmd: TTransaq_Command; const vContents: String = ''; const vXMLLexeme: TXMLLexeme = xml_Begin_End): String;
Procedure LexToStr(const vTRSQAnswer: TTransaq_Answer; out vBegin, vEnd: String);


