[结]新的问题急急，汉字被截断。**

alang

客户端执行效果

alang

我又做了一个测试
Oracle数据库装在 A机器上，操作系统是 RedHat Linux 4企业版
X3服务端安装在 B机器上，操作系统也是 RedHat Linux 4企业版
执行存储过程，结果也是正确的，汉字显示正常

dragonsoft

那就见鬼了，我看看还是你们到公安部，可以连上公安网，看看我们的真实环境试试，可以由我们的同事带你去公安部。

alang

楼主，在你的环境上，做一个简单的例子看看呢，比如就用10楼的存储过程，避免因为存储过程本身的问题造成的错误

dragonsoft

我们在X3平台上（部署在linux）做了一个测试，调用存储过程从数据库读取一个字段（用最简单的select语句），将其值显示在文本框中，结果字段中包含中文的都显示成??，数字和字母都能正常显示。
以上情况表明，汉字被截断与存储过程本身没有关系。

dragonsoft

顶一下。

alang

我又做了一个存储过程，
CREATE OR REPLACE PROCEDURE "TEST_PROC1" (inprm in varchar2,
inprm1 in varchar2,
inprm2 in varchar2,
outprm out varchar2) is
begin
  INSERT INTO TSYSINFO
  (FINFOID, FINFOSCOPE , FCLIENTACCOUNT , FINFOVALUE )
  VALUES
  (inprm , inprm1, inprm2, inprm2 || inprm1 );
  outprm:=inprm || inprm1 || inprm2;
end TEST_PROC1;
在平台上运行，插入表中的数据是对的，但是返回参数中汉字显示?
楼主的现象跟我的一样吗？

alang

楼主可以不用输出参数，用返回结果集的方式
＝＝＝＝＝＝＝＝＝＝＝＝
create or replace package pak_test as
-- Public type declarations
  type cur_test is ref CURSOR;
end;

CREATE OR REPLACE PROCEDURE TEST_PROC2 (inprm in varchar2,
inprm1 in varchar2,
inprm2 in varchar2,
outprm out pak_test.cur_test) is
begin
  INSERT INTO TSYSINFO
  (FINFOID, FINFOSCOPE , FCLIENTACCOUNT , FINFOVALUE )
  VALUES
  (inprm , inprm1, inprm2, inprm2 || inprm1 );
  open outprm for select inprm || inprm1 || inprm2 from DUAL;
end TEST_PROC2;

alang

object DataSetCCGCSJJ1: TStoredProcDataSet
  Relation.DeleteRule = krNoAction
  Relation.UpdateRule = krNoAction
  ID = 'CCGCSJJ1'
  DisplayName = #23384#20648#36807#31243#25968#25454#38598'1'
  Database.Reference = '@Biz:\OPERATION\OperationDB.Database'
  CheckConstraints = <>
  Params = <
    item
      DataType = ftString
      Name = 'INPRM'
      ParamType = ptInput
    end
    item
      DataType = ftString
      Name = 'INPRM1'
      ParamType = ptInput
    end
    item
      DataType = ftString
      Name = 'INPRM2'
      ParamType = ptInput
    end
    item
      DataType = ftCursor
      Name = 'OUTPRM'
      ParamType = ptOutput
    end>
  StoredProcName = 'TEST_PROC2'
  Left = 448
  Top = 136
end

alang

procedure TCT1.Button2Click(Sender: TObject);
begin
  DataSetCCGCSJJ1.Params.ParamByName('inprm' ).AsString := Edit1.Text;
  DataSetCCGCSJJ1.Params.ParamByName('inprm1').AsString := Edit2.Text;
  DataSetCCGCSJJ1.Params.ParamByName('inprm2').AsString := Edit3.Text;
  DataSetCCGCSJJ1.Open;
  Dialogs.Showmessage(DataSetCCGCSJJ1.Fields[0].AsString);
end;