Delphi 10.4中TDBMemo与InterBase BLOB字段UTF-8字符乱码求助

1. 配置FireDAC连接的Unicode字符集 #

强制FireDAC连接使用UTF-8字符集，匹配InterBase的Unicode支持：

• 可视化操作：打开TFDConnection的Connection Editor → Params标签页，添加/修改以下参数：
  • CharacterSet=UTF8
  • SQLDialect=3（InterBase 2020要求此版本dialect）
  • DriverID=IB
• 代码配置示例：

FDConnection1.Params.Clear;
FDConnection1.Params.Add('DriverID=IB');
FDConnection1.Params.Add('Database=C:\YourDatabase.gdb');
FDConnection1.Params.Add('User_Name=sysdba');
FDConnection1.Params.Add('Password=masterkey');
FDConnection1.Params.Add('CharacterSet=UTF8');
FDConnection1.Params.Add('SQLDialect=3');
FDConnection1.Connected := True;

2. 修正数据库BLOB字段定义 #

将字段改为UTF-8编码的文本BLOB（避免用二进制BLOB subtype 0存储文本），执行以下DDL：

ALTER TABLE biblio 
ALTER COLUMN greekfield 
BLOB SUB_TYPE TEXT CHARACTER SET UTF8;

如果是新建字段，用：

ALTER TABLE biblio
ADD COLUMN greekfield BLOB SUB_TYPE TEXT CHARACTER SET UTF8;

3. 手动控制BLOB的UTF-8读写 #

TDBMemo的Text是UnicodeString，自动绑定会触发FireDAC的字符集转换（可能转成ANSI），需手动处理流：

写入存储 #

var
  UTF8Stream: TStringStream;
  BlobStream: TBLOBStream;
begin
  UTF8Stream := TStringStream.Create(DBMemo1.Text, TEncoding.UTF8);
  try
    FDQuery1.Edit;
    BlobStream := TBLOBStream.Create(FDQuery1.FieldByName('greekfield') as TBlobField, bmWrite);
    try
      UTF8Stream.Position := 0;
      BlobStream.CopyFrom(UTF8Stream, UTF8Stream.Size);
    finally
      BlobStream.Free;
    end;
    FDQuery1.Post;
  finally
    UTF8Stream.Free;
  end;
end;

读取显示 #

var
  BlobStream: TBLOBStream;
  UTF8Stream: TStringStream;
begin
  if not FDQuery1.FieldByName('greekfield').IsNull then
  begin
    BlobStream := TBLOBStream.Create(FDQuery1.FieldByName('greekfield') as TBlobField, bmRead);
    try
      UTF8Stream := TStringStream.Create('', TEncoding.UTF8);
      try
        UTF8Stream.CopyFrom(BlobStream, BlobStream.Size);
        DBMemo1.Text := UTF8Stream.DataString;
      finally
        UTF8Stream.Free;
      end;
    finally
      BlobStream.Free;
    end;
  end
  else
    DBMemo1.Text := '';
end;

若要保留自动绑定，可在TFDQuery的字段编辑器中，将BLOB字段的Transliterate属性设为False，禁用自动字符转换。

4. 解决IBConsole isql的字符集报错 #

isql默认使用系统ANSI字符集，启动时需指定UTF-8：

isql -ch UTF8 -user sysdba -password masterkey C:\YourDatabase.gdb

之后执行更新语句即可正常写入：

update biblio set greekfield = 'ἡλιοδρόμος' where id=10793;

核心注意事项 #

• 禁止用二进制BLOB（subtype 0）存储文本：二进制BLOB不处理字符集，FireDAC会自动转ANSI导致非拉丁字符丢失。
• 确保Delphi项目字符集设置：Project → Options → Building → Delphi Compiler → Compiling中，将Character set设为UTF-8或Unicode。
• 避免手动ANSI转UTF-8：直接用TEncoding.UTF8或TStringStream处理UnicodeString，减少转换错误。

内容的提问来源于stack exchange，提问作者David Badke