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