盒子论坛 v2.1

修改ZPlainSqLiteDriver.pas

procedure TZSQLiteBaseDriver.LoadCodePages;  //Egonhugeist
begin
  { MultiByte }
  AddCodePage('UTF-8', 1, ceUTF8, zCP_UTF8);
  AddCodePage('UTF-16le', 2, ceUTF16, zCP_UTF16, 'UTF-8'); //Setting this will be ignored by actual Excute of Plaindriver
  AddCodePage('UTF-16be', 3, ceUTF16, zCP_UTF16BE, 'UTF-8'); //Setting this will be ignored by actual Excute of Plaindriver
  AddCodePage('UTF-16', 4, ceUTF16, zCP_UTF16, 'UTF-8'); //Setting this will be ignored by actual Excute of Plaindriver
  AddCodePage('GBK', 3, ceAnsi, 936); {GB2312-80 Simplified Chinese}
end;

修改ZDbcSqLite.pas

procedure TZSQLiteConnection.InternalCreate;
begin
  FMetadata := TZSQLiteDatabaseMetadata.Create(Self, Url);
  AutoCommit := True;
  TransactIsolationLevel := tiNone;
  // CheckCharEncoding('UTF-8');
  Open;
end;

procedure TZSQLiteConnection.Open;
var
  ErrorCode: Integer;
  ErrorMessage: PAnsiChar;
  LogMessage: string;
  SQL: AnsiString;
  Timeout_ms: Integer;
begin
  if not Closed then
    Exit;
  ErrorMessage := '';

  LogMessage := Format('CONNECT TO "%s" AS USER "%s"', [Database, User]);

{$IFDEF UNICODE}
  FHandle := GetPlainDriver.Open(PAnsiChar(AnsiString(UTF8Encode(Database))), 0, ErrorMessage);
{$ELSE}
  FHandle := GetPlainDriver.Open(PAnsiChar(Database), 0, ErrorMessage);
{$ENDIF}

  if FHandle = nil then
  begin
    CheckSQLiteError(GetPlainDriver, FHandle, SQLITE_ERROR, ErrorMessage,
      lcConnect, LogMessage);
  end;
  DriverManager.LogMessage(lcConnect, PlainDriver.GetProtocol, LogMessage);

  { Turn on encryption if requested }
  if StrToBoolEx(Info.Values['encrypted']) then
  begin
    {$IFDEF UNICODE}
    ErrorCode := GetPlainDriver.Key(FHandle, PAnsiChar(UTF8String(Password)), {$IFDEF WITH_STRLEN_DEPRECATED}AnsiStrings.{$ENDIF}StrLen(PAnsiChar(UTF8String(Password))));
    {$ELSE}
    ErrorCode := GetPlainDriver.Key(FHandle, PAnsiChar(Password), StrLen(PAnsiChar(Password)));
    {$ENDIF}
    CheckSQLiteError(GetPlainDriver, FHandle, ErrorCode, nil, lcConnect, 'SQLite.Key');
  end;

  { Set busy timeout if requested }
  Timeout_ms := StrToIntDef(Info.Values['busytimeout'], -1);
  if Timeout_ms >= 0 then
  begin
    GetPlainDriver.BusyTimeout(FHandle, Timeout_ms);
  end;

  try
    if ( FClientCodePage <> '' ) then
    begin
        SQL := 'PRAGMA encoding = ''UTF-8''';
        ErrorCode := GetPlainDriver.Execute(FHandle, PAnsiChar(SQL),
          nil, nil, ErrorMessage);
        CheckSQLiteError(GetPlainDriver, FHandle, ErrorCode, ErrorMessage, lcExecute, String(SQL));
    end;
----------------------------------------------
这家伙很懒，什么都没有留下。

信息

登陆以后才能回复