00001 {@********************************************************}
00002 { Copyright (c) 1999-2006 Zeos Development Group }
00003 { }
00004 { License Agreement: }
00005 { }
00006 { This library is distributed in the hope that it will be }
00007 { useful, but WITHOUT ANY WARRANTY; without even the }
00008 { implied warranty of MERCHANTABILITY or FITNESS FOR }
00009 { A PARTICULAR PURPOSE. See the GNU Lesser General }
00010 { Public License for more details. }
00011 { }
00012 { The source code of the ZEOS Libraries and packages are }
00013 { distributed under the Library GNU General Public }
00014 { License (see the file COPYING / COPYING.ZEOS) }
00015 { with the following modification: }
00016 { As a special exception, the copyright holders of this }
00017 { library give you permission to link this library with }
00018 { independent modules to produce an executable, }
00019 { regardless of the license terms of these independent }
00020 { modules, and to copy and distribute the resulting }
00021 { executable under terms of your choice, provided that }
00022 { you also meet, for each linked independent module, }
00023 { the terms and conditions of the license of that module. }
00024 { An independent module is a module which is not derived }
00025 { from or based on this library. If you modify this }
00026 { library, you may extend this exception to your version }
00027 { of the library, but you are not obligated to do so. }
00028 { If you do not wish to do so, delete this exception }
00029 { statement from your version. }
00030 { }
00031 { }
00032 { The project web site is located on: }
00033 { http:
00034 { http:
00035 { svn:
00036 { }
00037 { http:
00038 { http:
00039 { }
00040 { }
00041 { }
00042 { Zeos Development Group. }
00043 {********************************************************@}
00044
00045 unit ZPlainASADriver;
00046
00047 interface
00048
00049 {$I ZPlain.inc}
00050
00051 uses Classes, ZClasses, ZCompatibility, ZPlainDriver;
00052
00053 {***************** Plain API Constants definition ****************}
00054
00055 const
00056
00057
00058
00059 SQLE_NOERROR = 0;
00060 SQLE_NOTFOUND = 100;
00061 SQLE_TRUNCATED = 101;
00062 SQLE_TEMPORARY_TABLE = 102;
00063 SQLE_CANNOT_CONVERT = 103;
00064 SQLE_ROW_UPDATED_WARNING = 104;
00065 SQLE_PROCEDURE_COMPLETE = 105;
00066 SQLE_COLUMN_VALUE_CHANGED = 106;
00067 SQLE_SYNTAX_EXTENSION_WARNING = 107;
00068 SQLE_CURSOR_OPERATION_CONFLICT = 108;
00069 SQLE_NULL_VALUE_ELIMINATED = 109;
00070 SQLE_BACKUP_PAGE_INCOMPLETE = 110;
00071 SQLE_CANNOT_EXECUTE_STMT = 111;
00072 SQLE_MORE_INFO = 112;
00073 SQLE_INVALID_OPTION_ON_CONNECT = 113;
00074 SQLE_CANNOT_PERFORM_CHAR_TRANSLATION = 114;
00075 SQLE_UNSUPPORTED_CHARACTER_SET_WARNING = 115;
00076 SQLE_UNSUPPORTED_LANGUAGE = 116;
00077 SQLE_UNSUPPORTED_CHARSET_AND_LANGUAGE = 117;
00078 SQLE_INVALID_USER_ESTIMATE = 118;
00079 SQLE_UNABLE_TO_OPEN_BACKUP_LOG = 119;
00080 SQLE_UNKNOWN_OPTION = 120;
00081 SQLE_CURSOR_OPTIONS_CHANGED = 121;
00082 SQLE_DATABASE_NEW = 123;
00083 SQLE_CANNOT_CONVERT_LOAD_TABLE = 124;
00084 SQLE_INPUT_ILLEGAL_MULTIBYTE_WARNING = 125;
00085 SQLE_OUTPUT_ILLEGAL_MULTIBYTE_WARNING = 126;
00086 SQLE_INPUT_SIMPLE_SUBSTITUTION_WARNING = 127;
00087 SQLE_OUTPUT_SIMPLE_SUBSTITUTION_WARNING = 128;
00088 SQLE_ROW_DROPPED_DURING_SCHEMA_UPGRADE = 130;
00089 SQLE_CANNOT_DUMP_STRING_HISTOGRAM = 132;
00090 SQLE_COMPRESSING_ENCRYPTED_DB = 135;
00091 SQLE_WARNING = 200;
00092
00093
00094
00095 SQLE_NO_DATABASE_FILE = -72;
00096 SQLE_COMMUNICATIONS_UNDERFLOW = -73;
00097 SQLE_DATABASE_NOT_ACTIVE = -74;
00098 SQLE_START_STOP_DATABASE_DENIED = -75;
00099 SQLE_REQUEST_DENIED_NO_DATABASES = -76;
00100 SQLE_ALIAS_CLASH = -77;
00101 SQLE_DYNAMIC_MEMORY_EXHAUSTED = -78;
00102 SQLE_INVALID_LOCAL_OPTION = -79;
00103 SQLE_UNABLE_TO_START_ENGINE = -80;
00104 SQLE_INVALID_COMMAND_LINE = -81;
00105 SQLE_UNABLE_TO_START_DATABASE = -82;
00106 SQLE_DATABASE_NOT_FOUND = -83;
00107 SQLE_INVALID_DATABASE = -84;
00108 SQLE_COMMUNICATIONS_ERROR = -85;
00109 SQLE_NO_MEMORY = -86;
00110 SQLE_DATABASE_NAME_REQUIRED = -87;
00111 SQLE_PROTOCOL_MISMATCH = -88;
00112 SQLE_ENGINE_NOT_MULTIUSER = -89;
00113 SQLE_ARGUMENT_CANNOT_BE_NULL = -90;
00114 SQLE_UNHANDLED_JAVA_EXCEPTION = -91;
00115 SQLE_BAD_CLASS_FILE = -92;
00116 SQLE_FIELD_NOT_FOUND = -93;
00117 SQLE_INVALID_FIELD_REFERENCE = -94;
00118 SQLE_INVALID_PARSE_PARAMETER = -95;
00119 SQLE_ENGINE_ALREADY_RUNNING = -96;
00120 SQLE_PAGE_SIZE_TOO_BIG = -97;
00121 SQLE_AUTHENTICATION_VIOLATION = -98;
00122 SQLE_CONNECTIONS_DISABLED = -99;
00123 SQLE_ENGINE_NOT_RUNNING = -100;
00124 SQLE_NOT_CONNECTED = -101;
00125 SQLE_TOO_MANY_CONNECTIONS = -102;
00126 SQLE_INVALID_LOGON = -103;
00127 SQLE_INVALID_PASSWORD = -103;
00128 SQLE_INVALID_MODULE_LOGON = -104;
00129 SQLE_UNABLE_TO_CONNECT = -105;
00130 SQLE_CANNOT_OPEN_LOG = -106;
00131 SQLE_ERROR_WRITING_LOG = -107;
00132 SQLE_CONNECTION_NOT_FOUND = -108;
00133 SQLE_STILL_ACTIVE_CONNECTIONS = -109;
00134 SQLE_NAME_NOT_UNIQUE = -110;
00135 SQLE_INDEX_NAME_NOT_UNIQUE = -111;
00136 SQLE_EXISTING_PRIMARY_KEY = -112;
00137 SQLE_INVALID_FOREIGN_KEY_DEF = -113;
00138 SQLE_VIEW_DEFINITION_ERROR = -114;
00139 SQLE_MUST_DROP_INDEX = -115;
00140 SQLE_TABLE_MUST_BE_EMPTY = -116;
00141 SQLE_PRIMARY_KEY_REFERENCED = -117;
00142 SQLE_NO_PRIMARY_KEY = -118;
00143 SQLE_PRIMARY_KEY_COLUMN_DEFINED = -119;
00144 SQLE_ALREADY_HAS_GRANT_PERMS = -120;
00145 SQLE_PERMISSION_DENIED = -121;
00146 SQLE_GROUP_CYCLE = -122;
00147 SQLE_NOT_A_GROUP = -123;
00148 SQLE_TOO_MANY_COLUMNS_DELETED = -124;
00149 SQLE_ALTER_CLAUSE_CONFLICT = -125;
00150 SQLE_PRIMARY_KEY_TWICE = -126;
00151 SQLE_COLUMN_IN_INDEX = -127;
00152 SQLE_USER_OWNS_TABLES = -128;
00153 SQLE_INVALID_STATEMENT = -130;
00154 SQLE_SYNTAX_ERROR = -131;
00155 SQLE_STATEMENT_ERROR = -132;
00156 SQLE_INVALID_STATEMENT_TYPE = -133;
00157 SQLE_NOT_IMPLEMENTED = -134;
00158 SQLE_LANGUAGE_EXTENSION = -135;
00159 SQLE_OUTER_JOIN_CYCLE = -136;
00160 SQLE_CORRELATION_NAME_NEEDED = -137;
00161 SQLE_DBSPACE_NOT_FOUND = -138;
00162 SQLE_CORRELATION_NAME_AMBIGUOUS = -139;
00163 SQLE_UNKNOWN_USERID = -140;
00164 SQLE_TABLE_NOT_FOUND = -141;
00165 SQLE_CORRELATION_NAME_NOT_FOUND = -142;
00166 SQLE_COLUMN_NOT_FOUND = -143;
00167 SQLE_COLUMN_AMBIGUOUS = -144;
00168 SQLE_FOREIGN_KEY_NAME_NOT_FOUND = -145;
00169 SQLE_CANNOT_JOIN = -146;
00170 SQLE_AMBIGUOUS_JOIN = -147;
00171 SQLE_UNKNOWN_FUNC = -148;
00172 SQLE_INVALID_GROUP_SELECT = -149;
00173 SQLE_AGGREGATES_NOT_ALLOWED = -150;
00174 SQLE_SUBQUERY_SELECT_LIST = -151;
00175 SQLE_INVALID_ORDER = -152;
00176 SQLE_INVALID_UNION = -153;
00177 SQLE_WRONG_PARAMETER_COUNT = -154;
00178 SQLE_VARIABLE_INVALID = -155;
00179 SQLE_EXPRESSION_ERROR = -156;
00180 SQLE_CONVERSION_ERROR = -157;
00181 SQLE_OVERFLOW_ERROR = -158;
00182 SQLE_INVALID_COLUMN_NUMBER = -159;
00183 SQLE_DESCRIBE_NONSELECT = -160;
00184 SQLE_INVALID_DESCRIBE_TYPE = -161;
00185 SQLE_CANNOT_OUTER_JOIN = -162;
00186 SQLE_NO_COLUMN_NAME = -163;
00187 SQLE_NAMESPACE_HEAP_EXHAUSTED = -164;
00188 SQLE_JAVA_VM_HEAP_EXHAUSTED = -165;
00189 SQLE_CURSOR_NOT_DECLARED = -170;
00190 SQLE_OPEN_CURSOR_ERROR = -171;
00191 SQLE_CURSOR_ALREADY_OPEN = -172;
00192 SQLE_CURSOR_NOT_OPEN = -180;
00193 SQLE_NO_INDICATOR = -181;
00194 SQLE_SQLDA_TOO_SMALL = -182;
00195 SQLE_INDEX_NOT_FOUND = -183;
00196 SQLE_PUT_CURSOR_ERROR = -184;
00197 SQLE_TOO_MANY_RECORDS = -185;
00198 SQLE_SUBQUERY_RESULT_NOT_UNIQUE = -186;
00199 SQLE_CURSOROP_NOT_ALLOWED = -187;
00200 SQLE_NOT_ENOUGH_HOST_VARS = -188;
00201 SQLE_NOT_FOUND_IN_INDEX = -189;
00202 SQLE_NON_UPDATEABLE_COLUMN = -190;
00203 SQLE_CANNOT_MODIFY = -191;
00204 SQLE_NON_UPDATEABLE_VIEW = -192;
00205 SQLE_PRIMARY_KEY_NOT_UNIQUE = -193;
00206 SQLE_INVALID_FOREIGN_KEY = -194;
00207 SQLE_COLUMN_CANNOT_BE_NULL = -195;
00208 SQLE_INDEX_NOT_UNIQUE = -196;
00209 SQLE_NO_CURRENT_ROW = -197;
00210 SQLE_PRIMARY_KEY_VALUE_REF = -198;
00211 SQLE_ONLY_ONE_TABLE = -199;
00212 SQLE_INVALID_OPTION = -200;
00213 SQLE_INVALID_OPTION_SETTING = -201;
00214 SQLE_NOT_PUBLIC_ID = -202;
00215 SQLE_TEMPORARY_NOT_ALLOWED = -203;
00216 SQLE_OPTION_REQUIRES_DBA = -204;
00217 SQLE_INVALID_STANDARD_LOGON = -205;
00218 SQLE_INVALID_INTEGRATED_LOGON = -206;
00219 SQLE_WRONG_NUM_OF_INSERT_COLS = -207;
00220 SQLE_ROW_UPDATED_SINCE_READ = -208;
00221 SQLE_INVALID_COLUMN_VALUE = -209;
00222 SQLE_LOCKED = -210;
00223 SQLE_MUST_BE_ONLY_CONNECTION = -211;
00224 SQLE_CHECKPOINT_REQUIRES_UNDO = -212;
00225 SQLE_SUBTRANS_REQUIRE_UNDO = -213;
00226 SQLE_TABLE_IN_USE = -214;
00227 SQLE_PROCEDURE_IN_USE = -215;
00228 SQLE_OPTION_IS_TEMP_ONLY = -216;
00229 SQLE_OPTION_IN_PROCEDURE = -217;
00230 SQLE_AUTHENTICATION_FAILED = -218;
00231 SQLE_SQLE_SUBTRANS_NOTFOUND = -220;
00232 SQLE_ROLLBACK_NOT_ALLOWED = -221;
00233 SQLE_RESULT_NOT_ALLOWED = -222;
00234 SQLE_PP_DBLIB_MISMATCH = -230;
00235 SQLE_DBLIB_ENGINE_MISMATCH = -231;
00236 SQLE_SERVER_ENGINE_MISMATCH = -232;
00237 SQLE_UNKNOWN_BACKUP_OPERATION = -240;
00238 SQLE_BACKUP_NOT_STARTED = -241;
00239 SQLE_BACKUP_CANNOT_RENAME_LOG_YET = -242;
00240 SQLE_BACKUP_UNABLE_TO_DELETE_FILE = -243;
00241 SQLE_LOG_TRUNCATED = -244;
00242 SQLE_INTEGRATED_LOGON_FAILED = -245;
00243 SQLE_INTEGRATED_LOGON_UNSUPPORTED = -246;
00244 SQLE_INTEGRATED_LOGON_GUESTMAP = -247;
00245 SQLE_INTEGRATED_LOGON_SYSMAP = -248;
00246 SQLE_INTEGRATED_LOGON_MAPPED = -249;
00247 SQLE_IDENTIFIER_TOO_LONG = -250;
00248 SQLE_DUPLICATE_FOREIGN_KEY = -251;
00249 SQLE_PRIMARY_KEY_MULTI_ROW_UPDATE = -252;
00250 SQLE_PRIMARY_KEY_CURSOR_UPDATE = -253;
00251 SQLE_DELETE_SUBQUERY_SAME_TABLE = -254;
00252 SQLE_CURSOR_DELETE_SELF_REF = -255;
00253 SQLE_INSERT_SELF_REFERENCING = -256;
00254 SQLE_VARIABLE_NOT_FOUND = -260;
00255 SQLE_VARIABLE_EXISTS = -261;
00256 SQLE_LABEL_NOT_FOUND = -262;
00257 SQLE_INVALID_FETCH_POSITION = -263;
00258 SQLE_WRONG_NUM_OF_FETCH_VARIABLES = -264;
00259 SQLE_PROCEDURE_NOT_FOUND = -265;
00260 SQLE_OLD_DBINIT = -266;
00261 SQLE_ATOMIC_OPERATION = -267;
00262 SQLE_TRIGGER_NOT_FOUND = -268;
00263 SQLE_COLUMN_IN_TRIGGER = -269;
00264 SQLE_USER_OWNS_PROCEDURES = -270;
00265 SQLE_TRIGGER_DEFN_CONFLICT = -271;
00266 SQLE_INVALID_TRIGGER_COL_REFS = -272;
00267 SQLE_INVALID_TRIGGER_STATEMENT = -273;
00268 SQLE_NESTING_TOO_DEEP = -274;
00269 SQLE_PROCEDURES_NOT_IN_DESKTOP = -275;
00270 SQLE_PUBLICATION_NOT_FOUND = -280;
00271 SQLE_TABLE_HAS_PUBLICATIONS = -281;
00272 SQLE_SUBSCRIPTION_NOT_UNIQUE = -282;
00273 SQLE_SUBSCRIPTION_NOT_FOUND = -283;
00274 SQLE_ONLY_ONE_PUBLISHER = -284;
00275 SQLE_NOT_REMOTE_USER = -285;
00276 SQLE_NOT_REMOTE_TYPE = -286;
00277 SQLE_PASSTHROUGH_INCONSISTENT = -287;
00278 SQLE_REMOTE_STATEMENT_FAILED = -288;
00279 SQLE_CONSOLIDATED_USER_ALREADY_EXISTS = -289;
00280 SQLE_INVALID_FORMAT_STRING_ARG_NUM = -294;
00281 SQLE_CANNOT_UNIQUELY_IDENTIFY_ROWS = -295;
00282 SQLE_ERROR_NUMBER_OUT_OF_RANGE = -296;
00283 SQLE_USER_DEFINED_EXCEPTION = -297;
00284 SQLE_DOUBLE_REQUEST = -298;
00285 SQLE_INTERRUPTED = -299;
00286 SQLE_ERROR = -300;
00287 SQLE_DATABASE_ERROR = -301;
00288 SQLE_TERMINATED_BY_USER = -302;
00289 SQLE_DISK_WRITE_FAILED = -303;
00290 SQLE_DEVICE_FULL = -304;
00291 SQLE_DEVICE_ERROR = -305;
00292 SQLE_DEADLOCK = -306;
00293 SQLE_THREAD_DEADLOCK = -307;
00294 SQLE_CONNECTION_TERMINATED = -308;
00295 SQLE_MEMORY_ERROR = -309;
00296 SQLE_BEYOND_EOF = -310;
00297 SQLE_LOG_CORRUPTED = -311;
00298 SQLE_ALREADY_HAS_GROUP_MEMBERSHIP = -312;
00299 SQLE_INTEGRATED_LOGON_UNMAPPED = -313;
00300 SQLE_HLI_BAD_SYNTAX = -400;
00301 SQLE_HLI_BAD_CURSOR = -401;
00302 SQLE_HLI_BAD_STATEMENT = -402;
00303 SQLE_HLI_BAD_HOST_VAR_NAME = -403;
00304 SQLE_HLI_BAD_HOST_VAR_VALUE = -404;
00305 SQLE_HLI_BAD_CALLBACK = -405;
00306 SQLE_HLI_INTERNAL = -406;
00307 SQLE_HLI_BAD_ARGUMENT = -407;
00308 SQLE_PHANTOM = -501;
00309 SQLE_UNBLOCKED = -502;
00310 SQLE_PREEMPTED = -503;
00311 SQLE_RETRY = -504;
00312 SQLE_UNSUPPORTED_LOAD_FORMAT = -601;
00313 SQLE_CANNOT_ACCESS_FILE = -602;
00314 SQLE_COLUMN_VALUE_TOO_LONG = -603;
00315 SQLE_DBSPACE_FULL = -604;
00316 SQLE_ACCESS_BEYOND_END_OF_MAX_DBSPACE = -605;
00317 SQLE_PATTERN_TOO_LONG = -606;
00318 SQLE_CANNOT_STOP_SERVER = -607;
00319 SQLE_INVALID_TEXTPTR_VALUE = -608;
00320 SQLE_INVALID_TEXT_IMAGE_DATATYPE = -609;
00321 SQLE_MESSAGE_ALREADY_EXISTS = -610;
00322 SQLE_TSQL_FEATURE_NOT_SUPPORTED = -611;
00323 SQLE_MESSAGE_NOT_FOUND = -612;
00324 SQLE_USER_TYPE_NOT_FOUND = -613;
00325 SQLE_USER_OWNS_MESSAGES_OR_DATATYPES = -614;
00326 SQLE_INVALID_PARAMETER_NAME = -615;
00327 SQLE_TOO_MANY_COLUMNS_IN_TABLE = -616;
00328 SQLE_EXTERNAL_CALLS_NOT_SUPPORTED = -617;
00329 SQLE_EXTERNAL_PLATFORM_FAILURE = -618;
00330 SQLE_REQUIRE_DLL_NAME = -619;
00331 SQLE_COULD_NOT_LOAD_LIBRARY = -620;
00332 SQLE_COULD_NOT_FIND_FUNCTION = -621;
00333 SQLE_ERROR_CALLING_FUNCTION = -622;
00334 SQLE_DDL_NOT_ALLOWED_IN_PROCEDURES = -623;
00335 SQLE_DATATYPE_NOT_ALLOWED = -624;
00336 SQLE_TOO_MANY_PARAMETERS = -625;
00337 SQLE_THREAD_START_FAILURE = -626;
00338 SQLE_INVALID_SYNTAX_EXTENSION = -627;
00339 SQLE_DIV_ZERO_ERROR = -628;
00340 SQLE_INVALID_ESCAPE_CHAR = -629;
00341 SQLE_INVALID_ESCAPE_SEQ = -630;
00342 SQLE_RAISERROR_STMT = -631;
00343 SQLE_WITH_CHECK_OPTION_VIOLATION = -632;
00344 SQLE_READ_ONLY_CURSOR = -633;
00345 SQLE_UNTERMINATED_C_STR = -634;
00346 SQLE_NO_COLUMN_PERMS_FOR_VIEWS = -635;
00347 SQLE_DUPLICATE_REFERENCING_COLUMN = -636;
00348 SQLE_DUPLICATE_INSERT_COLUMN = -637;
00349 SQLE_STRING_RIGHT_TRUNCATION = -638;
00350 SQLE_PARAMETER_NAME_MISSING = -639;
00351 SQLE_INVALID_DESCRIPTOR_INDEX = -640;
00352 SQLE_ERROR_IN_ASSIGNMENT = -641;
00353 SQLE_INVALID_DESCRIPTOR_NAME = -642;
00354 SQLE_CANNOT_UNLOAD_A_VIEW = -643;
00355 SQLE_PAGE_SIZE_INVALID = -644;
00356 SQLE_DATABASE_NOT_CREATED = -645;
00357 SQLE_STORE_NOT_LOADED = -646;
00358 SQLE_STORE_ENTRY_NOT_FOUND = -647;
00359 SQLE_INVALID_DBSPACE_FOR_CREATE = -648;
00360 SQLE_FIELD_CANNOT_BE_NULL = -649;
00361 SQLE_INVALID_INDEX_TYPE = -650;
00362 SQLE_DROP_DATABASE_FAILED = -651;
00363 SQLE_CANNOT_DECOMPRESS_CLASS = -652;
00364 SQLE_CLASS_MEMBER_OF_JAR = -653;
00365 SQLE_NO_PROFILE_FILE = -654;
00366 SQLE_GEN_PARSE_ERROR = -655;
00367 SQLE_OMNI_CONNECT_ERROR = -656;
00368 SQLE_OMNI_NO_RMT_OBJ = -657;
00369 SQLE_OMNI_READONLY = -658;
00370 SQLE_OMNI_SERVER_NOT_FOUND = -659;
00371 SQLE_OMNI_REMOTE_ERROR = -660;
00372 SQLE_OMNI_BACKWARDS_CURSOR = -661;
00373 SQLE_JAVA_SERIALIZATION_ERROR = -662;
00374 SQLE_JAVA_DESERIALIZATION_ERROR = -663;
00375 SQLE_DATABASE_ACTIVE = -664;
00376 SQLE_DATABASE_NEEDS_RECOVERY = -665;
00377 SQLE_OMNI_RMT_TABLE_NOTFOUND = -666;
00378 SQLE_OMNI_RMT_COLUMNS_NOTFOUND = -667;
00379 SQLE_NO_SCROLL_CURSOR = -668;
00380 SQLE_METHOD_CANNOT_BE_CALLED = -669;
00381 SQLE_BAD_CLASS_BYTE_CODE = -670;
00382 SQLE_PARAM_NOT_REGISTERED = -671;
00383 SQLE_DATABASE_UPGRADE_FAILED = -672;
00384 SQLE_DATABASE_UPGRADE_NOT_POSSIBLE = -673;
00385 SQLE_INVALID_CURSOR_RANGE = -674;
00386 SQLE_JAVA_VM_NOT_STARTED = -675;
00387 SQLE_INVALID_TRANSACTION_ISOLATION = -676;
00388 SQLE_TABLE_HAS_REFACTION = -677;
00389 SQLE_AMBIGUOUS_INDEX_NAME = -678;
00390 SQLE_OMNI_MEMORY_CONFIG = -679;
00391 SQLE_INVALID_TSQL_OJ_EXPRESSION = -680;
00392 SQLE_INVALID_TSQL_JOIN_TYPE = -681;
00393 SQLE_OMNI_DEBUG = -682;
00394 SQLE_DUPLICATE_CURSOR_NAME = -683;
00395 SQLE_ROLLBACK_ON_PREFETCH = -684;
00396 SQLE_RESOURCE_GOVERNOR_EXCEEDED = -685;
00397 SQLE_JAVA_VM_INSUFFICIENT_CACHE = -686;
00398 SQLE_IQ_PATH_SYNTAX_ERROR = -687;
00399 SQLE_NO_ENCRYPTION_IN_RUNTIME = -688;
00400 SQLE_BAD_PARAM_INDEX = -689;
00401 SQLE_RETVAL_CANNOT_BE_SET = -690;
00402 SQLE_BACKUP_NOT_LOADED = -691;
00403 SQLE_BACKUP_ENTRY_NOT_FOUND = -692;
00404 SQLE_UNSUPPORTED_JDBC_FEATURE = -693;
00405 SQLE_CANNOT_CHANGE_OPENED_STATEMENT = -694;
00406 SQLE_JDBC_OBJ_INTERNAL_ERR = -695;
00407 SQLE_JDBC_OBJ_CLOSED = -696;
00408 SQLE_BACKUP_ERROR = -697;
00409 SQLE_OMNI_AUTOINC_NOT_SUPPORTED = -698;
00410 SQLE_CANNOT_UPDATE_FINAL_FIELD = -699;
00411 SQLE_SQLDA_INCONSISTENT = -700;
00412 SQLE_CANNOT_ACCESS_INSTANCE_MEMBER = -701;
00413 SQLE_CANNOT_TRUNCATE_VIEW = -702;
00414 SQLE_COMPUTED_COLUMN_WRITE_ATTEMPTED = -703;
00415 SQLE_CANNOT_INDEX_ON_JAVA_CLASS = -704;
00416 SQLE_PROCEDURE_RETURNS_VOID = -705;
00417 SQLE_OMNI_SERVER_NOT_CAPABLE = -706;
00418 SQLE_STMT_NOT_ALLOWED_IN_PASSTHROUGH = -707;
00419 SQLE_TEXT_OPERATION_ON_VIEW = -708;
00420 SQLE_COMPUTED_COLUMNS_NOT_SUPPORTED = -709;
00421 SQLE_INVALID_COMPARISON = -710;
00422 SQLE_STORE_VERSION_MISMATCH = -711;
00423 SQLE_OMNI_EXTLOGIN_NOT_FOUND = -712;
00424 SQLE_JNAT_OBJ_INTERNAL_ERR = -713;
00425 SQLE_JNAT_OBJ_CLOSED = -714;
00426 SQLE_RESTORE_INCONSISTENT = -715;
00427 SQLE_RESTORE_INVALID_FORMAT = -716;
00428 SQLE_RESTORE_UNABLE_TO_OPEN = -717;
00429 SQLE_RESTORE_UNABLE_TO_WRITE = -718;
00430 SQLE_RESTORE_UNABLE_TO_START = -719;
00431 SQLE_CANNOT_VALIDATE_OBJECT = -720;
00432 SQLE_OMNI_DATATYPE_MISMATCH = -721;
00433 SQLE_OMNI_NOSUCH_COLUMN = -722;
00434 SQLE_OMNI_LENGTH_MISMATCH = -723;
00435 SQLE_OMNI_NULL_MISMATCH = -724;
00436 SQLE_OMNI_IDENTITY_MISMATCH = -725;
00437 SQLE_OMNI_RMT_TABLE_NOTUNIQUE = -726;
00438 SQLE_CANNOT_OPTIMIZE_QUERY = -727;
00439 SQLE_NON_UPDATEABLE_EXT_TAB = -728;
00440 SQLE_UNENFORCEABLE_FOREIGN_KEY = -729;
00441 SQLE_BAD_JAR_FILE = -730;
00442 SQLE_USER_OWNS_REPLICATED_OBJECTS = -731;
00443 SQLE_OMNI_COMPUTED_NOT_SUPPORTED = -732;
00444 SQLE_TOO_MANY_NULL_COLUMNS = -733;
00445 SQLE_CANNOT_UPDATE_NULL_ROW = -734;
00446 SQLE_INVALID_PARAMETER = -735;
00447 SQLE_OMNI_UNSUPPORTED_DATATYPE = -736;
00448 SQLE_SIGNATURE_MISMATCH = -737;
00449 SQLE_PASSWORD_TOO_SHORT = -738;
00450 SQLE_DB_INIT_NOT_CALLED = -739;
00451 SQLE_FAILED_TO_CREATE_STREAMS_ENV = -740;
00452 SQLE_NOTA_WRITE_FILE = -741;
00453 SQLE_JDBC_BATCH_EXECUTE_ABANDONED = -742;
00454 SQLE_JDBC_RESULTSET_SEEK_ABSOLUTE_ZERO = -743;
00455 SQLE_IQ_INVALID_COMMAND_LINE = -744;
00456 SQLE_IQ_MEMORY_MANAGER_FAILED = -745;
00457 SQLE_IQ_SYSTEM_V_FAILURE = -746;
00458 SQLE_JDBC_INVALID_RESULTSET_TYPE = -747;
00459 SQLE_JDBC_INVALID_RESULTSET_CONCURRENCY = -748;
00460 SQLE_NOT_SUPPORTED_IN_ULTRALITE = -749;
00461 SQLE_USER_OWNS_PROCEDURES_IN_USE = -750;
00462 SQLE_USER_OWNS_TABLES_IN_USE = -751;
00463 SQLE_JDBC_INVALID_OPER_ON_INSERT_ROW = -752;
00464 SQLE_JDBC_MUST_OPER_ON_INSERT_ROW = -753;
00465 SQLE_INVALID_DSN_NAME = -754;
00466 SQLE_UNCOMMITTED_TRANSACTIONS = -755;
00467 SQLE_JDBC_TBL_COL_NOT_FOUND_IN_RESULTSET = -756;
00468 SQLE_READ_ONLY_DATABASE = -757;
00469 SQLE_NO_JAVA_SUPPORT = -758;
00470 SQLE_SQLDA_INVALID_DATATYPE = -759;
00471 SQLE_INVALID_SQL_IDENTIFIER = -760;
00472 SQLE_CAPABILITY_NOT_FOUND = -761;
00473 SQLE_NON_PUBLIC_JAVA_CLASS = -762;
00474 SQLE_UNKNOWN_JAVA_REF = -763;
00475 SQLE_UNABLE_TO_CONNECT_OR_START = -764;
00476 SQLE_NOT_SYNC_TYPE = -765;
00477 SQLE_VIEW_OVER_TEMP_OBJECT = -766;
00478 SQLE_SYNCHRONIZATION_NOT_FOUND = -767;
00479 SQLE_CANNOT_SUBSCRIBE = -768;
00480 SQLE_CANNOT_MODIFY_SYNC_AS_PUB = -769;
00481 SQLE_CANNOT_MODIFY_PUB_AS_SYNC = -770;
00482 SQLE_EVENT_NOT_FOUND = -771;
00483 SQLE_EVENT_ALREADY_EXISTS = -772;
00484 SQLE_SCHEDULE_NOT_FOUND = -773;
00485 SQLE_SCHEDULE_ALREADY_EXISTS = -774;
00486 SQLE_CANNOT_SYNC_TABLE_WITHOUT_PK = -777;
00487 SQLE_PK_NOT_IN_SYNC_ARTICLE = -778;
00488 SQLE_BLOB_IN_SYNC_TABLE_PK = -779;
00489 SQLE_ARTICLE_PK_CANNOT_BE_UPDATED = -780;
00490 SQLE_SAME_EXCLUSIVE_APP_RUNNING = -782;
00491 SQLE_SAME_APP_RUNNING = -783;
00492 SQLE_CANNOT_REG_CONN = -784;
00493 SQLE_DEREG_APP_NOT_FOUND = -785;
00494 SQLE_DEREG_APP_IN_USE = -786;
00495 SQLE_CONN_ALREADY_REGISTERED = -787;
00496 SQLE_NOT_UNIQUE_CONN_REG_LABEL = -788;
00497 SQLE_APP_REG_COOKIE_EXHAUSTED = -789;
00498 SQLE_CONN_REG_AUTO_LABEL_EXHAUSTED = -790;
00499 SQLE_INVALID_EVENT_DAY = -791;
00500 SQLE_INVALID_EVENT_TIME = -792;
00501 SQLE_INVALID_EVENT_START = -793;
00502 SQLE_UPLOAD_FAILED_AT_SERVER = -794;
00503 SQLE_SYNC_TEMPLATE_NOT_FOUND = -795;
00504 SQLE_SYNC_SITE_NOT_UNIQUE = -796;
00505 SQLE_BAD_SYNC_OPTION_VALUE = -797;
00506 SQLE_DTC_TRANSACTIONS_NOT_SUPPORTED = -799;
00507 SQLE_CANNOT_COMMIT_OR_ROLLBACK_WHILE_ENLISTED = -800;
00508 SQLE_CANNOT_ENLIST_WHILE_ALREADY_ENLISTED = -801;
00509 SQLE_CANNOT_ENLIST_WITH_UNCOMMITTED_DATA = -802;
00510 SQLE_FAILED_TO_ENLIST = -803;
00511 SQLE_FAILED_TO_REENLIST = -804;
00512 SQLE_SYNC_OPTION_NOT_FOUND = -805;
00513 SQLE_EVENT_TYPE_NOT_FOUND = -806;
00514 SQLE_HOSTVARS_IN_BATCH = -807;
00515 SQLE_TEST_HARNESS = -808;
00516 SQLE_SYNC_OPTION_TOO_LONG = -809;
00517 SQLE_JAVA_CLASS_NOT_FOUND = -810;
00518 SQLE_JAR_NOT_FOUND = -811;
00519 SQLE_NO_MATCHING_SELECT_ITEM = -812;
00520 SQLE_NON_UPDATEABLE_CURSOR = -813;
00521 SQLE_CANNOT_UPDATE_ORDER_BY_COLUMN = -814;
00522 SQLE_UPDATE_NOT_IN_SELECT = -815;
00523 SQLE_FILE_IN_USE = -816;
00524 SQLE_TOO_MANY_TEMP_TABLES = -817;
00525 SQLE_INCOMPATIBLE_EXTERNAL_CALL = -818;
00526 SQLE_SYNC_CONTAINS_TABLE = -819;
00527 SQLE_INVALID_POSITION = -820;
00528 SQLE_DBSPACE_FOR_TABLE_UNAVAILABLE = -821;
00529 SQLE_TABLE_ALREADY_INCLUDED = -822;
00530 SQLE_OMNI_EXPRESSION_IN_PROC = -823;
00531 SQLE_INVALID_CORRELATION_NAME_REFERENCE = -824;
00532 SQLE_PREVIOUS_ERROR_LOST = -825;
00533 SQLE_DBO_DOES_NOT_OWN_ROWGENERATOR = -826;
00534 SQLE_USER_TABLES_IN_SYSTEM_RANGE = -827;
00535 SQLE_RECORDING_CONFLICT_DETECTED = -828;
00536 SQLE_CERTICOM_HANDSHAKE_FAILED = -829;
00537 SQLE_ALIAS_NOT_UNIQUE = -830;
00538 SQLE_ALIAS_NOT_YET_DEFINED = -831;
00539 SQLE_CONNECTION_ERROR = -832;
00540 SQLE_ROW_REMODIFIED_OR_DELETED = -833;
00541 SQLE_COLUMN_NOT_FOUND_IN_TABLE = -834;
00542 SQLE_EVENT_IN_USE = -835;
00543 SQLE_PROCEDURE_NO_LONGER_VALID = -836;
00544 SQLE_TRIGGER_NO_LONGER_VALID = -837;
00545 SQLE_CERTICOM_INIT_FAILED_ON_SRV = -838;
00546 SQLE_DOWNLOAD_CONFLICT = -839;
00547 SQLE_BAD_ENCRYPTION_KEY = -840;
00548 SQLE_JDK_VERSION_MISMATCH = -841;
00549 SQLE_UNSUPPORTED_JDK = -842;
00550 SQLE_SYNC_SITE_NOT_FOUND = -843;
00551 SQLE_SYNC_DEFINITION_NOT_FOUND = -844;
00552 SQLE_INVALID_COLUMN_QUALIFICATION = -845;
00553 SQLE_INVALID_SET_CLAUSE = -846;
00554 SQLE_JAVA_SECMGR_NOT_FOUND = -847;
00555 SQLE_JAVA_SECMGR_EXCEPTION = -848;
00556 SQLE_INVALID_FOREIGN_KEY_ACTION = -849;
00557 SQLE_INVALID_FOREIGN_KEY_TABLE = -850;
00558 SQLE_DECRYPT_ERROR = -851;
00559 SQLE_AMBIGUOUS_TABLE_NAME = -852;
00560 SQLE_CURSOR_INVALID_STATE = -853;
00561 SQLE_INVALID_ORDERBY_COLUMN = -854;
00562 SQLE_AMBIGUOUS_TRIGGER_NAME = -855;
00563 SQLE_INVALID_SQLLEN = -856;
00564 SQLE_SERVER_SYNCHRONIZATION_ERROR = -857;
00565 SQLE_HISTOGRAMS_NOT_SUPPORTED_ON_OBJECT = -858;
00566 SQLE_JAVA_IN_USE = -859;
00567 SQLE_DBSPACE_NOT_CALIBRATED = -860;
00568 SQLE_MULTIPLE_AGGREGATE_COLUMNS = -861;
00569 SQLE_INVALID_AGGREGATE_PLACEMENT = -862;
00570 SQLE_INVALID_DISTINCT_AGGREGATE = -863;
00571 SQLE_INVALID_NUMBER = -864;
00572 SQLE_INVALID_FOREIGN_KEY_INDEX = -865;
00573 SQLE_CANNOT_CHANGE_USER_NAME = -867;
00574 SQLE_UNKNOWN_CHARSET = -868;
00575 SQLE_UNSUPPORTED_CHARACTER_SET_ERROR = -869;
00576 SQLE_FAILED_TO_START_CONVERTER = -870;
00577 SQLE_JAVA_DB_RESTART_NEEDED = -871;
00578 SQLE_CANNOT_JOIN_TABEXPR = -875;
00579 SQLE_CLIENT_OUT_OF_MEMORY = -876;
00580 SQLE_SETUSER_NOT_IN_PROCEDURES = -877;
00581 SQLE_CLUSTERED_INDEX_NOT_ALLOWED = -878;
00582 SQLE_INPUT_ILLEGAL_MULTIBYTE_ERROR = -879;
00583 SQLE_OUTPUT_ILLEGAL_MULTIBYTE_ERROR = -880;
00584 SQLE_INPUT_SIMPLE_SUBSTITUTION_ERROR = -881;
00585 SQLE_OUTPUT_SIMPLE_SUBSTITUTION_ERROR = -882;
00586 SQLE_CHARACTER_CONVERSION_REPORT_NOT_AVAILABLE = -883;
00587 SQLE_NONDETERMINISTIC_FUNCTION = -889;
00588 SQLE_SYNTACTIC_LIMIT = -890;
00589 SQLE_FAILED_TO_START_CONVERTER_2_CHARSETS = -891;
00590 SQLE_STMT_NOT_ALLOWED_IN_PLAN = -894;
00591 SQLE_ENCRYPT_ERROR = -895;
00592 SQLE_UNSET_PUBLIC_ID = -896;
00593 SQLE_BAD_FOR_XML_EXPLICIT_TAG = -897;
00594 SQLE_BAD_FOR_XML_EXPLICIT_DIRECTIVE = -898;
00595 SQLE_BAD_FOR_XML_EXPLICIT_COLUMN_NAME = -899;
00596 SQLE_EXPLICIT_TAG_NOT_OPEN = -900;
00597 SQLE_UNDECLARED_FOR_XML_EXPLICIT_TAG = -901;
00598 SQLE_FOR_XML_EXPLICIT_TOO_FEW_COLUMNS = -902;
00599 SQLE_FOR_XML_EXPLICIT_NAMED_CDATA = -903;
00600 SQLE_INVALID_ORDERBY_IN_AGGREGATE = -904;
00601 SQLE_INVALID_XQUERY_CONSTRUCTOR = -905;
00602 SQLE_XMLGEN_EVALUATION_FAILURE = -906;
00603 SQLE_NO_SQLX_ARGUMENT_NAME = -907;
00604 SQLE_ULTRALITE_OBJ_CLOSED = -908;
00605 SQLE_SYSTEM_COMMAND_FAILED = -910;
00606 SQLE_IQ_LOG_REQUIRED = -933;
00607 SQLE_UNABLE_TO_START_DATABASE_VER_NEWER = -934;
00608 SQLE_PASSWORD_TOO_LONG = -958;
00609 SQLE_ILLEGAL_PASSWORD = -963;
00610 SQLE_ALREADY_HAS_EXEC_PERMS = -968;
00611 SQLE_PAGE_SIZE_TOO_SMALL = -972;
00612 SQLE_STRING_PARM_TOO_LONG = -973;
00613 SQLE_INVALID_TEMP_TABLE_COMMIT_ACTION = -993;
00614 SQLE_TOO_MANY_ARGUMENTS = -994;
00615 SQLE_TEMP_SPACE_LIMIT = -1000;
00616 SQLE_FILE_NOT_DB = -1004;
00617 SQLE_FILE_WRONG_VERSION = -1005;
00618 SQLE_FILE_BAD_DB = -1006;
00619 SQLE_CORRUPT_REDO = -1007;
00620 SQLE_CORRUPT_REDO_MIRROR = -1008;
00621 SQLE_CORRUPT_REDO_OR_MIRROR = -1009;
00622 SQLE_EXPECTING_NO_REDO = -1010;
00623 SQLE_UNKNOWN_ENCRYPTION_ALGORITHM = -1011;
00624 SQLE_UPGRADE_DATABASE = -1012;
00625 SQLE_NO_DB_FOR_WRITE = -1013;
00626 SQLE_FILE_IS_COMPRESSED = -1014;
00627 SQLE_OLD_WRITE = -1015;
00628 SQLE_LOG_NEWER_THAN_DB = -1016;
00629 SQLE_LOG_NOT_FOUND = -1017;
00630 SQLE_LOG_OFFSETS_DONT_MATCH = -1018;
00631 SQLE_LOG_OLDER_THAN_DB = -1019;
00632 SQLE_LOG_TOO_SHORT = -1020;
00633
00634 {dpp_fetch}
00635 CUR_RELATIVE = 2;
00636 CUR_ABSOLUTE = 1;
00637
00638 CUR_FORUPDATE = 8;
00639 CUR_FORREGULAR = 0;
00640
00641 CUR_DONTHOLD = 1;
00642 CUR_READONLY = 2;
00643 CUR_OPEN_DECLARE = 32;
00644 CUR_DYNAMIC_SCROLL = 64;
00645 CUR_SCROLL = 128;
00646 CUR_SENSITIVE = 256;
00647 CUR_INSENSITIVE = 1024;
00648 CUR_UNIQUE = 2048;
00649 CUR_UPDATE = 4096;
00650 CUR_UPDATEBYLOCK = CUR_UPDATE + 512;
00651 CUR_UPDATEBYVALUES = CUR_UPDATEBYLOCK + 8192;
00652 CUR_UPDATEBYTIMESTAMP = CUR_UPDATE + 8192;
00653 CUR_NOSCROLL = 16384;
00654
00655 SQL_DESCRIBE_OUTPUT = 1;
00656 SQL_DESCRIBE_INPUT = 2;
00657 SQL_DESCRIBE_ALL = 3;
00658 SQL_DESCRIBE_VAR_RESULT = 8;
00659
00660 SQL_PREPARE_DESCRIBE_STMTNAME = 1;
00661 SQL_PREPARE_DESCRIBE_STMTNUM = 3;
00662 SQL_PREPARE_DESCRIBE_OUTPUT = 256;
00663 SQL_PREPARE_DESCRIBE_INPUT = 512;
00664 SQL_PREPARE_DESCRIBE_LONGNAMES= 1024;
00665 SQL_PREPARE_DESCRIBE_VARRESULT= 2048;
00666
00667 SQL_LONGNAMES_COLUMN = 1;
00668 SQL_LONGNAMES_TABLE = 3;
00669 SQL_LONGNAMES_OWNER = 7;
00670
00671
00672 DT_PROCEDURE_OUT = $8000;
00673 DT_PROCEDURE_IN = $4000;
00674 DT_UPDATEABLE = $2000;
00675 DT_DESCRIBE_INPUT = $1000;
00676 DT_AUTO_INCREMENT = $0800;
00677 DT_KEY_COLUMN = $0400;
00678 DT_HIDDEN_COLUMN = $0200;
00679 DT_HAS_USERTYPE_INFO = $0100;
00680
00681 DT_NULLS_ALLOWED = $0001;
00682
00683 {dataTypes }
00684 DT_NOTYPE = 0;
00685 DT_SMALLINT = 500;
00686 DT_INT = 496;
00687 DT_DECIMAL = 484;
00688 DT_FLOAT = 482;
00689 DT_DOUBLE = 480;
00690 DT_DATE = 384;
00691 DT_STRING = 460;
00692 DT_FIXCHAR = 452;
00693 DT_VARCHAR = 448;
00694 DT_LONGVARCHAR = 456;
00695 DT_TIME = 388;
00696 DT_TIMESTAMP = 392;
00697 DT_TIMESTAMP_STRUCT = 390;
00698 DT_BINARY = 524;
00699 DT_LONGBINARY = 528;
00700 DT_VARIABLE = 600;
00701 DT_TINYINT = 604;
00702 DT_BIGINT = 608;
00703 DT_UNSINT = 612;
00704 DT_UNSSMALLINT = 616;
00705 DT_UNSBIGINT = 620;
00706 DT_BIT = 624;
00707
00708
00709 MESSAGE_TYPE_INFO = 0;
00710 MESSAGE_TYPE_WARNING = 1;
00711 MESSAGE_TYPE_ACTION = 2;
00712 MESSAGE_TYPE_STATUS = 3;
00713
00714 type
00715 TZASASQLWARN = record
00716 sqlWarn0 : array [0..0] of char;
00717 sqlWarn1 : array [0..0] of char;
00718 sqlWarn2 : array [0..0] of char;
00719 sqlWarn3 : array [0..0] of char;
00720 sqlWarn4 : array [0..0] of char;
00721 sqlWarn5 : array [0..0] of char;
00722 sqlWarn6 : array [0..0] of char;
00723 sqlWarn7 : array [0..0] of char;
00724 sqlWarn8 : array [0..0] of char;
00725 sqlWarn9 : array [0..0] of char;
00726 end;
00727
00728 PZASASQLCA = ^TZASASQLCA;
00729 TZASASQLCA = record
00730 sqlcaID : array[0..7] of char;
00731 sqlcAbc : LongWord;
00732 sqlCode : LongInt;
00733 sqlErrml : SmallInt;
00734 sqlErrmc : array[0..69] of char;
00735 sqlErrp : array[0..7] of char;
00736 sqlErrd : array[0..5] of LongInt;
00737 sqlWarn : TZASASQLWARN;
00738 sqlState : array[0..5] of char;
00739 end;
00740
00741 PZASASQLNAME = ^TZASASQLNAME;
00742 TZASASQLNAME = record
00743 length : Word;
00744 data : array[0..29] of char;
00745 end;
00746
00747 PZASASQLSTRING = ^TZASASQLSTRING;
00748 TZASASQLSTRING = record
00749 length : Word;
00750 data : array[0..0] of char;
00751 end;
00752
00753 PZASASQLVAR = ^TZASASQLVAR;
00754 TZASASQLVAR = record
00755 sqlType: SmallInt;
00756 sqlLen : Word;
00757 sqlData: Pointer;
00758 sqlInd : PSmallInt;
00759 sqlName: TZASASQLNAME;
00760 end;
00761
00762 PASASQLDA = ^TASASQLDA;
00763 TASASQLDA = record
00764 sqldaid : array[0..7] of char;
00765 sqldabc : LongWord;
00766 sqln : Word;
00767 sqld : Word;
00768 sqlVar : array[0..32767] of TZASASQLVAR;
00769 end;
00770
00771 PZASASQLDateTime = ^TZASASQLDateTime;
00772 TZASASQLDateTime = packed record
00773 Year : SmallInt;
00774 Month : Byte;
00775 Day_of_Week : Byte;
00776 Day_of_Year : SmallInt;
00777 Day : Byte;
00778 Hour : Byte;
00779 Minute : Byte;
00780 Second : Byte;
00781 MicroSecond : LongInt;
00782 end;
00783
00784 PZASABlobStruct = ^TZASABlobStruct;
00785 TZASABlobStruct = record
00786 array_len : Longword;
00787 stored_len : Longword;
00788 untrunc_len : Longword;
00789 arr : array[0..0] of char;
00790 end;
00791
00792 ZASA_db_callback_index = (
00793 DB_CALLBACK_START,
00794 DB_CALLBACK_WAIT,
00795 DB_CALLBACK_FINISH,
00796 DB_CALLBACK_ASYNC_RESPONSE,
00797 DB_CALLBACK_TRANSLATE_IN,
00798 DB_CALLBACK_TRANSLATE_OUT,
00799 DB_CALLBACK_UNKNOWN_EVENT,
00800 DB_CALLBACK_MESSAGE,
00801 DB_CALLBACK_CONN_DROPPED,
00802 DB_CALLBACK_DEBUG_MESSAGE,
00803 DB_MAX_CALLBACK
00804 );
00805
00806 TZASASQLCallback = procedure() {$IFNDEF LINUX} stdcall {$ELSE} cdecl {$ENDIF};
00807
00808 {** Represents a generic interface to ASA native API. }
00809 IZASAPlainDriver = interface (IZPlainDriver)
00810 ['{86AFDDD6-D401-4A30-B3BE-4AC5095E13F0}']
00811
00812 function sqlerror_message( sqlca: PZASASQLCA; Buffer: PChar;
00813 MaxSize: Integer): PChar;
00814 function db_init( sqlca: PZASASQLCA): Integer;
00815 function db_fini( sqlca: PZASASQLCA): Integer;
00816 function db_string_connect( sqlca: PZASASQLCA; Params: PChar): Integer;
00817 function db_string_disconnect( sqlca: PZASASQLCA; Params: PChar): LongWord;
00818 function db_find_engine( sqlca: PZASASQLCA; Params: PChar): Word;
00819 function db_start_engine( sqlca: PZASASQLCA; Params: PChar): LongWord;
00820 function db_stop_engine( sqlca: PZASASQLCA; Params: PChar): LongWord;
00821 function db_start_database( sqlca: PZASASQLCA; Params: PChar): LongWord;
00822 function db_stop_database( sqlca: PZASASQLCA; Params: PChar): LongWord;
00823
00824 function db_alloc_sqlda( NumVar: LongWord): PASASQLDA;
00825 function db_fill_sqlda( Parameter: PASASQLDA): PASASQLDA;
00826 function db_fill_s_sqlda( Parameter: PASASQLDA; MaxLength: Integer):
00827 PASASQLDA;
00828 procedure db_free_sqlda( Parameter: PASASQLDA);
00829 procedure db_free_sqlda_noind( Parameter: PASASQLDA);
00830 procedure db_free_filled_sqlda( Parameter: PASASQLDA);
00831
00832 procedure db_setconnect( sqlca: PZASASQLCA; ConnStr: PChar);
00833 procedure db_disconnect( sqlca: PZASASQLCA; ConnStr: PChar);
00834 procedure db_setoption( sqlca: PZASASQLCA; Temporary: LongInt;
00835 User: PChar; Option: PChar; Descriptor: PASASQLDA);
00836
00837 procedure db_describe_cursor( sqlca: PZASASQLCA; CursorName: PChar;
00838 Descriptor: PASASQLDA; WhatToDesc: LongWord);
00839 procedure db_prepare_into( sqlca: PZASASQLCA; ProgName: PChar;
00840 StatementNum: PSmallInt; SqlStatement: PChar;
00841 Descriptor1: PASASQLDA; Descriptor2: PASASQLDA; WhatToDesc: LongWord);
00842 procedure db_prepare_describe( sqlca: PZASASQLCA; ProgName: PChar;
00843 StatementNum: PSmallInt; SqlStatement: PChar; Descriptor: PASASQLDA;
00844 WhatToDesc: LongWord; LongNames: Word);
00845 procedure db_declare( sqlca: PZASASQLCA; CursorName: PChar;
00846 StatementName: PChar; ProgName: PChar; StatementNum: PSmallInt;
00847 Options: Word);
00848 procedure db_describe( sqlca: PZASASQLCA; ProgName: PChar;
00849 StatementNum: PSmallInt; Descriptor: PASASQLDA; WhatToDesc: Word);
00850 procedure db_dropstmt( sqlca: PZASASQLCA; StatementName: PChar;
00851 ProgName: PChar; StatementNum: PSmallInt);
00852 procedure db_open( sqlca: PZASASQLCA; CursorName: PChar;
00853 ProgName: PChar; StatementNum: PSmallInt; Descriptor: PASASQLDA;
00854 BlockSize, IsolationLvl: SmallInt; CursorOptions: Word);
00855 procedure db_close( sqlca: PZASASQLCA; CursorName: PChar);
00856
00857 procedure db_fetch( sqlca: PZASASQLCA; CursorName: PChar; Offset: Word;
00858 RelPositon: Integer; Descriptor: PASASQLDA; BlockSize: SmallInt;
00859 Options: Word);
00860 procedure db_fetch_array( sqlca: PZASASQLCA; CursorName: PChar;
00861 Offset: Word; RelPositon: Integer; Descriptor: PASASQLDA;
00862 BlockSize: SmallInt; Options, ArrayWidth: Word);
00863 procedure db_get_data( sqlca: PZASASQLCA; CursorName: PChar;
00864 ColumnNumber: Word; Offset: Integer; Descriptor: PASASQLDA);
00865 procedure db_delete( sqlca: PZASASQLCA; CursorName: PChar);
00866 procedure db_update( sqlca: PZASASQLCA; CursorName: PChar;
00867 Descriptor: PASASQLDA);
00868 procedure db_put_into( sqlca: PZASASQLCA; CursorName: PChar;
00869 Descriptor: PASASQLDA; ResultDescriptor: PASASQLDA);
00870 procedure db_put_array( sqlca: PZASASQLCA; CursorName: PChar;
00871 Descriptor: PASASQLDA; ResultDescriptor: PASASQLDA; Rows: Word);
00872
00873 procedure db_select( sqlca: PZASASQLCA; ProgName: PChar;
00874 StatementNum: PSmallInt; SQLDescriptor, ResultDescriptor: PASASQLDA);
00875 procedure db_execute_into( sqlca: PZASASQLCA; Statement: PChar;
00876 ProgName: PChar; StatementNum: PSmallInt; Descriptor: PASASQLDA;
00877 ResultDescriptor: PASASQLDA);
00878 procedure db_execute_imm( sqlca: PZASASQLCA; Statement: PChar);
00879
00880 procedure db_commit( sqlca: PZASASQLCA; TransLevel: LongWord);
00881 procedure db_rollback( sqlca: PZASASQLCA; TransLevel: LongWord);
00882 procedure db_explain( sqlca: PZASASQLCA; CursorName: PChar;
00883 Descriptor: PASASQLDA);
00884 procedure db_register_callback( sqlca: PZASASQLCA;
00885 CBIdx: ZASA_db_callback_index; Proc: TZASASQLCallback);
00886 procedure db_resume( sqlca: PZASASQLCA; CursorName: PChar);
00887 function db_cancel_request( sqlca: PZASASQLCA): Integer;
00888 end;
00889
00890 {** Represents an interface to ASA 7 native API. }
00891 IZASA7PlainDriver = interface (IZASAPlainDriver)
00892 ['{CDB51BB2-A756-4135-B401-0FB02962FDF2}']
00893 end;
00894
00895 {** Implements a driver for ASA 7.0 }
00896 TZASA7PlainDriver = class (TZAbstractObject, IZPlainDriver,
00897 IZASAPlainDriver, IZASA7PlainDriver)
00898 public
00899 constructor Create;
00900
00901 function GetProtocol: string;
00902 function GetDescription: string;
00903 procedure Initialize;
00904
00905 function sqlerror_message( sqlca: PZASASQLCA; Buffer: PChar;
00906 MaxSize: Integer): PChar;
00907 function db_init( sqlca: PZASASQLCA): Integer;
00908 function db_fini( sqlca: PZASASQLCA): Integer;
00909 function db_string_connect( sqlca: PZASASQLCA; Params: PChar): Integer;
00910 function db_string_disconnect( sqlca: PZASASQLCA; Params: PChar): LongWord;
00911 function db_find_engine( sqlca: PZASASQLCA; Params: PChar): Word;
00912 function db_start_engine( sqlca: PZASASQLCA; Params: PChar): LongWord;
00913 function db_stop_engine( sqlca: PZASASQLCA; Params: PChar): LongWord;
00914 function db_start_database( sqlca: PZASASQLCA; Params: PChar): LongWord;
00915 function db_stop_database( sqlca: PZASASQLCA; Params: PChar): LongWord;
00916
00917 function db_alloc_sqlda( NumVar: LongWord): PASASQLDA;
00918 function db_fill_sqlda( Parameter: PASASQLDA): PASASQLDA;
00919 function db_fill_s_sqlda( Parameter: PASASQLDA; MaxLength: Integer):
00920 PASASQLDA;
00921 procedure db_free_sqlda( Parameter: PASASQLDA);
00922 procedure db_free_sqlda_noind( Parameter: PASASQLDA);
00923 procedure db_free_filled_sqlda( Parameter: PASASQLDA);
00924
00925 procedure db_setconnect( sqlca: PZASASQLCA; ConnStr: PChar);
00926 procedure db_disconnect( sqlca: PZASASQLCA; ConnStr: PChar);
00927 procedure db_setoption( sqlca: PZASASQLCA; Temporary: LongInt;
00928 User: PChar; Option: PChar; Descriptor: PASASQLDA);
00929
00930 procedure db_describe_cursor( sqlca: PZASASQLCA; CursorName: PChar;
00931 Descriptor: PASASQLDA; WhatToDesc: LongWord);
00932 procedure db_prepare_into( sqlca: PZASASQLCA; ProgName: PChar;
00933 StatementNum: PSmallInt; SqlStatement: PChar;
00934 Descriptor1: PASASQLDA; Descriptor2: PASASQLDA; WhatToDesc: LongWord);
00935 procedure db_prepare_describe( sqlca: PZASASQLCA; ProgName: PChar;
00936 StatementNum: PSmallInt; SqlStatement: PChar; Descriptor: PASASQLDA;
00937 WhatToDesc: LongWord; LongNames: Word);
00938 procedure db_declare( sqlca: PZASASQLCA; CursorName: PChar;
00939 StatementName: PChar; ProgName: PChar; StatementNum: PSmallInt;
00940 Options: Word);
00941 procedure db_describe( sqlca: PZASASQLCA; ProgName: PChar;
00942 StatementNum: PSmallInt; Descriptor: PASASQLDA; WhatToDesc: Word);
00943 procedure db_dropstmt( sqlca: PZASASQLCA; StatementName: PChar;
00944 ProgName: PChar; StatementNum: PSmallInt);
00945 procedure db_open( sqlca: PZASASQLCA; CursorName: PChar;
00946 ProgName: PChar; StatementNum: PSmallInt; Descriptor: PASASQLDA;
00947 BlockSize, IsolationLvl: SmallInt; CursorOptions: Word);
00948 procedure db_close( sqlca: PZASASQLCA; CursorName: PChar);
00949
00950 procedure db_fetch( sqlca: PZASASQLCA; CursorName: PChar; Offset: Word;
00951 RelPositon: Integer; Descriptor: PASASQLDA; BlockSize: SmallInt;
00952 Options: Word);
00953 procedure db_fetch_array( sqlca: PZASASQLCA; CursorName: PChar;
00954 Offset: Word; RelPositon: Integer; Descriptor: PASASQLDA;
00955 BlockSize: SmallInt; Options, ArrayWidth: Word);
00956 procedure db_get_data( sqlca: PZASASQLCA; CursorName: PChar;
00957 ColumnNumber: Word; Offset: Integer; Descriptor: PASASQLDA);
00958 procedure db_delete( sqlca: PZASASQLCA; CursorName: PChar);
00959 procedure db_update( sqlca: PZASASQLCA; CursorName: PChar;
00960 Descriptor: PASASQLDA);
00961 procedure db_put_into( sqlca: PZASASQLCA; CursorName: PChar;
00962 Descriptor: PASASQLDA; ResultDescriptor: PASASQLDA);
00963 procedure db_put_array( sqlca: PZASASQLCA; CursorName: PChar;
00964 Descriptor: PASASQLDA; ResultDescriptor: PASASQLDA; Rows: Word);
00965
00966 procedure db_select( sqlca: PZASASQLCA; ProgName: PChar;
00967 StatementNum: PSmallInt; Descriptor, ResultDescriptor: PASASQLDA);
00968 procedure db_execute_into( sqlca: PZASASQLCA; Statement: PChar;
00969 ProgName: PChar; StatementNum: PSmallInt; Descriptor: PASASQLDA;
00970 ResultDescriptor: PASASQLDA);
00971 procedure db_execute_imm( sqlca: PZASASQLCA; Statement: PChar);
00972
00973 procedure db_commit( sqlca: PZASASQLCA; TransLevel: LongWord);
00974 procedure db_rollback( sqlca: PZASASQLCA; TransLevel: LongWord);
00975 procedure db_explain( sqlca: PZASASQLCA; CursorName: PChar;
00976 Descriptor: PASASQLDA);
00977 procedure db_register_callback( sqlca: PZASASQLCA;
00978 CBIdx: ZASA_db_callback_index; Proc: TZASASQLCallback);
00979 procedure db_resume( sqlca: PZASASQLCA; CursorName: PChar);
00980 function db_cancel_request( sqlca: PZASASQLCA): Integer;
00981 end;
00982
00983 {** Represents an interface to ASA 8 native API. }
00984 IZASA8PlainDriver = interface (IZASAPlainDriver)
00985 ['{74C09C95-F8C3-45BF-8F39-23694A92F9E6}']
00986 end;
00987
00988 {** Implements a driver for ASA 8.0 }
00989 TZASA8PlainDriver = class (TZAbstractObject, IZPlainDriver,
00990 IZASAPlainDriver, IZASA8PlainDriver)
00991 public
00992 constructor Create;
00993
00994 function GetProtocol: string;
00995 function GetDescription: string;
00996 procedure Initialize;
00997
00998 function sqlerror_message( sqlca: PZASASQLCA; Buffer: PChar;
00999 MaxSize: Integer): PChar;
01000 function db_init( sqlca: PZASASQLCA): Integer;
01001 function db_fini( sqlca: PZASASQLCA): Integer;
01002 function db_string_connect( sqlca: PZASASQLCA; Params: PChar): Integer;
01003 function db_string_disconnect( sqlca: PZASASQLCA; Params: PChar): LongWord;
01004 function db_find_engine( sqlca: PZASASQLCA; Params: PChar): Word;
01005 function db_start_engine( sqlca: PZASASQLCA; Params: PChar): LongWord;
01006 function db_stop_engine( sqlca: PZASASQLCA; Params: PChar): LongWord;
01007 function db_start_database( sqlca: PZASASQLCA; Params: PChar): LongWord;
01008 function db_stop_database( sqlca: PZASASQLCA; Params: PChar): LongWord;
01009
01010 function db_alloc_sqlda( NumVar: LongWord): PASASQLDA;
01011 function db_fill_sqlda( Parameter: PASASQLDA): PASASQLDA;
01012 function db_fill_s_sqlda( Parameter: PASASQLDA; MaxLength: Integer):
01013 PASASQLDA;
01014 procedure db_free_sqlda( Parameter: PASASQLDA);
01015 procedure db_free_sqlda_noind( Parameter: PASASQLDA);
01016 procedure db_free_filled_sqlda( Parameter: PASASQLDA);
01017
01018 procedure db_setconnect( sqlca: PZASASQLCA; ConnStr: PChar);
01019 procedure db_disconnect( sqlca: PZASASQLCA; ConnStr: PChar);
01020 procedure db_setoption( sqlca: PZASASQLCA; Temporary: LongInt;
01021 User: PChar; Option: PChar; Descriptor: PASASQLDA);
01022
01023 procedure db_describe_cursor( sqlca: PZASASQLCA; CursorName: PChar;
01024 Descriptor: PASASQLDA; WhatToDesc: LongWord);
01025 procedure db_prepare_into( sqlca: PZASASQLCA; ProgName: PChar;
01026 StatementNum: PSmallInt; SqlStatement: PChar;
01027 Descriptor1: PASASQLDA; Descriptor2: PASASQLDA; WhatToDesc: LongWord);
01028 procedure db_prepare_describe( sqlca: PZASASQLCA; ProgName: PChar;
01029 StatementNum: PSmallInt; SqlStatement: PChar; Descriptor: PASASQLDA;
01030 WhatToDesc: LongWord; LongNames: Word);
01031 procedure db_declare( sqlca: PZASASQLCA; CursorName: PChar;
01032 StatementName: PChar; ProgName: PChar; StatementNum: PSmallInt;
01033 Options: Word);
01034 procedure db_describe( sqlca: PZASASQLCA; ProgName: PChar;
01035 StatementNum: PSmallInt; Descriptor: PASASQLDA; WhatToDesc: Word);
01036 procedure db_dropstmt( sqlca: PZASASQLCA; StatementName: PChar;
01037 ProgName: PChar; StatementNum: PSmallInt);
01038 procedure db_open( sqlca: PZASASQLCA; CursorName: PChar;
01039 ProgName: PChar; StatementNum: PSmallInt; Descriptor: PASASQLDA;
01040 BlockSize, IsolationLvl: SmallInt; CursorOptions: Word);
01041 procedure db_close( sqlca: PZASASQLCA; CursorName: PChar);
01042
01043 procedure db_fetch( sqlca: PZASASQLCA; CursorName: PChar; Offset: Word;
01044 RelPositon: Integer; Descriptor: PASASQLDA; BlockSize: SmallInt;
01045 Options: Word);
01046 procedure db_fetch_array( sqlca: PZASASQLCA; CursorName: PChar;
01047 Offset: Word; RelPositon: Integer; Descriptor: PASASQLDA;
01048 BlockSize: SmallInt; Options, ArrayWidth: Word);
01049 procedure db_get_data( sqlca: PZASASQLCA; CursorName: PChar;
01050 ColumnNumber: Word; Offset: Integer; Descriptor: PASASQLDA);
01051 procedure db_delete( sqlca: PZASASQLCA; CursorName: PChar);
01052 procedure db_update( sqlca: PZASASQLCA; CursorName: PChar;
01053 Descriptor: PASASQLDA);
01054 procedure db_put_into( sqlca: PZASASQLCA; CursorName: PChar;
01055 Descriptor: PASASQLDA; ResultDescriptor: PASASQLDA);
01056 procedure db_put_array( sqlca: PZASASQLCA; CursorName: PChar;
01057 Descriptor: PASASQLDA; ResultDescriptor: PASASQLDA; Rows: Word);
01058
01059 procedure db_select( sqlca: PZASASQLCA; ProgName: PChar;
01060 StatementNum: PSmallInt; Descriptor, ResultDescriptor: PASASQLDA);
01061 procedure db_execute_into( sqlca: PZASASQLCA; Statement: PChar;
01062 ProgName: PChar; StatementNum: PSmallInt; Descriptor: PASASQLDA;
01063 ResultDescriptor: PASASQLDA);
01064 procedure db_execute_imm( sqlca: PZASASQLCA; Statement: PChar);
01065
01066 procedure db_commit( sqlca: PZASASQLCA; TransLevel: LongWord);
01067 procedure db_rollback( sqlca: PZASASQLCA; TransLevel: LongWord);
01068 procedure db_explain( sqlca: PZASASQLCA; CursorName: PChar;
01069 Descriptor: PASASQLDA);
01070 procedure db_register_callback( sqlca: PZASASQLCA;
01071 CBIdx: ZASA_db_callback_index; Proc: TZASASQLCallback);
01072 procedure db_resume( sqlca: PZASASQLCA; CursorName: PChar);
01073 function db_cancel_request( sqlca: PZASASQLCA): Integer;
01074 end;
01075
01076 {** Represents an interface to ASA 9 native API. }
01077 IZASA9PlainDriver = interface (IZASAPlainDriver)
01078 ['{6541B07C-3086-4841-A3A0-1D8127327EA5}']
01079 end;
01080
01081 {** Implements a driver for ASA 9.0 }
01082 TZASA9PlainDriver = class (TZAbstractObject, IZPlainDriver,
01083 IZASAPlainDriver, IZASA9PlainDriver)
01084 public
01085 constructor Create;
01086
01087 function GetProtocol: string;
01088 function GetDescription: string;
01089 procedure Initialize;
01090
01091 function sqlerror_message( sqlca: PZASASQLCA; Buffer: PChar;
01092 MaxSize: Integer): PChar;
01093 function db_init( sqlca: PZASASQLCA): Integer;
01094 function db_fini( sqlca: PZASASQLCA): Integer;
01095 function db_string_connect( sqlca: PZASASQLCA; Params: PChar): Integer;
01096 function db_string_disconnect( sqlca: PZASASQLCA; Params: PChar): LongWord;
01097 function db_find_engine( sqlca: PZASASQLCA; Params: PChar): Word;
01098 function db_start_engine( sqlca: PZASASQLCA; Params: PChar): LongWord;
01099 function db_stop_engine( sqlca: PZASASQLCA; Params: PChar): LongWord;
01100 function db_start_database( sqlca: PZASASQLCA; Params: PChar): LongWord;
01101 function db_stop_database( sqlca: PZASASQLCA; Params: PChar): LongWord;
01102
01103 function db_alloc_sqlda( NumVar: LongWord): PASASQLDA;
01104 function db_fill_sqlda( Parameter: PASASQLDA): PASASQLDA;
01105 function db_fill_s_sqlda( Parameter: PASASQLDA; MaxLength: Integer):
01106 PASASQLDA;
01107 procedure db_free_sqlda( Parameter: PASASQLDA);
01108 procedure db_free_sqlda_noind( Parameter: PASASQLDA);
01109 procedure db_free_filled_sqlda( Parameter: PASASQLDA);
01110
01111 procedure db_setconnect( sqlca: PZASASQLCA; ConnStr: PChar);
01112 procedure db_disconnect( sqlca: PZASASQLCA; ConnStr: PChar);
01113 procedure db_setoption( sqlca: PZASASQLCA; Temporary: LongInt;
01114 User: PChar; Option: PChar; Descriptor: PASASQLDA);
01115
01116 procedure db_describe_cursor( sqlca: PZASASQLCA; CursorName: PChar;
01117 Descriptor: PASASQLDA; WhatToDesc: LongWord);
01118 procedure db_prepare_into( sqlca: PZASASQLCA; ProgName: PChar;
01119 StatementNum: PSmallInt; SqlStatement: PChar;
01120 Descriptor1: PASASQLDA; Descriptor2: PASASQLDA; WhatToDesc: LongWord);
01121 procedure db_prepare_describe( sqlca: PZASASQLCA; ProgName: PChar;
01122 StatementNum: PSmallInt; SqlStatement: PChar; Descriptor: PASASQLDA;
01123 WhatToDesc: LongWord; LongNames: Word);
01124 procedure db_declare( sqlca: PZASASQLCA; CursorName: PChar;
01125 StatementName: PChar; ProgName: PChar; StatementNum: PSmallInt;
01126 Options: Word);
01127 procedure db_describe( sqlca: PZASASQLCA; ProgName: PChar;
01128 StatementNum: PSmallInt; Descriptor: PASASQLDA; WhatToDesc: Word);
01129 procedure db_dropstmt( sqlca: PZASASQLCA; StatementName: PChar;
01130 ProgName: PChar; StatementNum: PSmallInt);
01131 procedure db_open( sqlca: PZASASQLCA; CursorName: PChar;
01132 ProgName: PChar; StatementNum: PSmallInt; Descriptor: PASASQLDA;
01133 BlockSize, IsolationLvl: SmallInt; CursorOptions: Word);
01134 procedure db_close( sqlca: PZASASQLCA; CursorName: PChar);
01135
01136 procedure db_fetch( sqlca: PZASASQLCA; CursorName: PChar; Offset: Word;
01137 RelPositon: Integer; Descriptor: PASASQLDA; BlockSize: SmallInt;
01138 Options: Word);
01139 procedure db_fetch_array( sqlca: PZASASQLCA; CursorName: PChar;
01140 Offset: Word; RelPositon: Integer; Descriptor: PASASQLDA;
01141 BlockSize: SmallInt; Options, ArrayWidth: Word);
01142 procedure db_get_data( sqlca: PZASASQLCA; CursorName: PChar;
01143 ColumnNumber: Word; Offset: Integer; Descriptor: PASASQLDA);
01144 procedure db_delete( sqlca: PZASASQLCA; CursorName: PChar);
01145 procedure db_update( sqlca: PZASASQLCA; CursorName: PChar;
01146 Descriptor: PASASQLDA);
01147 procedure db_put_into( sqlca: PZASASQLCA; CursorName: PChar;
01148 Descriptor: PASASQLDA; ResultDescriptor: PASASQLDA);
01149 procedure db_put_array( sqlca: PZASASQLCA; CursorName: PChar;
01150 Descriptor: PASASQLDA; ResultDescriptor: PASASQLDA; Rows: Word);
01151
01152 procedure db_select( sqlca: PZASASQLCA; ProgName: PChar;
01153 StatementNum: PSmallInt; Descriptor, ResultDescriptor: PASASQLDA);
01154 procedure db_execute_into( sqlca: PZASASQLCA; Statement: PChar;
01155 ProgName: PChar; StatementNum: PSmallInt; Descriptor: PASASQLDA;
01156 ResultDescriptor: PASASQLDA);
01157 procedure db_execute_imm( sqlca: PZASASQLCA; Statement: PChar);
01158
01159 procedure db_commit( sqlca: PZASASQLCA; TransLevel: LongWord);
01160 procedure db_rollback( sqlca: PZASASQLCA; TransLevel: LongWord);
01161 procedure db_explain( sqlca: PZASASQLCA; CursorName: PChar;
01162 Descriptor: PASASQLDA);
01163 procedure db_register_callback( sqlca: PZASASQLCA;
01164 CBIdx: ZASA_db_callback_index; Proc: TZASASQLCallback);
01165 procedure db_resume( sqlca: PZASASQLCA; CursorName: PChar);
01166 function db_cancel_request( sqlca: PZASASQLCA): Integer;
01167 end;
01168
01169 implementation
01170
01171 uses SysUtils, ZPlainASA7, ZPlainASA8, ZPlainASA9;
01172
01173 constructor TZASA7PlainDriver.Create;
01174 begin
01175 end;
01176
01177 function TZASA7PlainDriver.GetProtocol: string;
01178 begin
01179 Result := 'ASA7';
01180 end;
01181
01182 function TZASA7PlainDriver.GetDescription: string;
01183 begin
01184 Result := 'Native Plain Driver for ASA 7.0 DBLib';
01185 end;
01186
01187 procedure TZASA7PlainDriver.Initialize;
01188 begin
01189 ZPlainASA7.LibraryLoader.LoadIfNeeded;
01190 end;
01191
01192 function TZASA7PlainDriver.sqlerror_message( sqlca: PZASASQLCA; Buffer: PChar;
01193 MaxSize: Integer): PChar;
01194 begin
01195 Result := ZPlainASA7.sqlerror_message( sqlca, Buffer, MaxSize);
01196 end;
01197
01198 function TZASA7PlainDriver.db_init( sqlca: PZASASQLCA): Integer;
01199 begin
01200 Result := ZPlainASA7.db_init( sqlca);
01201 end;
01202
01203 function TZASA7PlainDriver.db_fini( sqlca: PZASASQLCA): Integer;
01204 begin
01205 Result := ZPlainASA7.db_fini( sqlca);
01206 end;
01207
01208 function TZASA7PlainDriver.db_string_connect( sqlca: PZASASQLCA; Params: PChar):
01209 Integer;
01210 begin
01211 Result := ZPlainASA7.db_string_connect( sqlca, Params);
01212 end;
01213
01214 function TZASA7PlainDriver.db_string_disconnect( sqlca: PZASASQLCA;
01215 Params: PChar): LongWord;
01216 begin
01217 Result := ZPlainASA7.db_string_disconnect( sqlca, Params)
01218 end;
01219
01220 function TZASA7PlainDriver.db_find_engine( sqlca: PZASASQLCA; Params: PChar):
01221 Word;
01222 begin
01223 Result := ZPlainASA7.db_find_engine( sqlca, Params);
01224 end;
01225
01226 function TZASA7PlainDriver.db_start_engine( sqlca: PZASASQLCA; Params: PChar):
01227 LongWord;
01228 begin
01229 Result := ZPlainASA7.db_start_engine( sqlca, Params);
01230 end;
01231
01232 function TZASA7PlainDriver.db_stop_engine( sqlca: PZASASQLCA; Params: PChar):
01233 LongWord;
01234 begin
01235 Result := ZPlainASA7.db_stop_engine( sqlca, Params);
01236 end;
01237
01238 function TZASA7PlainDriver.db_start_database( sqlca: PZASASQLCA; Params: PChar):
01239 LongWord;
01240 begin
01241 Result := ZPlainASA7.db_start_database( sqlca, Params);
01242 end;
01243
01244 function TZASA7PlainDriver.db_stop_database( sqlca: PZASASQLCA; Params: PChar):
01245 LongWord;
01246 begin
01247 Result := ZPlainASA7.db_stop_database( sqlca, Params);
01248 end;
01249
01250 function TZASA7PlainDriver.db_alloc_sqlda( NumVar: LongWord): PASASQLDA;
01251 begin
01252 Result := ZPlainASA7.alloc_sqlda( NumVar);
01253 end;
01254
01255 function TZASA7PlainDriver.db_fill_sqlda( Parameter: PASASQLDA): PASASQLDA;
01256 begin
01257 Result := ZPlainASA7.fill_sqlda( Parameter);
01258 end;
01259
01260 function TZASA7PlainDriver.db_fill_s_sqlda( Parameter: PASASQLDA;
01261 MaxLength: Integer): PASASQLDA;
01262 begin
01263 Result := ZPlainASA7.fill_s_sqlda( Parameter, MaxLength);
01264 end;
01265
01266 procedure TZASA7PlainDriver.db_free_sqlda( Parameter: PASASQLDA);
01267 begin
01268 ZPlainASA7.free_sqlda( Parameter);
01269 end;
01270
01271 procedure TZASA7PlainDriver.db_free_sqlda_noind( Parameter: PASASQLDA);
01272 begin
01273 ZPlainASA7.free_sqlda_noind( Parameter);
01274 end;
01275
01276 procedure TZASA7PlainDriver.db_free_filled_sqlda( Parameter: PASASQLDA);
01277 begin
01278 ZPlainASA7.free_filled_sqlda( Parameter);
01279 end;
01280
01281 procedure TZASA7PlainDriver.db_setconnect( sqlca: PZASASQLCA; ConnStr: PChar);
01282 begin
01283 ZPlainASA7.dbpp_setconnect( sqlca, ConnStr);
01284 end;
01285
01286 procedure TZASA7PlainDriver.db_disconnect( sqlca: PZASASQLCA; ConnStr: PChar);
01287 begin
01288 ZPlainASA7.dbpp_disconnect( sqlca, ConnStr);
01289 end;
01290
01291 procedure TZASA7PlainDriver.db_setoption( sqlca: PZASASQLCA; Temporary: Integer;
01292 User: PChar; Option: PChar; Descriptor: PASASQLDA);
01293 begin
01294 ZPlainASA7.dbpp_setoption( sqlca, Temporary, User, Option, Descriptor);
01295 end;
01296
01297 procedure TZASA7PlainDriver.db_describe_cursor( sqlca: PZASASQLCA;
01298 CursorName: PChar; Descriptor: PASASQLDA; WhatToDesc: LongWord);
01299 begin
01300 ZPlainASA7.dbpp_describe_cursor( sqlca, CursorName, Descriptor, WhatToDesc);
01301 end;
01302
01303 procedure TZASA7PlainDriver.db_prepare_into( sqlca: PZASASQLCA;
01304 ProgName: PChar; StatementNum: PSmallInt; SqlStatement: PChar;
01305 Descriptor1: PASASQLDA; Descriptor2: PASASQLDA; WhatToDesc: LongWord);
01306 begin
01307 ZPlainASA7.dbpp_prepare_into( sqlca, nil, ProgName, StatementNum, SqlStatement,
01308 Descriptor1, Descriptor2, WhatToDesc);
01309 end;
01310
01311 procedure TZASA7PlainDriver.db_prepare_describe( sqlca: PZASASQLCA;
01312 ProgName: PChar; StatementNum: PSmallInt; SqlStatement: PChar;
01313 Descriptor: PASASQLDA; WhatToDesc: LongWord; LongNames: Word);
01314 begin
01315 ZPlainASA7.dbpp_prepare_describe( sqlca, nil, ProgName, StatementNum,
01316 SqlStatement, nil, Descriptor, WhatToDesc, LongNames);
01317 end;
01318
01319 procedure TZASA7PlainDriver.db_declare( sqlca: PZASASQLCA; CursorName: PChar;
01320 StatementName: PChar; ProgName: PChar; StatementNum: PSmallInt;
01321 Options: Word);
01322 begin
01323 ZPlainASA7.dbpp_declare( sqlca, CursorName, StatementName, ProgName,
01324 StatementNum, Options);
01325 end;
01326
01327 procedure TZASA7PlainDriver.db_describe( sqlca: PZASASQLCA; ProgName: PChar;
01328 StatementNum: PSmallInt; Descriptor: PASASQLDA; WhatToDesc: Word);
01329 begin
01330 ZPlainASA7.dbpp_describe( sqlca, nil, ProgName, StatementNum, Descriptor,
01331 WhatToDesc);
01332 end;
01333
01334 procedure TZASA7PlainDriver.db_dropstmt( sqlca: PZASASQLCA;
01335 StatementName: PChar; ProgName: PChar; StatementNum: PSmallInt);
01336 begin
01337 ZPlainASA7.dbpp_dropstmt( sqlca, StatementName, ProgName, StatementNum);
01338 end;
01339
01340 procedure TZASA7PlainDriver.db_open( sqlca: PZASASQLCA; CursorName: PChar;
01341 ProgName: PChar; StatementNum: PSmallInt; Descriptor: PASASQLDA;
01342 BlockSize, IsolationLvl: SmallInt; CursorOptions: Word);
01343 begin
01344 ZPlainASA7.dbpp_open( sqlca, CursorName, nil, ProgName, StatementNum,
01345 Descriptor, BlockSize, IsolationLvl, CursorOptions);
01346 end;
01347
01348 procedure TZASA7PlainDriver.db_close( sqlca: PZASASQLCA; CursorName: PChar);
01349 begin
01350 ZPlainASA7.dbpp_close( sqlca, CursorName);
01351 end;
01352
01353 procedure TZASA7PlainDriver.db_fetch( sqlca: PZASASQLCA; CursorName: PChar;
01354 Offset: Word; RelPositon: Integer; Descriptor: PASASQLDA;
01355 BlockSize: SmallInt; Options: Word);
01356 begin
01357 ZPlainASA7.dbpp_fetch( sqlca, CursorName, Offset, RelPositon, Descriptor,
01358 BlockSize, Options);
01359 end;
01360
01361 procedure TZASA7PlainDriver.db_fetch_array( sqlca: PZASASQLCA;
01362 CursorName: PChar; Offset: Word; RelPositon: Integer;
01363 Descriptor: PASASQLDA; BlockSize: SmallInt; Options, ArrayWidth: Word);
01364 begin
01365 ZPlainASA7.dbpp_fetch_array( sqlca, CursorName, Offset, RelPositon, Descriptor,
01366 BlockSize, Options, ArrayWidth);
01367 end;
01368
01369 procedure TZASA7PlainDriver.db_get_data( sqlca: PZASASQLCA; CursorName: PChar;
01370 ColumnNumber: Word; Offset: Integer; Descriptor: PASASQLDA);
01371 begin
01372 ZPlainASA7.dbpp_get_data( sqlca, CursorName, ColumnNumber, Offset, Descriptor,
01373 0);
01374 end;
01375
01376 procedure TZASA7PlainDriver.db_delete( sqlca: PZASASQLCA; CursorName: PChar);
01377 begin
01378 ZPlainASA7.dbpp_delete( sqlca, CursorName, nil, nil);
01379 end;
01380
01381 procedure TZASA7PlainDriver.db_update( sqlca: PZASASQLCA; CursorName: PChar;
01382 Descriptor: PASASQLDA);
01383 begin
01384 ZPlainASA7.dbpp_update( sqlca, CursorName, Descriptor);
01385 end;
01386
01387 procedure TZASA7PlainDriver.db_put_into( sqlca: PZASASQLCA; CursorName: PChar;
01388 Descriptor: PASASQLDA; ResultDescriptor: PASASQLDA);
01389 begin
01390 ZPlainASA7.dbpp_put_into( sqlca, CursorName, Descriptor, ResultDescriptor);
01391 end;
01392
01393 procedure TZASA7PlainDriver.db_put_array( sqlca: PZASASQLCA; CursorName: PChar;
01394 Descriptor: PASASQLDA; ResultDescriptor: PASASQLDA; Rows: Word);
01395 begin
01396 ZPlainASA7.dbpp_put_array( sqlca, CursorName, Descriptor, ResultDescriptor,
01397 Rows);
01398 end;
01399
01400 procedure TZASA7PlainDriver.db_select( sqlca: PZASASQLCA; ProgName: PChar;
01401 StatementNum: PSmallInt; Descriptor, ResultDescriptor: PASASQLDA);
01402 begin
01403 ZPlainASA7.dbpp_select( sqlca, nil, ProgName, StatementNum, Descriptor,
01404 ResultDescriptor);
01405 end;
01406
01407 procedure TZASA7PlainDriver.db_execute_into( sqlca: PZASASQLCA;
01408 Statement: PChar; ProgName: PChar; StatementNum: PSmallInt;
01409 Descriptor: PASASQLDA; ResultDescriptor: PASASQLDA);
01410 begin
01411 ZPlainASA7.dbpp_execute_into( sqlca, Statement, ProgName, StatementNum,
01412 Descriptor, ResultDescriptor);
01413 end;
01414
01415 procedure TZASA7PlainDriver.db_execute_imm( sqlca: PZASASQLCA;
01416 Statement: PChar);
01417 begin
01418 ZPlainASA7.dbpp_execute_imm( sqlca, Statement, 2);
01419 end;
01420
01421 procedure TZASA7PlainDriver.db_commit( sqlca: PZASASQLCA; TransLevel: LongWord);
01422 begin
01423 ZPlainASA7.dbpp_commit( sqlca, TransLevel);
01424 end;
01425
01426 procedure TZASA7PlainDriver.db_rollback( sqlca: PZASASQLCA;
01427 TransLevel: LongWord);
01428 begin
01429 ZPlainASA7.dbpp_rollback( sqlca, TransLevel);
01430 end;
01431
01432 procedure TZASA7PlainDriver.db_explain( sqlca: PZASASQLCA; CursorName: PChar;
01433 Descriptor: PASASQLDA);
01434 begin
01435 ZPlainASA7.dbpp_explain( sqlca, CursorName, 0, Descriptor);
01436 end;
01437
01438 procedure TZASA7PlainDriver.db_register_callback( sqlca: PZASASQLCA;
01439 CBIdx: ZASA_db_callback_index; Proc: TZASASQLCallback);
01440 begin
01441 ZPlainASA7.db_register_a_callback( sqlca, Integer( CBIdx), Proc);
01442 end;
01443
01444 procedure TZASA7PlainDriver.db_resume( sqlca: PZASASQLCA; CursorName: PChar);
01445 begin
01446 ZPlainASA7.dbpp_resume( sqlca, CursorName);
01447 end;
01448
01449 function TZASA7PlainDriver.db_cancel_request( sqlca: PZASASQLCA): Integer;
01450 begin
01451 Result := ZPlainASA7.db_cancel_request( sqlca);
01452 end;
01453
01454 constructor TZASA8PlainDriver.Create;
01455 begin
01456 end;
01457
01458 function TZASA8PlainDriver.GetProtocol: string;
01459 begin
01460 Result := 'ASA8';
01461 end;
01462
01463 function TZASA8PlainDriver.GetDescription: string;
01464 begin
01465 Result := 'Native Plain Driver for ASA 8.0 DBLib';
01466 end;
01467
01468 procedure TZASA8PlainDriver.Initialize;
01469 begin
01470 ZPlainASA8.LibraryLoader.LoadIfNeeded;
01471 end;
01472
01473 function TZASA8PlainDriver.sqlerror_message( sqlca: PZASASQLCA; Buffer: PChar;
01474 MaxSize: Integer): PChar;
01475 begin
01476 Result := ZPlainASA8.sqlerror_message( sqlca, Buffer, MaxSize);
01477 end;
01478
01479 function TZASA8PlainDriver.db_init( sqlca: PZASASQLCA): Integer;
01480 begin
01481 Result := ZPlainASA8.db_init( sqlca);
01482 end;
01483
01484 function TZASA8PlainDriver.db_fini( sqlca: PZASASQLCA): Integer;
01485 begin
01486 Result := ZPlainASA8.db_fini( sqlca);
01487 end;
01488
01489 function TZASA8PlainDriver.db_string_connect( sqlca: PZASASQLCA; Params: PChar):
01490 Integer;
01491 begin
01492 Result := ZPlainASA8.db_string_connect( sqlca, Params);
01493 end;
01494
01495 function TZASA8PlainDriver.db_string_disconnect( sqlca: PZASASQLCA;
01496 Params: PChar): LongWord;
01497 begin
01498 Result := ZPlainASA8.db_string_disconnect( sqlca, Params)
01499 end;
01500
01501 function TZASA8PlainDriver.db_find_engine( sqlca: PZASASQLCA; Params: PChar):
01502 Word;
01503 begin
01504 Result := ZPlainASA8.db_find_engine( sqlca, Params);
01505 end;
01506
01507 function TZASA8PlainDriver.db_start_engine( sqlca: PZASASQLCA; Params: PChar):
01508 LongWord;
01509 begin
01510 Result := ZPlainASA8.db_start_engine( sqlca, Params);
01511 end;
01512
01513 function TZASA8PlainDriver.db_stop_engine( sqlca: PZASASQLCA; Params: PChar):
01514 LongWord;
01515 begin
01516 Result := ZPlainASA8.db_stop_engine( sqlca, Params);
01517 end;
01518
01519 function TZASA8PlainDriver.db_start_database( sqlca: PZASASQLCA; Params: PChar):
01520 LongWord;
01521 begin
01522 Result := ZPlainASA8.db_start_database( sqlca, Params);
01523 end;
01524
01525 function TZASA8PlainDriver.db_stop_database( sqlca: PZASASQLCA; Params: PChar):
01526 LongWord;
01527 begin
01528 Result := ZPlainASA8.db_stop_database( sqlca, Params);
01529 end;
01530
01531 function TZASA8PlainDriver.db_alloc_sqlda( NumVar: LongWord): PASASQLDA;
01532 begin
01533 Result := ZPlainASA8.alloc_sqlda( NumVar);
01534 end;
01535
01536 function TZASA8PlainDriver.db_fill_sqlda( Parameter: PASASQLDA): PASASQLDA;
01537 begin
01538 Result := ZPlainASA8.fill_sqlda( Parameter);
01539 end;
01540
01541 function TZASA8PlainDriver.db_fill_s_sqlda( Parameter: PASASQLDA;
01542 MaxLength: Integer): PASASQLDA;
01543 begin
01544 Result := ZPlainASA8.fill_s_sqlda( Parameter, MaxLength);
01545 end;
01546
01547 procedure TZASA8PlainDriver.db_free_sqlda( Parameter: PASASQLDA);
01548 begin
01549 ZPlainASA8.free_sqlda( Parameter);
01550 end;
01551
01552 procedure TZASA8PlainDriver.db_free_sqlda_noind( Parameter: PASASQLDA);
01553 begin
01554 ZPlainASA8.free_sqlda_noind( Parameter);
01555 end;
01556
01557 procedure TZASA8PlainDriver.db_free_filled_sqlda( Parameter: PASASQLDA);
01558 begin
01559 ZPlainASA8.free_filled_sqlda( Parameter);
01560 end;
01561
01562 procedure TZASA8PlainDriver.db_setconnect( sqlca: PZASASQLCA; ConnStr: PChar);
01563 begin
01564 ZPlainASA8.dbpp_setconnect( sqlca, ConnStr);
01565 end;
01566
01567 procedure TZASA8PlainDriver.db_disconnect( sqlca: PZASASQLCA; ConnStr: PChar);
01568 begin
01569 ZPlainASA8.dbpp_disconnect( sqlca, ConnStr);
01570 end;
01571
01572 procedure TZASA8PlainDriver.db_setoption( sqlca: PZASASQLCA; Temporary: Integer;
01573 User: PChar; Option: PChar; Descriptor: PASASQLDA);
01574 begin
01575 ZPlainASA8.dbpp_setoption( sqlca, Temporary, User, Option, Descriptor);
01576 end;
01577
01578 procedure TZASA8PlainDriver.db_describe_cursor( sqlca: PZASASQLCA;
01579 CursorName: PChar; Descriptor: PASASQLDA; WhatToDesc: LongWord);
01580 begin
01581 ZPlainASA8.dbpp_describe_cursor( sqlca, CursorName, Descriptor, WhatToDesc);
01582 end;
01583
01584 procedure TZASA8PlainDriver.db_prepare_into( sqlca: PZASASQLCA;
01585 ProgName: PChar; StatementNum: PSmallInt; SqlStatement: PChar;
01586 Descriptor1: PASASQLDA; Descriptor2: PASASQLDA; WhatToDesc: LongWord);
01587 begin
01588 ZPlainASA8.dbpp_prepare_into( sqlca, nil, ProgName, StatementNum, SqlStatement,
01589 Descriptor1, Descriptor2, WhatToDesc);
01590 end;
01591
01592 procedure TZASA8PlainDriver.db_prepare_describe( sqlca: PZASASQLCA;
01593 ProgName: PChar; StatementNum: PSmallInt; SqlStatement: PChar;
01594 Descriptor: PASASQLDA; WhatToDesc: LongWord; LongNames: Word);
01595 begin
01596 ZPlainASA8.dbpp_prepare_describe( sqlca, nil, ProgName, StatementNum,
01597 SqlStatement, nil, Descriptor, WhatToDesc, LongNames);
01598 end;
01599
01600 procedure TZASA8PlainDriver.db_declare( sqlca: PZASASQLCA; CursorName: PChar;
01601 StatementName: PChar; ProgName: PChar; StatementNum: PSmallInt;
01602 Options: Word);
01603 begin
01604 ZPlainASA8.dbpp_declare( sqlca, CursorName, StatementName, ProgName,
01605 StatementNum, Options);
01606 end;
01607
01608 procedure TZASA8PlainDriver.db_describe( sqlca: PZASASQLCA; ProgName: PChar;
01609 StatementNum: PSmallInt; Descriptor: PASASQLDA; WhatToDesc: Word);
01610 begin
01611 ZPlainASA8.dbpp_describe( sqlca, nil, ProgName, StatementNum, Descriptor,
01612 WhatToDesc);
01613 end;
01614
01615 procedure TZASA8PlainDriver.db_dropstmt( sqlca: PZASASQLCA;
01616 StatementName: PChar; ProgName: PChar; StatementNum: PSmallInt);
01617 begin
01618 ZPlainASA8.dbpp_dropstmt( sqlca, StatementName, ProgName, StatementNum);
01619 end;
01620
01621 procedure TZASA8PlainDriver.db_open( sqlca: PZASASQLCA; CursorName: PChar;
01622 ProgName: PChar; StatementNum: PSmallInt; Descriptor: PASASQLDA;
01623 BlockSize, IsolationLvl: SmallInt; CursorOptions: Word);
01624 begin
01625 ZPlainASA8.dbpp_open( sqlca, CursorName, nil, ProgName, StatementNum,
01626 Descriptor, BlockSize, IsolationLvl, CursorOptions);
01627 end;
01628
01629 procedure TZASA8PlainDriver.db_close( sqlca: PZASASQLCA; CursorName: PChar);
01630 begin
01631 ZPlainASA8.dbpp_close( sqlca, CursorName);
01632 end;
01633
01634 procedure TZASA8PlainDriver.db_fetch( sqlca: PZASASQLCA; CursorName: PChar;
01635 Offset: Word; RelPositon: Integer; Descriptor: PASASQLDA;
01636 BlockSize: SmallInt; Options: Word);
01637 begin
01638 ZPlainASA8.dbpp_fetch( sqlca, CursorName, Offset, RelPositon, Descriptor,
01639 BlockSize, Options);
01640 end;
01641
01642 procedure TZASA8PlainDriver.db_fetch_array( sqlca: PZASASQLCA;
01643 CursorName: PChar; Offset: Word; RelPositon: Integer;
01644 Descriptor: PASASQLDA; BlockSize: SmallInt; Options, ArrayWidth: Word);
01645 begin
01646 ZPlainASA8.dbpp_fetch_array( sqlca, CursorName, Offset, RelPositon, Descriptor,
01647 BlockSize, Options, ArrayWidth);
01648 end;
01649
01650 procedure TZASA8PlainDriver.db_get_data( sqlca: PZASASQLCA; CursorName: PChar;
01651 ColumnNumber: Word; Offset: Integer; Descriptor: PASASQLDA);
01652 begin
01653 ZPlainASA8.dbpp_get_data( sqlca, CursorName, ColumnNumber, Offset, Descriptor,
01654 0);
01655 end;
01656
01657 procedure TZASA8PlainDriver.db_delete( sqlca: PZASASQLCA; CursorName: PChar);
01658 begin
01659 ZPlainASA8.dbpp_delete( sqlca, CursorName, nil, nil);
01660 end;
01661
01662 procedure TZASA8PlainDriver.db_update( sqlca: PZASASQLCA; CursorName: PChar;
01663 Descriptor: PASASQLDA);
01664 begin
01665 ZPlainASA8.dbpp_update( sqlca, CursorName, Descriptor);
01666 end;
01667
01668 procedure TZASA8PlainDriver.db_put_into( sqlca: PZASASQLCA; CursorName: PChar;
01669 Descriptor: PASASQLDA; ResultDescriptor: PASASQLDA);
01670 begin
01671 ZPlainASA8.dbpp_put_into( sqlca, CursorName, Descriptor, ResultDescriptor);
01672 end;
01673
01674 procedure TZASA8PlainDriver.db_put_array( sqlca: PZASASQLCA; CursorName: PChar;
01675 Descriptor: PASASQLDA; ResultDescriptor: PASASQLDA; Rows: Word);
01676 begin
01677 ZPlainASA8.dbpp_put_array( sqlca, CursorName, Descriptor, ResultDescriptor,
01678 Rows);
01679 end;
01680
01681 procedure TZASA8PlainDriver.db_select( sqlca: PZASASQLCA; ProgName: PChar;
01682 StatementNum: PSmallInt; Descriptor, ResultDescriptor: PASASQLDA);
01683 begin
01684 ZPlainASA8.dbpp_select( sqlca, nil, ProgName, StatementNum, Descriptor,
01685 ResultDescriptor);
01686 end;
01687
01688 procedure TZASA8PlainDriver.db_execute_into( sqlca: PZASASQLCA;
01689 Statement: PChar; ProgName: PChar; StatementNum: PSmallInt;
01690 Descriptor: PASASQLDA; ResultDescriptor: PASASQLDA);
01691 begin
01692 ZPlainASA8.dbpp_execute_into( sqlca, Statement, ProgName, StatementNum,
01693 Descriptor, ResultDescriptor);
01694 end;
01695
01696 procedure TZASA8PlainDriver.db_execute_imm( sqlca: PZASASQLCA;
01697 Statement: PChar);
01698 begin
01699 ZPlainASA8.dbpp_execute_imm( sqlca, Statement, 2);
01700 end;
01701
01702 procedure TZASA8PlainDriver.db_commit( sqlca: PZASASQLCA; TransLevel: LongWord);
01703 begin
01704 ZPlainASA8.dbpp_commit( sqlca, TransLevel);
01705 end;
01706
01707 procedure TZASA8PlainDriver.db_rollback( sqlca: PZASASQLCA;
01708 TransLevel: LongWord);
01709 begin
01710 ZPlainASA8.dbpp_rollback( sqlca, TransLevel);
01711 end;
01712
01713 procedure TZASA8PlainDriver.db_explain( sqlca: PZASASQLCA; CursorName: PChar;
01714 Descriptor: PASASQLDA);
01715 begin
01716 ZPlainASA8.dbpp_explain( sqlca, CursorName, 0, Descriptor);
01717 end;
01718
01719 procedure TZASA8PlainDriver.db_register_callback( sqlca: PZASASQLCA;
01720 CBIdx: ZASA_db_callback_index; Proc: TZASASQLCallback);
01721 begin
01722 ZPlainASA8.db_register_a_callback( sqlca, Integer( CBIdx), Proc);
01723 end;
01724
01725 procedure TZASA8PlainDriver.db_resume( sqlca: PZASASQLCA; CursorName: PChar);
01726 begin
01727 ZPlainASA8.dbpp_resume( sqlca, CursorName);
01728 end;
01729
01730 function TZASA8PlainDriver.db_cancel_request( sqlca: PZASASQLCA): Integer;
01731 begin
01732 Result := ZPlainASA8.db_cancel_request( sqlca);
01733 end;
01734
01735 constructor TZASA9PlainDriver.Create;
01736 begin
01737 end;
01738
01739 function TZASA9PlainDriver.GetProtocol: string;
01740 begin
01741 Result := 'ASA9';
01742 end;
01743
01744 function TZASA9PlainDriver.GetDescription: string;
01745 begin
01746 Result := 'Native Plain Driver for ASA 9.0 DBLib';
01747 end;
01748
01749 procedure TZASA9PlainDriver.Initialize;
01750 begin
01751 ZPlainASA9.LibraryLoader.LoadIfNeeded;
01752 end;
01753
01754 function TZASA9PlainDriver.sqlerror_message( sqlca: PZASASQLCA; Buffer: PChar;
01755 MaxSize: Integer): PChar;
01756 begin
01757 Result := ZPlainASA9.sqlerror_message( sqlca, Buffer, MaxSize);
01758 end;
01759
01760 function TZASA9PlainDriver.db_init( sqlca: PZASASQLCA): Integer;
01761 begin
01762 Result := ZPlainASA9.db_init( sqlca);
01763 end;
01764
01765 function TZASA9PlainDriver.db_fini( sqlca: PZASASQLCA): Integer;
01766 begin
01767 Result := ZPlainASA9.db_fini( sqlca);
01768 end;
01769
01770 function TZASA9PlainDriver.db_string_connect( sqlca: PZASASQLCA; Params: PChar):
01771 Integer;
01772 begin
01773 Result := ZPlainASA9.db_string_connect( sqlca, Params);
01774 end;
01775
01776 function TZASA9PlainDriver.db_string_disconnect( sqlca: PZASASQLCA;
01777 Params: PChar): LongWord;
01778 begin
01779 Result := ZPlainASA9.db_string_disconnect( sqlca, Params)
01780 end;
01781
01782 function TZASA9PlainDriver.db_find_engine( sqlca: PZASASQLCA; Params: PChar):
01783 Word;
01784 begin
01785 Result := ZPlainASA9.db_find_engine( sqlca, Params);
01786 end;
01787
01788 function TZASA9PlainDriver.db_start_engine( sqlca: PZASASQLCA; Params: PChar):
01789 LongWord;
01790 begin
01791 Result := ZPlainASA9.db_start_engine( sqlca, Params);
01792 end;
01793
01794 function TZASA9PlainDriver.db_stop_engine( sqlca: PZASASQLCA; Params: PChar):
01795 LongWord;
01796 begin
01797 Result := ZPlainASA9.db_stop_engine( sqlca, Params);
01798 end;
01799
01800 function TZASA9PlainDriver.db_start_database( sqlca: PZASASQLCA; Params: PChar):
01801 LongWord;
01802 begin
01803 Result := ZPlainASA9.db_start_database( sqlca, Params);
01804 end;
01805
01806 function TZASA9PlainDriver.db_stop_database( sqlca: PZASASQLCA; Params: PChar):
01807 LongWord;
01808 begin
01809 Result := ZPlainASA9.db_stop_database( sqlca, Params);
01810 end;
01811
01812 function TZASA9PlainDriver.db_alloc_sqlda( NumVar: LongWord): PASASQLDA;
01813 begin
01814 Result := ZPlainASA9.alloc_sqlda( NumVar);
01815 end;
01816
01817 function TZASA9PlainDriver.db_fill_sqlda( Parameter: PASASQLDA): PASASQLDA;
01818 begin
01819 Result := ZPlainASA9.fill_sqlda( Parameter);
01820 end;
01821
01822 function TZASA9PlainDriver.db_fill_s_sqlda( Parameter: PASASQLDA;
01823 MaxLength: Integer): PASASQLDA;
01824 begin
01825 Result := ZPlainASA9.fill_s_sqlda( Parameter, MaxLength);
01826 end;
01827
01828 procedure TZASA9PlainDriver.db_free_sqlda( Parameter: PASASQLDA);
01829 begin
01830 ZPlainASA9.free_sqlda( Parameter);
01831 end;
01832
01833 procedure TZASA9PlainDriver.db_free_sqlda_noind( Parameter: PASASQLDA);
01834 begin
01835 ZPlainASA9.free_sqlda_noind( Parameter);
01836 end;
01837
01838 procedure TZASA9PlainDriver.db_free_filled_sqlda( Parameter: PASASQLDA);
01839 begin
01840 ZPlainASA9.free_filled_sqlda( Parameter);
01841 end;
01842
01843 procedure TZASA9PlainDriver.db_setconnect( sqlca: PZASASQLCA; ConnStr: PChar);
01844 begin
01845 ZPlainASA9.dbpp_setconnect( sqlca, ConnStr);
01846 end;
01847
01848 procedure TZASA9PlainDriver.db_disconnect( sqlca: PZASASQLCA; ConnStr: PChar);
01849 begin
01850 ZPlainASA9.dbpp_disconnect( sqlca, ConnStr);
01851 end;
01852
01853 procedure TZASA9PlainDriver.db_setoption( sqlca: PZASASQLCA; Temporary: Integer;
01854 User: PChar; Option: PChar; Descriptor: PASASQLDA);
01855 begin
01856 ZPlainASA9.dbpp_setoption( sqlca, Temporary, User, Option, Descriptor);
01857 end;
01858
01859 procedure TZASA9PlainDriver.db_describe_cursor( sqlca: PZASASQLCA;
01860 CursorName: PChar; Descriptor: PASASQLDA; WhatToDesc: LongWord);
01861 begin
01862 ZPlainASA9.dbpp_describe_cursor( sqlca, CursorName, Descriptor, WhatToDesc);
01863 end;
01864
01865 procedure TZASA9PlainDriver.db_prepare_into( sqlca: PZASASQLCA;
01866 ProgName: PChar; StatementNum: PSmallInt; SqlStatement: PChar;
01867 Descriptor1: PASASQLDA; Descriptor2: PASASQLDA; WhatToDesc: LongWord);
01868 begin
01869 ZPlainASA9.dbpp_prepare_into( sqlca, nil, ProgName, StatementNum, SqlStatement,
01870 Descriptor1, Descriptor2, WhatToDesc);
01871 end;
01872
01873 procedure TZASA9PlainDriver.db_prepare_describe( sqlca: PZASASQLCA;
01874 ProgName: PChar; StatementNum: PSmallInt; SqlStatement: PChar;
01875 Descriptor: PASASQLDA; WhatToDesc: LongWord; LongNames: Word);
01876 begin
01877 ZPlainASA9.dbpp_prepare_describe( sqlca, nil, ProgName, StatementNum,
01878 SqlStatement, nil, Descriptor, WhatToDesc, LongNames);
01879 end;
01880
01881 procedure TZASA9PlainDriver.db_declare( sqlca: PZASASQLCA; CursorName: PChar;
01882 StatementName: PChar; ProgName: PChar; StatementNum: PSmallInt;
01883 Options: Word);
01884 begin
01885 ZPlainASA9.dbpp_declare( sqlca, CursorName, StatementName, ProgName,
01886 StatementNum, Options);
01887 end;
01888
01889 procedure TZASA9PlainDriver.db_describe( sqlca: PZASASQLCA; ProgName: PChar;
01890 StatementNum: PSmallInt; Descriptor: PASASQLDA; WhatToDesc: Word);
01891 begin
01892 ZPlainASA9.dbpp_describe( sqlca, nil, ProgName, StatementNum, Descriptor,
01893 WhatToDesc);
01894 end;
01895
01896 procedure TZASA9PlainDriver.db_dropstmt( sqlca: PZASASQLCA;
01897 StatementName: PChar; ProgName: PChar; StatementNum: PSmallInt);
01898 begin
01899 ZPlainASA9.dbpp_dropstmt( sqlca, StatementName, ProgName, StatementNum);
01900 end;
01901
01902 procedure TZASA9PlainDriver.db_open( sqlca: PZASASQLCA; CursorName: PChar;
01903 ProgName: PChar; StatementNum: PSmallInt; Descriptor: PASASQLDA;
01904 BlockSize, IsolationLvl: SmallInt; CursorOptions: Word);
01905 begin
01906 ZPlainASA9.dbpp_open( sqlca, CursorName, nil, ProgName, StatementNum,
01907 Descriptor, BlockSize, IsolationLvl, CursorOptions);
01908 end;
01909
01910 procedure TZASA9PlainDriver.db_close( sqlca: PZASASQLCA; CursorName: PChar);
01911 begin
01912 ZPlainASA9.dbpp_close( sqlca, CursorName);
01913 end;
01914
01915 procedure TZASA9PlainDriver.db_fetch( sqlca: PZASASQLCA; CursorName: PChar;
01916 Offset: Word; RelPositon: Integer; Descriptor: PASASQLDA;
01917 BlockSize: SmallInt; Options: Word);
01918 begin
01919 ZPlainASA9.dbpp_fetch( sqlca, CursorName, Offset, RelPositon, Descriptor,
01920 BlockSize, Options);
01921 end;
01922
01923 procedure TZASA9PlainDriver.db_fetch_array( sqlca: PZASASQLCA;
01924 CursorName: PChar; Offset: Word; RelPositon: Integer;
01925 Descriptor: PASASQLDA; BlockSize: SmallInt; Options, ArrayWidth: Word);
01926 begin
01927 ZPlainASA9.dbpp_fetch_array( sqlca, CursorName, Offset, RelPositon, Descriptor,
01928 BlockSize, Options, ArrayWidth);
01929 end;
01930
01931 procedure TZASA9PlainDriver.db_get_data( sqlca: PZASASQLCA; CursorName: PChar;
01932 ColumnNumber: Word; Offset: Integer; Descriptor: PASASQLDA);
01933 begin
01934 ZPlainASA9.dbpp_get_data( sqlca, CursorName, ColumnNumber, Offset, Descriptor,
01935 0);
01936 end;
01937
01938 procedure TZASA9PlainDriver.db_delete( sqlca: PZASASQLCA; CursorName: PChar);
01939 begin
01940 ZPlainASA9.dbpp_delete( sqlca, CursorName, nil, nil);
01941 end;
01942
01943 procedure TZASA9PlainDriver.db_update( sqlca: PZASASQLCA; CursorName: PChar;
01944 Descriptor: PASASQLDA);
01945 begin
01946 ZPlainASA9.dbpp_update( sqlca, CursorName, Descriptor);
01947 end;
01948
01949 procedure TZASA9PlainDriver.db_put_into( sqlca: PZASASQLCA; CursorName: PChar;
01950 Descriptor: PASASQLDA; ResultDescriptor: PASASQLDA);
01951 begin
01952 ZPlainASA9.dbpp_put_into( sqlca, CursorName, Descriptor, ResultDescriptor);
01953 end;
01954
01955 procedure TZASA9PlainDriver.db_put_array( sqlca: PZASASQLCA; CursorName: PChar;
01956 Descriptor: PASASQLDA; ResultDescriptor: PASASQLDA; Rows: Word);
01957 begin
01958 ZPlainASA9.dbpp_put_array( sqlca, CursorName, Descriptor, ResultDescriptor,
01959 Rows);
01960 end;
01961
01962 procedure TZASA9PlainDriver.db_select( sqlca: PZASASQLCA; ProgName: PChar;
01963 StatementNum: PSmallInt; Descriptor, ResultDescriptor: PASASQLDA);
01964 begin
01965 ZPlainASA9.dbpp_select( sqlca, nil, ProgName, StatementNum, Descriptor,
01966 ResultDescriptor);
01967 end;
01968
01969 procedure TZASA9PlainDriver.db_execute_into( sqlca: PZASASQLCA;
01970 Statement: PChar; ProgName: PChar; StatementNum: PSmallInt;
01971 Descriptor: PASASQLDA; ResultDescriptor: PASASQLDA);
01972 begin
01973 ZPlainASA9.dbpp_execute_into( sqlca, Statement, ProgName, StatementNum,
01974 Descriptor, ResultDescriptor);
01975 end;
01976
01977 procedure TZASA9PlainDriver.db_execute_imm( sqlca: PZASASQLCA;
01978 Statement: PChar);
01979 begin
01980 ZPlainASA9.dbpp_execute_imm( sqlca, Statement, 2);
01981 end;
01982
01983 procedure TZASA9PlainDriver.db_commit( sqlca: PZASASQLCA; TransLevel: LongWord);
01984 begin
01985 ZPlainASA9.dbpp_commit( sqlca, TransLevel);
01986 end;
01987
01988 procedure TZASA9PlainDriver.db_rollback( sqlca: PZASASQLCA;
01989 TransLevel: LongWord);
01990 begin
01991 ZPlainASA9.dbpp_rollback( sqlca, TransLevel);
01992 end;
01993
01994 procedure TZASA9PlainDriver.db_explain( sqlca: PZASASQLCA; CursorName: PChar;
01995 Descriptor: PASASQLDA);
01996 begin
01997 ZPlainASA9.dbpp_explain( sqlca, CursorName, 0, Descriptor);
01998 end;
01999
02000 procedure TZASA9PlainDriver.db_register_callback( sqlca: PZASASQLCA;
02001 CBIdx: ZASA_db_callback_index; Proc: TZASASQLCallback);
02002 begin
02003 ZPlainASA9.db_register_a_callback( sqlca, Integer( CBIdx), Proc);
02004 end;
02005
02006 procedure TZASA9PlainDriver.db_resume( sqlca: PZASASQLCA; CursorName: PChar);
02007 begin
02008 ZPlainASA9.dbpp_resume( sqlca, CursorName);
02009 end;
02010
02011 function TZASA9PlainDriver.db_cancel_request( sqlca: PZASASQLCA): Integer;
02012 begin
02013 Result := ZPlainASA9.db_cancel_request( sqlca);
02014 end;
02015
02016 end.
02017