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