на сервере
Код: Выделить всё
TYPE TAB_pl_dt IS TABLE OF date INDEX BY PLS_INTEGER;
procedure ins_buf(mDate in TAB_pl_dt);
Код: Выделить всё
oProc:= TOraStoredProc.Create(nil);
oProc.Params.Clear;
oProc.StoredProcName:= 'pkg.ins_buf';
oProc.Connection := oConnection;
oProc.Prepare;
mDate:= VarArrayCreate([0, SizeArr-1], varDate);
oProc.Params[0].DataType:= ftDateTime;
oProc.Params[0].ParamType:= ptInput;
oProc.Params[0].Table:= True;
oProc.Params[0].Length:= SizeArr;
oProc.Params[0].Value:= mDate; //Invalid class type cast