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