adostoreproc连接oracle的问题.....急!!在线等 200分.. ( 积分: 200 )

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