关于在Delphi中调用存储过程的问题！急急急！！！

[lfd_boy]

在Delphi中怎么得到一个存储过程的返回值，比如我有一个SqlServer存储过程：GetDate 第一个参数是时间，第二个参数是整型，第三个和第四个都是时间类型并且是Output输出，请问我在Delphi中则么得到最后两个参数的返回值？
如果有例子请发到：[e-mail]

[wonderworld]

如果你用的是存储过程的控件，你可以选中他的params属性，其中有四个参数，你把后两个的type属性设置成output就可以了。

[findya]

用adoStorePorc的话执行完存储过程以后用params就可以返回output的值

[78]

open;
a1:=fields[0].asstring;
a2:=fields[1].value.asstring;

[lfd_boy]

不行啦，我试过了。a1和a2总是1899-12-30 00:00:00
上面那位仁兄说指定Type属性为output，可是我怎么找不到这个属性呀？

[mengxianbao1521]

begin
Table.Database.StartTransaction;
try
//------调用存储过程1------
with StoredProc do
begin
UnPrepare;
StoredProcName := 'SP1';
Prepare;
//------设置存储过程1的传入参数------
ParamByName('XXX').AsString := XXX;
ParamByName('YYY').AsString := YYY;
ParamByName('ZZZ').AsInteger := ZZZ;
ExecProc;
end;
Table.Database.Commit;
except
Table.Database.Rollback;
MessageDlg('执行存储过程1时发生数据错误。', mtWarning, [mbOK], 0);
Exit;
end;

Table.Database.StartTransaction;
try
//------调用存储过程2------
with StoredProc do
begin
UnPrepare;
StoredProcName := 'SP2';
Prepare;
//------设置存储过程2的传入参数------
ParamByName('WWW').AsString := WWW;
ExecProc;
end;
Table.Database.Commit;
except
Table.Database.Rollback;
MessageDlg('执行存储过程2时发生数据错误。', mtWarning, [mbOK], 0);
end;
end;

[F1OnEverest]

执行完存储过程以后，通过output型的params就可以得到返回值啊，不可能不行的！