Delphi 读写Oracle，中文出现乱码：靠靠

来源：互联网发布：云计算中间件编辑：程序博客网时间：2024/05/16 03:25

Delphi连接Oracle数据库时，出现中文乱码：靠靠，plsql查询出来的显示正常：

with DmMain.ADOStoredProc1 do
        begin
          Close;
          Parameters.Clear;
          ProcedureName := 'pkg_SynZhongTai.sp_SaleListEnd';
          Parameters.CreateParameter('vSheetID', ftString, pdInput, 100, SSheetID);
          Parameters.CreateParameter('vFlagCode', ftInteger, pdInput, 100, InfoCode);
          //Parameters.CreateParameter('vNote', ftString, pdInput, 1000, InfoMsg);
          //Parameters.CreateParameter('vNote', ftString, pdInput, 1000, UTF8Encode(InfoMsg));

          InfoMsg := TEncoding.GetEncoding('iso-8859-1').GetString(TEncoding.Default.GetBytes(InfoMsg));
          Parameters.CreateParameter('vNote', ftString, pdInput, 1000, UTF8Encode(InfoMsg));
          ExecProc;
        end;

解决方法：

1、ConnectString后增加：charset=AMERICAN_AMERICA.WE8ISO8859P1

2、把参数类型由ftString 改为：ftWideString

3、中文值：UTF8Encode(InfoMsg)

4、重新编码：result := TEncoding.GetEncoding('iso-8859-1').GetString(TEncoding.Default.GetBytes(value));

我试了1、2、3 种，不行，有人说可以的，不知道什么原因，第4种是可以的。

阅读全文

1 0