📄 sqlite3obj.inc
字号:
Const
__Days: Array[0..12 - 1] Of integer = (
31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31
);
__YDays: Array[0..13 - 1] Of integer = (
0, 31, 59, 90, 120, 151, 181, 212, 243, 273, 304, 334, 365
);
Var
__HandlerPtr: Pointer;
__turboFloat: integer = 0;
__ostype: integer;
___pCallAtExitProcs: Pointer = Nil;
__daylight: integer = 1;
__timezone: integer = 5 * 60 * 60;
{$L 'OBJ\sqlite3.6.11.obj'}
{$L 'OBJ\_tzset.obj'} //重复 2
{$L 'OBJ\isctype.obj'} //重复 3
{$L 'OBJ\bigctype.obj'}
{.$L 'OBJ\_ll.obj'}
{$L 'OBJ\_ftoul.obj'}
{$L 'OBJ\atol.obj'}
{$L 'OBJ\mbisspc.OBJ'}
{$L 'OBJ\clocale.OBJ'}
{.$L 'OBJ\ftol.OBJ'}
{.$L 'OBJ\memset.obj'}//_memset
{.$L 'OBJ\strcmp.obj'}//可略
{.$L 'OBJ\strncmp.obj'}
{.$L 'OBJ\strlen.obj'}
{.$L 'OBJ\memcpy.obj'}//_memcpy
{.$L 'OBJ\memmove.obj'}//_memmove
{.$L 'OBJ\memcmp.obj'}
{$L 'OBJ\hrdir_mf.obj'} //_malloc _free
{$L 'OBJ\hrdir_r.obj'}
{$L 'OBJ\hrdir_s.obj'}
{$L 'OBJ\hrdir_b.obj'}
{$L 'OBJ\realloc.obj'} //__internal_realloc
{$L 'OBJ\heap.obj'}
{$L 'OBJ\virtmem.obj'}
{$L 'OBJ\mbctype.obj'} //重复 1
{$L 'OBJ\errormsg.obj'}
{$L 'OBJ\exit.obj'}
{$L 'OBJ\ermsghlp.obj'}
{$L 'OBJ\mbsrchr.obj'}
{$L 'OBJ\mbctype.obj'} //重复 1
{.$L 'OBJ\patexit.obj'}//__pCallAtExitProcs
{$L 'OBJ\initexit.obj'}
{.$L 'OBJ\platform.obj'}//__ostype
{$L 'OBJ\gmtime.obj'}
{.$L 'OBJ\tzdata.obj'}//__daylight __timezone
{$L 'OBJ\timefunc.obj'}
{.$L 'OBJ\timedata.obj'}//_Days _YDays
{$L 'OBJ\tzset.obj'}
{$L 'OBJ\getenv.obj'}
{$L 'OBJ\mbisdgt.obj'}
{$L 'OBJ\mbsnbcpy.obj'}
{$L 'OBJ\mbisalp.obj'}
{$L 'OBJ\mbsnbicm.obj'}
{$L 'OBJ\setenvp.obj'}
{$L 'OBJ\calloc.obj'}
{$L 'OBJ\globals.obj'}
{$L 'OBJ\is.obj'}
{$L 'OBJ\isctype.obj'} //重复 3
{$L 'OBJ\_tzset.obj'} //重复 2
{$L 'OBJ\ltoupper.OBJ'}
{$L 'OBJ\ltolower.OBJ'}
{$L 'OBJ\clower.OBJ'}
{$L 'OBJ\cupper.OBJ'}
Function _wsprintfA: integer; External 'user32.dll' Name 'wsprintfA';
Procedure RtlUnwind; External 'NtDll.dll' Name 'RtlUnwind';
{$IFDEF UseSQLiteCrypt}
Function _sqlite3_key(db: TSQLiteDB; Key: PAnsiChar; KeyLen: integer): integer; Cdecl; External;
Function _sqlite3_rekey(db: TSQLiteDB; Key: PAnsiChar; KeyLen: integer): integer; Cdecl; External;
{$ENDIF}
Function _sqlite3_aggregate_context(pCtx: TSQLite_Context; nBytes: integer): Pointer; Cdecl; External;
//Functions _qlite3_aggregate_count(pCtx: sqlite3_context): Integer; deprecated;
Function _sqlite3_auto_extension(xEntryPoint: Pointer): integer; Cdecl; External;
Function _sqlite3_bind_blob(hStmt: TSQLiteStmt; ParamNum: integer; ptrData: Pointer; numBytes: integer; ptrDestructor: Pointer): integer; Cdecl; External;
Function _sqlite3_bind_double(hStmt: TSQLiteStmt; ParamNum: integer; ptrData: double): integer; Cdecl; External;
Function _sqlite3_bind_int(hStmt: TSQLiteStmt; ParamNum: integer; ptrData: integer): integer; Cdecl; External;
Function _sqlite3_bind_int64(hStmt: TSQLiteStmt; ParamNum: integer; ptrData: int64): integer; Cdecl; External;
Function _sqlite3_bind_null(hStmt: TSQLiteStmt; ParamNum: integer): integer; Cdecl; External;
Function _sqlite3_bind_text(hStmt: TSQLiteStmt; ParamNum: integer; ptrData: PAnsiChar; numBytes: integer; ptrDestructor: Pointer): integer; Cdecl; External;
Function _sqlite3_bind_text16(hStmt: TSQLiteStmt; ParamNum: integer; ptrData: PWideChar; numBytes: integer; ptrDestructor: Pointer): integer; Cdecl; External;
Function _sqlite3_bind_value(hStmt: TSQLiteStmt; ParamNum: integer; ptrData: PPointer): integer; Cdecl; External;
Function _sqlite3_bind_zeroblob(hStmt: TSQLiteStmt; ParamNum: integer; ptrData: integer): integer; Cdecl; External;
Function _sqlite3_bind_parameter_count(hStmt: TSQLiteStmt): integer; Cdecl; External;
Function _sqlite3_bind_parameter_index(hStmt: TSQLiteStmt; Const zName: PAnsiChar): integer; Cdecl; External;
Function _sqlite3_bind_parameter_name(hStmt: TSQLiteStmt; n: integer): PAnsiChar; Cdecl; External;
Function _sqlite3_blob_bytes(pBlob: TSQLiteBlob): integer; Cdecl; External;
Function _sqlite3_blob_close(pBlob: TSQLiteBlob): integer; Cdecl; External;
Function _sqlite3_blob_open(db: TSQLiteDB; Const zDb: PAnsiChar; Const zTable: PAnsiChar; Const zColumn: PAnsiChar; iRow: int64; Flags: integer; ppBlob: TSQLiteBlob): integer; Cdecl; External;
Function _sqlite3_blob_read(pBlob: TSQLiteBlob; z: Pointer; n: integer; iOffset: integer): integer; Cdecl; External;
Function _sqlite3_blob_write(pBlob: TSQLiteBlob; Const z: Pointer; n: integer; iOffset: integer): integer; Cdecl; External;
Procedure _sqlite3_busy_handler(db: TSQLiteDB; Callback: TSQLite_Busy_Callback; Sender: TObject); Cdecl; External;
Procedure _sqlite3_busy_timeout(db: TSQLiteDB; TimeOut: integer); Cdecl; External;
Function _sqlite3_changes(db: TSQLiteDB): integer; Cdecl; External;
Function _sqlite3_clear_bindings(hStmt: TSQLiteStmt): integer; Cdecl; External;
Function _sqlite3_close(db: TSQLiteDB): integer; Cdecl; External;
Function _sqlite3_collation_needed(db: TSQLiteDB; UserData: Pointer; Callback: TSQLite_Collation_Needed_Callback): integer; Cdecl; External;
Function _sqlite3_collation_needed16(db: TSQLiteDB; UserData: Pointer; Callback: TSQLite_Collation_Needed16_Callback): integer; Cdecl; External;
Function _sqlite3_column_count(hStmt: TSQLiteStmt): integer; Cdecl; External;
Function _sqlite3_column_blob(hStmt: TSQLiteStmt; ColNum: integer): Pointer; Cdecl; External;
Function _sqlite3_column_bytes(hStmt: TSQLiteStmt; ColNum: integer): integer; Cdecl; External;
Function _sqlite3_column_bytes16(hStmt: TSQLiteStmt; ColNum: integer): integer; Cdecl; External;
Function _sqlite3_column_double(hStmt: TSQLiteStmt; ColNum: integer): double; Cdecl; External;
Function _sqlite3_column_int(hStmt: TSQLiteStmt; ColNum: integer): integer; Cdecl; External;
Function _sqlite3_column_int64(hStmt: TSQLiteStmt; ColNum: integer): int64; Cdecl; External;
Function _sqlite3_column_text(hStmt: TSQLiteStmt; ColNum: integer): PAnsiChar; Cdecl; External;
Function _sqlite3_column_text16(hStmt: TSQLiteStmt; ColNum: integer): PWideChar; Cdecl; External;
Function _sqlite3_column_type(hStmt: TSQLiteStmt; ColNum: integer): integer; Cdecl; External;
Function _sqlite3_column_value(hStmt: TSQLiteStmt; ColNum: integer): Pointer; Cdecl; External;
Function _sqlite3_column_name(hStmt: TSQLiteStmt; ColNum: integer): PAnsiChar; Cdecl; External;
Function _sqlite3_column_name16(hStmt: TSQLiteStmt; ColNum: integer): PWideChar; Cdecl; External;
Function _sqlite3_column_decltype(hStmt: TSQLiteStmt; ColNum: integer): PAnsiChar; Cdecl; External;
Function _sqlite3_column_decltype16(hStmt: TSQLiteStmt; ColNum: integer): PWideChar; Cdecl; External;
Function _sqlite3_column_database_name(hStmt: TSQLiteStmt; ColNum: integer): PAnsiChar; Cdecl; External;
Function _sqlite3_column_database_name16(hStmt: TSQLiteStmt; ColNum: integer): PWideChar; Cdecl; External;
Function _sqlite3_column_table_name(hStmt: TSQLiteStmt; ColNum: integer): PAnsiChar; Cdecl; External;
Function _sqlite3_column_table_name16(hStmt: TSQLiteStmt; ColNum: integer): PWideChar; Cdecl; External;
Function _sqlite3_column_origin_name(hStmt: TSQLiteStmt; ColNum: integer): PAnsiChar; Cdecl; External;
Function _sqlite3_column_origin_name16(hStmt: TSQLiteStmt; ColNum: integer): PWideChar; Cdecl; External;
Function _sqlite3_commit_hook(db: TSQLiteDB; Callback: TSQLite_Commit_Callback; pArg: Pointer): Pointer; Cdecl; External;
Function _sqlite3_complete(P: PAnsiChar): boolean; Cdecl; External;
Function _sqlite3_complete16(P: PWideChar): boolean; Cdecl; External;
Function _sqlite3_context_db_handle(pCtx: TSQLite_Context): TSQLiteDB; Cdecl; External;
Function _sqlite3_create_collation(db: TSQLiteDB; Const zName: PAnsiChar; eTextRep: integer; UserData: Pointer; xCompare: TSQLite_Collation_Callback): integer; Cdecl; External;
Function _sqlite3_create_collation16(db: TSQLiteDB; Const zName: PWideChar; eTextRep: integer; UserData: Pointer; xCompare: TSQLite_Collation_Callback): integer; Cdecl; External;
Function _sqlite3_create_collation_v2(db: TSQLiteDB; Const zName: PAnsiChar; eTextRep: integer; UserData: Pointer; xCompare: TSQLite_Collation_Callback; xDestroy: TSQLite_Collation_Destructor): integer; Cdecl; External;
Function _sqlite3_create_function(db: TSQLiteDB; zFunctionName: PAnsiChar; nArg: integer; eTextRep: integer; UserData: Pointer; xFunc: TSQLite_Func_Callback; xStep: TSQLite_Step_Callback; xFinal: TSQLite_Final_Callback): integer; Cdecl; External;
Function _sqlite3_create_function16(db: TSQLiteDB; zFunctionName: PWideChar; nArg: integer; eTextRep: integer; UserData: Pointer; xFunc: TSQLite_Func_Callback; xStep: TSQLite_Step_Callback; xFinal: TSQLite_Final_Callback): integer; Cdecl; External;
Function _sqlite3_create_module(db: TSQLiteDB; Const zName: PAnsiChar; Const Module: PSQLite3_Module; UserData: Pointer): integer; Cdecl; External;
Function _sqlite3_create_module_v2(db: TSQLiteDB; Const zName: PAnsiChar; Const Module: PSQLite3_Module; UserData: Pointer; xDestroy: TSQLite_Module_Destructor): integer; Cdecl; External;
Function _sqlite3_data_count(hStmt: TSQLiteStmt): integer; Cdecl; External;
Function _sqlite3_db_handle(hStmt: TSQLiteStmt): TSQLiteDB; Cdecl; External;
Function _sqlite3_db_mutex(db: PSQLiteDB): PSQLite3_Mutex_Ptr; Cdecl; External;
Function _sqlite3_db_status(db: TSQLiteDB; op: integer; pCurrent: PInteger; pHighwater: PInteger; resetFlag: integer): integer; Cdecl; External;
Function _sqlite3_declare_vtab(db: TSQLiteDB; Const zCreateTable: PAnsiChar): integer; Cdecl; External;
Function _sqlite3_enable_load_extension(db: TSQLiteDB; onoff: integer): integer; Cdecl; External;
Function _sqlite3_enable_shared_cache(Value: integer): integer; Cdecl; External;
Function _sqlite3_errcode(db: TSQLiteDB): integer; Cdecl; External;
Function _sqlite3_errmsg(db: TSQLiteDB): PAnsiChar; Cdecl; External;
Function _sqlite3_errmsg16(db: TSQLiteDB): PWideChar; Cdecl; External;
Function _sqlite3_exec(db: TSQLiteDB; SQLStatement: PAnsiChar; Callback: TSQLite_Exec_Callback; Sender: TObject; Var ErrMsg: PAnsiChar): integer; Cdecl; External;
//function _sqlite3_expired( pStmt: sqlite3_ptr): Integer; deprecated;
Function _sqlite3_extended_errcode(db: TSQLiteDB): integer; Cdecl; External;
Function _sqlite3_extended_result_codes(db: TSQLiteDB; onoff: integer): integer; Cdecl; External;
Function _sqlite3_file_control(db: PSQLiteDB; Const zDbName: PAnsiChar; op: integer; pArg: Pointer): integer; Cdecl; External;
Function _sqlite3_finalize(hStmt: TSQLiteStmt): integer; Cdecl; External;
Procedure _sqlite3_free(P: PAnsiChar); Cdecl; External;
Procedure _sqlite3_free_table(Table: TSQLiteResult); Cdecl; External;
Function _sqlite3_get_autocommit(db: PSQLiteDB): integer; Cdecl; External;
Function _sqlite3_get_auxdata(pCtx: TSQLite_Context; nArg: integer): Pointer; Cdecl; External;
Function _sqlite3_get_table(db: TSQLiteDB; SQLStatement: PAnsiChar; Var ResultPtr: TSQLiteResult; Var RowCount: Cardinal; Var ColCount: Cardinal; Var ErrMsg: PAnsiChar): integer; Cdecl; External;
//function _sqlite3_global_recover : Integer; deprecated;
Function _sqlite3_initialize: integer; Cdecl; External;
Procedure _sqlite3_interrupt(db: TSQLiteDB); Cdecl; External;
Function _sqlite3_last_insert_rowid(db: TSQLiteDB): int64; Cdecl; External;
Function _sqlite3_libversion(): PAnsiChar; Cdecl; External;
Function _sqlite3_libversion_number(): integer; Cdecl; External;
Function _sqlite3_limit(db: TSQLiteDB; ID: integer; newVal: integer): integer; Cdecl; External;
Function _sqlite3_load_extension(db: TSQLiteDB; Const zFile, zProc: PAnsiChar; Var pzErrMsg: PAnsiChar): integer; Cdecl; External;
Function _sqlite3_malloc(nByte: integer): Pointer; Cdecl; External;
//function _sqlite3_memory_alarm( xCallback: TSQLite3_Memory_Alarm_Callback; pArg: Pointer; iThreshold: Int64): Integer; deprecated;
//function _sqlite3_memory_highwater( resetFlag: Integer): Int64; deprecated;
//function _sqlite3_memory_used: Int64; deprecated;
//function _sqlite3_mprintf( zFormat: PAnsiChar): PAnsiChar; cdecl; varargs;
Function _sqlite3_mutex_alloc(iType: integer): PSQLite3_Mutex_Ptr; Cdecl; External;
Procedure _sqlite3_mutex_enter(P: PSQLite3_Mutex_Ptr); Cdecl; External;
Procedure _sqlite3_mutex_free(P: PSQLite3_Mutex_Ptr); Cdecl; External;
Procedure _sqlite3_mutex_leave(P: PSQLite3_Mutex_Ptr); Cdecl; External;
Function _sqlite3_mutex_try(P: PSQLite3_Mutex_Ptr): integer; Cdecl; External;
Function _sqlite3_next_stmt(db: TSQLiteDB; hStmt: TSQLiteStmt): TSQLiteStmt; Cdecl; External;
Function _sqlite3_open(dbname: PAnsiChar; Var db: TSQLiteDB): integer; Cdecl; External;
Function _sqlite3_open16(dbname: PWideChar; Var db: TSQLiteDB): integer; Cdecl; External;
Function _sqlite3_open_v2(dbname: PAnsiChar; Var db: TSQLiteDB; Flags: integer; Const zVfs: PAnsiChar): integer; Cdecl; External;
Function _sqlite3_os_end: integer; Cdecl; External;
Function _sqlite3_os_init: integer; Cdecl; External;
Function _sqlite3_overload_function(db: TSQLiteDB; Const zFuncName: PAnsiChar; nArg: integer): integer; Cdecl; External;
Function _sqlite3_prepare(db: TSQLiteDB; SQLStatement: PAnsiChar; nBytes: integer; Var hStmt: TSQLiteStmt; Var pzTail: PAnsiChar): integer; Cdecl; External;
Function _sqlite3_prepare_v2(db: TSQLiteDB; SQLStatement: PAnsiChar; nBytes: integer; Var hStmt: TSQLiteStmt; Var pzTail: PAnsiChar): integer; Cdecl; External;
Function _sqlite3_prepare16(db: TSQLiteDB; SQLStatement: PAnsiChar; nBytes: integer; Var hStmt: TSQLiteStmt; Var pzTail: PAnsiChar): integer; Cdecl; External;
Function _sqlite3_prepare16_v2(db: TSQLiteDB; SQLStatement: PAnsiChar; nBytes: integer; Var hStmt: TSQLiteStmt; Var pzTail: PAnsiChar): integer; Cdecl; External;
Function _sqlite3_profile(db: TSQLiteDB; Callback: TSQLite_Profile_Callback; UserData: Pointer): Pointer; Cdecl; External;
Procedure _sqlite3_progress_handler(db: TSQLiteDB; n: integer; Callback: TSQLite_Progress_Callback; UserData: Pointer); Cdecl; External;
Procedure _sqlite3_randomness(n: integer; P: Pointer); Cdecl; External;
Function _sqlite3_realloc(POld: Pointer; nByte: integer): Pointer; Cdecl; External;
Function _sqlite3_release_memory(n: integer): integer; Cdecl; External;
Function _sqlite3_reset(hStmt: TSQLiteStmt): integer; Cdecl; External;
Procedure _sqlite3_reset_auto_extension; Cdecl; External;
Procedure _sqlite3_result_blob(pCtx: TSQLite_Context; Const Data: Pointer; nData: integer; xDestroy: TSQLite_Result_Destructor); Cdecl; External;
Procedure _sqlite3_result_double(pCtx: TSQLite_Context; Const Data: double); Cdecl; External;
Procedure _sqlite3_result_error(pCtx: TSQLite_Context; Const Data: PAnsiChar; nData: integer); Cdecl; External;
Procedure _sqlite3_result_error16(pCtx: TSQLite_Context; Const Data: PWideChar; nData: integer); Cdecl; External;
Procedure _sqlite3_result_error_code(Context: Pointer; ErrCode: integer); Cdecl; External;
Procedure _sqlite3_result_error_nomem(Context: Pointer); Cdecl; External;
Procedure _sqlite3_result_error_toobig(Context: Pointer); Cdecl; External;
Procedure _sqlite3_result_int(pCtx: TSQLite_Context; Const Data: integer); Cdecl; External;
Procedure _sqlite3_result_int64(pCtx: TSQLite_Context; Const Data: int64); Cdecl; External;
Procedure _sqlite3_result_null(Context: Pointer); Cdecl; External;
Procedure _sqlite3_result_text(pCtx: TSQLite_Context; Const Data: PAnsiChar; nData: integer; xDestroy: TSQLite_Result_Destructor); Cdecl; External;
Procedure _sqlite3_result_text16(pCtx: TSQLite_Context; Const Data: PWideChar; nData: integer; xDestroy: TSQLite_Result_Destructor); Cdecl; External;
Procedure _sqlite3_result_text16be(pCtx: TSQLite_Context; Const Data: PWideChar; nData: integer; xDestroy: TSQLite_Result_Destructor); Cdecl; External;
Procedure _sqlite3_result_text16le(pCtx: TSQLite_Context; Const Data: PWideChar; nData: integer; xDestroy: TSQLite_Result_Destructor); Cdecl; External;
Procedure _sqlite3_result_value(pCtx: Pointer; pValue: Pointer); Cdecl; External;
Procedure _sqlite3_result_zeroblob(pCtx: TSQLite_Context; n: integer); Cdecl; External;
Function _sqlite3_rollback_hook(db: TSQLiteDB; Callback: TSQLite_Rollback_Callback; pArg: Pointer): Pointer; Cdecl; External;
Function _sqlite3_set_authorizer(db: TSQLiteDB; Callback: TSQLite_Authorizer_Callback; UserData: Pointer): integer; Cdecl; External;
Procedure _sqlite3_set_auxdata(pCtx: TSQLite_Context; nArg: integer; paux: Pointer; xDestroy: TSQLite_AuxData_Destructor); Cdecl; External;
Function _sqlite3_shutdown: integer; Cdecl; External;
Function _sqlite3_sleep(ms: integer): integer; Cdecl; External;
//function _sqlite3_snprintf( BufSize: Integer; zBuf: PAnsiChar; zFormat: PAnsiChar): PAnsiChar; cdecl; varargs;
Procedure _sqlite3_soft_heap_limit(n: integer); Cdecl; External;
Function _sqlite3_sql(hStmt: TSQLiteStmt): PAnsiChar; Cdecl; External;
Function _sqlite3_status(op: integer; pCurrent: PInteger; pHighwater: PInteger; resetFlag: integer): integer; Cdecl; External;
Function _sqlite3_step(hStmt: TSQLiteStmt): integer; Cdecl; External;
Function _sqlite3_stmt_status(hStmt: TSQLiteStmt; op: integer; resetFlg: integer): integer; Cdecl; External;
Function _sqlite3_table_column_metadata(db: TSQLiteDB; Const zDbName: PAnsiChar; Const zTableName: PAnsiChar; Const zColumnName: PAnsiChar; Const pzDataType: PAnsiChar; Const pzCollSeq: PAnsiChar; pNotNull: PInteger; pPrimaryKey: PInteger; pAutoInc: PInteger): integer; Cdecl; External;
//procedure _sqlite3_thread_cleanup; deprecated;
Function _sqlite3_threadsafe: integer; Cdecl; External;
Function _sqlite3_total_changes(db: TSQLiteDB): integer; Cdecl; External;
Function _sqlite3_trace(db: TSQLiteDB; Callback: TSQLite_Trace_Callback; UserData: Pointer): Pointer; Cdecl; External;
//function _sqlite3_transfer_bindings( pFromStmt: sqlite3_stmt; pToStmt: sqlite3_stmt): Integer; deprecated;
Function _sqlite3_update_hook(db: TSQLiteDB; xCallback: TSQLite_Update_Callback; Part: Pointer): Pointer; Cdecl; External;
Function _sqlite3_user_data(pCtx: TSQLite_Context): Pointer; Cdecl; External;
Function _sqlite3_value_blob(Value: Pointer): Pointer; Cdecl; External;
Function _sqlite3_value_bytes(Value: Pointer): integer; Cdecl; External;
Function _sqlite3_value_bytes16(Value: Pointer): integer; Cdecl; External;
Function _sqlite3_value_double(Value: Pointer): double; Cdecl; External;
Function _sqlite3_value_int(Value: Pointer): integer; Cdecl; External;
Function _sqlite3_value_int64(Value: Pointer): int64; Cdecl; External;
Function _sqlite3_value_numeric_type(Value: Pointer): integer; Cdecl; External;
Function _sqlite3_value_text(Value: Pointer): PAnsiChar; Cdecl; External;
Function _sqlite3_value_text16(Value: Pointer): PWideChar; Cdecl; External;
Function _sqlite3_value_text16be(Value: Pointer): PWideChar; Cdecl; External;
Function _sqlite3_value_text16le(Value: Pointer): PWideChar; Cdecl; External;
Function _sqlite3_value_type(Value: Pointer): integer; Cdecl; External;
Function _sqlite3_vfs_find(Const zVfsName: PAnsiChar): PSQLite3_Vfs_Ptr; Cdecl; External;
Function _sqlite3_vfs_register(pVfs: PSQLite3_Vfs_Ptr; makeDflt: integer): integer; Cdecl; External;
Function _sqlite3_vfs_unregister(pVfs: PSQLite3_Vfs_Ptr): integer; Cdecl; External;
Function _sqlite3_win32_mbcs_to_utf8(zFilename: PAnsiChar): PAnsiChar; Cdecl; External;
//For SQLite 3.6.11
{
Function _sqlite3_backup_init(pDest: TSQLiteDB; zDestName: PAnsiChar; pSource: TSQLiteDB; zSourceName: PAnsiChar): TSQLiteBackup; cdecl; External;
Function _sqlite3_backup_step(p: TSQLiteBackup; nPage: Integer): Integer; cdecl; External;
Function _sqlite3_backup_finish(p: TSQLiteBackup): Integer; cdecl; External;
Function _sqlite3_backup_remaining(p: TSQLiteBackup): Integer; cdecl; External;
Function _sqlite3_backup_pagecount(p: TSQLiteBackup): Integer; cdecl; External;
}
{
function _malloc(Size: Integer): Pointer; cdecl;
begin
GetMem(Result, Size);
end;
procedure _free(Block: Pointer); cdecl;
begin
FreeMem(Block);
end;
}
Procedure __llmul;
Asm
push edx
push eax
mov eax, [esp+16]
mul dword ptr [esp]
mov ecx, eax
mov eax, [esp+4]
mul dword ptr [esp+12]
add ecx, eax
mov eax, [esp]
mul dword ptr [esp+12]
add edx, ecx
pop ecx
pop ecx
ret 8
End;
Procedure __lldiv;
Asm
push ebp
push ebx
push esi
push edi
xor edi,edi
mov ebx,20[esp] // get the divisor low dword
mov ecx,24[esp] // get the divisor high dword
or ecx,ecx
jnz @__lldiv@slow_ldiv // both high words are zero
or edx,edx
jz @__lldiv@quick_ldiv
or ebx,ebx
jz @__lldiv@quick_ldiv // if ecx:ebx == 0 force a zero divide
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -