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

dragonsoft

我这边的2401版本，用了存储过程，我有一部分文字通过存储过程生成编号写到数据库，竟然汉字被截断，没有了，只有数字的，是否你们平台对linux不支持呢，websphere+linux（X64、i386）的数据库oracle 10G的环境。请问是怎么回事，用你们的平台接二连三出现这么多怪问题，一个没有解决又出来一个新问题。怎么搞啊

alang

有关存储过程，请参考 http://bbs.justep.com/forum.php?mod=viewthread&tid=21206
如果还有问题，请提供楼主的存储过程和平台上的调用方法

dragonsoft

通过测试，是如果oracle返回的汉字都会被截断取不到汉字，经查资料是因为linux的汉字编码是unicode，数据库是gbk，X3平台使用的是什么汉字编码，请测试linux下调用oracle存储过程的汉字返回问题吧

dragonsoft

顶一下

alang

楼主给一个你测试的例子，我们找环境重现一下

yancm

平台使用的是unicode编码。可能是数据库编码和linux编码不一致导致的。提供一下您的存储过程。做一个简化版本就可以。我们想一下解决方案。

dragonsoft

oracle存储过程是
create or replace procedure getidserial(i_type varchar2,i_prefix varchar2,i_len int,o_serial out varchar2) is
      idno number;
      i int;
      fs varchar2(120);
      fno varchar2(120);
    begin
       fs := '';
       FOR I IN 1..i_len LOOP
         fs := fs||'0';
       end loop;

       select count(*) into i from t_sys_autoid where id_type=i_type and id_prefix=i_prefix;

       if i=0 then
          insert into t_sys_autoid (id_type,id_prefix,id_value,AccessTime) values (i_type,i_prefix,2,sysdate);
          select i_prefix||ltrim(to_char(1,fs)) into fno from dual;
          commit;
       else
          --select加锁
          select id_value,i_prefix||ltrim(to_char(id_value,fs)) into  idno,fno
            from t_sys_autoid  where id_type=i_type and id_prefix=i_prefix for update;
          --号表更新
          update t_sys_autoid set id_value = id_value + 1,AccessTime=sysdate where id_type=i_type and id_prefix=i_prefix;
          commit;
       end if;

       --返回号
       o_serial :=fno;
     end;

程序调用的写法是：
    with TStoredProc.Create(nil) do
    try
      ConnectionString := connstr;
      StoredProcName := 'GETIDSERIAL';
      Params.Clear;
      Params.CreateParam(TFieldType.ftString, 'i_type', TParamType.ptInput);
      Params.CreateParam(TFieldType.ftString, 'i_prefix', TParamType.ptInput);
      Params.CreateParam(TFieldType.ftInteger, 'i_len', TParamType.ptInput);
      Params.CreateParam(TFieldType.ftString, 'o_serial', TParamType.ptOutput);
      Params.ParamByName('i_type').AsString := AIDType;
      Params.ParamByName('i_prefix').AsString := lStr1+lStr2;
      Params.ParamByName('i_len').AsInteger := lLen;
      Execute;
      //修改linux下文号无法显示的bug   by linhai 080215
      //Result := Params.ParamByName('o_serial').AsString + lEndStr;
      lStr2 := lStr1 + lStr2 + Params.ParamByName('o_serial').AsString + lEndStr;
      Result := lStr2;
    finally
      Free;
    end;

dragonsoft

//Result := Params.ParamByName('o_serial').AsString + lEndStr;
      lStr2 := lStr1 + lStr2 + Params.ParamByName('o_serial').AsString + lEndStr;
      Result := lStr2;
这个错误，更正一下出问题的原来调用，后面两句没有
Result := Params.ParamByName('o_serial').AsString + lEndStr;
这样就会江存储过程返回值是汉字的截断，就没有汉字，有时候就变成？？或者其他字符

dragonsoft

周二，也就是08年2月19号，我和你们联系下，QQ上面处理。

alang

Oracle 数据库安装在windows Server上
X3服务端安装在RedHat Linux 4企业版
执行用汉字没有出现楼主的错误
我的存储过程是
CREATE OR REPLACE PROCEDURE "TEST_PROC" (inprm in varchar2,
inprm1 in varchar2,
inprm2 in varchar2) is
begin
  INSERT INTO TSYSINFO
  (FINFOID, FINFOSCOPE , FCLIENTACCOUNT , FINFOVALUE )
  VALUES
  (inprm , inprm1, inprm2, inprm2 || inprm1 );
end TEST_PROC;