Delphi 读写Oracle,中文出现乱码:靠靠

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种是可以的。

展开阅读全文

没有更多推荐了,返回首页