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