M
mei7810
Unregistered / Unconfirmed
GUEST, unregistred user!
with sp1 do<br> begin<br> parameters.clear;<br> procedurename:='NLV_PACKAGE.PRO_TGS';<br> Parameters.CreateParameter('HPZL',ftString,pdInput,2,'02');<br> Parameters.CreateParameter('HPHM',ftString,pdInput,16,'');<br> Parameters.CreateParameter('WFSJ',ftDateTime,pdInput,0,now);<br> Parameters.CreateParameter('WFXW',ftString,pdInput,5,'20070');<br> Parameters.CreateParameter('WFDD',ftString,pdInput,12,' ');<br> Parameters.CreateParameter('WFDZ',ftString,pdInput,200,'02');<br> Parameters.CreateParameter('CJJG',ftString,pdInput,10,' ');<br> Parameters.CreateParameter('SJLY',ftString,pdInput,2,'02');<br> Parameters.CreateParameter('ZPLX',ftString,pdInput,1,'1');<br> Parameters.CreateParameter('SBBH',ftString,pdInput,16,'');<br> Parameters.CreateParameter('CDBH',ftString,pdInput,2,'');<br> Parameters.CreateParameter('CLSD',ftBCD,pdInput,0,70);<br> Parameters.CreateParameter('DCXS',ftBCD,pdInput,0,70);<br> Parameters.CreateParameter('KCXS',ftBCD,pdInput,0,70);<br> Parameters.CreateParameter('XCXS',ftBCD,pdInput,0,70);<br> Parameters.CreateParameter('DCZFXS',ftBCD,pdInput,0,70);<br> Parameters.CreateParameter('KCZFXS',ftBCD,pdInput,0,70);<br> Parameters.CreateParameter('XCZFXS',ftBCD,pdInput,0,70);<br> Parameters.CreateParameter('ZDXS',ftBCD,pdInput,0,70);<br> Parameters.CreateParameter('ZJWJ1',ftVarBytes,pdInput,2147483647,null);<br> Parameters.CreateParameter('ZJWJ2',ftVarBytes,pdInput,2147483647,null);<br> Parameters.CreateParameter('ZJWJ3',ftVarBytes,pdInput,2147483647,null);<br> Parameters.CreateParameter('ZXJG',ftBCD,pdOutput,0,0);<br><br> parameters.ParamByName('HPZL').Value:='';<br> Parameters.ParamByName('HPHM').Value:='';<br> parameters.ParamByName('WFSJ').Value:=todate(filename);<br> Parameters.ParamByName('WFXW').Value:='20070';<br> parameters.ParamByName('WFDD').Value:=file_info.wfdd;<br> Parameters.ParamByName('WFDZ').Value:='';<br> Parameters.ParamByName('CJJG').Value:=file_info.cjjg;<br> parameters.ParamByName('SJLY').Value:='3';<br> Parameters.ParamByName('ZPLX').Value:='1';<br> parameters.ParamByName('SBBH').Value:=file_info.sbbh;<br> parameters.ParamByName('CDBH').Value:=StrToInt(copy(filename,23,2));<br> parameters.ParamByName('CLSD').Value:=StrToInt(copy(filename,30,3));<br> parameters.ParamByName('DCXS').Value:=StrToInt(copy(filename,26,3));<br> Parameters.ParamByName('KCXS').Value:=StrToInt(copy(filename,26,3));<br> parameters.ParamByName('XCXS').Value:=StrToInt(copy(filename,26,3));<br> parameters.ParamByName('DCZFXS').Value:=StrToInt(copy(filename,26,3));<br> parameters.ParamByName('KCZFXS').Value:=StrToInt(copy(filename,26,3));<br> parameters.ParamByName('XCZFXS').Value:=StrToInt(copy(filename,26,3));<br> parameters.ParamByName('ZDXS').Value:=StrToInt(copy(filename,26,3));<br> tblobfield(Parameters.ParamByName('ZJWJ1')).LoadFromFile(f1);<br>// Parameters.ParamByName('ZJWJ2').Value:=null;<br>// Parameters.ParamByName('ZJWJ3').Value:=null;<br> Prepared;<br>// open;<br> ExecProc;<br> try<br> Result:= Parameters.ParamByName('ZXJG').Value = 0;<br> if Parameters.ParamByName('ZXJG').Value <> 0 then<br> begin<br> strRet:=inttostr(Parameters.ParamByName('ZXJG').value);<br> Application.MessageBox(pchar('包错误:' + strRet), '警告', MB_ICONWARNING);<br> end;<br> except<br> Result := False;<br> end;<br> end;<br><br>请高手看看这样做有问题吗? 如果我不参数,而用parameters.refresh的话,提示:<br>"提供程序不能导出参数信息,没有调用setparameterinfo"<br>如果用上面的手工加参数的话,提示:"转换请求无法实现或不合理!"