如何將TParams類型轉爲Variant?
InParam :TParams;
提供的函數爲
function ExecProc(const ProcName: AnsiString; const InParam: Variant): Integer;
如果直接調用
ExecProc('SP_Name', InParam)
編譯通不過
如何將InParam轉爲Variant?
在線等!
------解決思路----------------------
delphi中Variant也是一種數據類型 Tparams 繼承自tcollection 是個集合類 繼承自tojbect 他們之間的轉換 是沒辦法的。
除非你按照execproc 中variants參數類型解析InParam 組合成所需信息
------解決思路----------------------
PackageParams應該可以,試試,看它的函數是否會出錯。
------解決思路----------------------
找源碼啊,DBClient單元PackageParams聲明下面就是UnpackParams
function PackageParams(Params: TParams; Types: TParamTypes = AllParamTypes): OleVariant;
procedure UnpackParams(const Source: OleVariant; Dest: TParams);