delphi调用ORACLE存储过程.

  uniconnection1.server:=IniFile.ReadString('Project','ServerIP','127.0.0.1');     
  uniconnection1.username:=IniFile.ReadString('Project','UserName','127.0.0.1');
  uniconnection1.password:=IniFile.ReadString('Project','Password','127.0.0.1');
  uniconnection1.connected:=true;

  UniStoredProc1.Close;
  UniStoredProc1.Params.Clear;
             
  UniStoredProc1.StoredProcName:='fxc_cache.nlv_package.pro_mep';//'nlv_cache.nlv_package.pro_mep';
  with  UniStoredProc1 do
  begin
    params.Add;
    params[ 0 ].Name := 'HPZL';//添加输入参数
    params[ 0 ].datatype := ftstring;
    params[ 0 ].ParamType := ptinput;
    params.ParamByName( 'HPZL' ).AsString := Dm.qryTemp.FieldByName('WFCX').AsString;
                 
    params.Add;           //用文件流方式上传图片
    params[ 1 ].Name := 'ZJWJ1';
    params[ 1 ].datatype := ftOraBlob;
    params[ 1 ].ParamType := ptinput;
    params.ParamByName( 'ZJWJ1' ).LoadFromStream(Stream1,ftOraBlob); ;

    params.Add;                  //添加输出参数
    params[ 2 ].Name := 'ZXJG';
    params[ 2].datatype := ftInteger;
    params[ 2].ParamType := ptOutput;
    
    Prepare;
    ExecProc;
    if params.ParamByName( 'ZXJG' ).asinteger = 0 then