Hola, aqui les dejo un ejemplo de como manejo los Procedimientos Almacenados, en DataSnap, espero les sea de utilidad.
Código Delphi
[-]
procedure TfrCapTiendas.btnGuardarClick(Sender: TObject);
begin
Screen.Cursor:=crHourGlass;
with frDatos.cdsspCentral do
begin
try
Close;
Params.Clear;
CommandText:='SPTIENDAS';
Params.CreateParam(ftInteger, 'idtienda', ptInput).Value := dbedidTienda.Text;
Params.CreateParam(ftInteger, 'tienda', ptInput).Value := dbedTienda.Text;
Params.CreateParam(ftString, 'nombre', ptInput).Value := dbedNombre.Text;
Params.CreateParam(ftString, 'nick', ptInput).Value := dbedNick.Text;
Params.CreateParam(ftString, 'direccion', ptInput).Value := dbedDireccion.Text;
Params.CreateParam(ftString, 'tipo', ptInput).Value := dbedTipo.Text;
Execute;
MessageDlg(Caption+' finalizó corretamente!', mtInformation,[mbOk],0);
Screen.Cursor:=crDefault;
Except
on E: Exception do
begin
MessageDlg('Error: '+E.Message, mtError,[mbOk],0);
Screen.Cursor:=crDefault;
end;
end;
end;
end;
Esto es en el cliente, creando los parametro y al mismo tiempo asignandole valores, si utilizas consultas, puedes utilizar
FetchParams para recuperar los parametros, pero en los procedimientos almacenados no los recupera, por eso hay que crearlos 'a patín'.
Ya que utilizas Firebird te comento, yo me tope con el problema de que agregaba los registros hasta que cerraba mi aplicacion, entonces para que guarde al instante utilicé la siguiente solucion.
En el evento AfterExecute del DatasetProvider que se encarga de 'publicar' el IBstoredProc del servidor puse esto.
Código Delphi
[-]
try
tC.Commit;
Except
on E: Exception do
Log('Error en servidor: '+E.Message);
end;
Espero le sirva a alguien, Saludos desde México.
Felicitaciones a los compañeros españoles por el triunfo de su seleccion!!!
___________________
"El futbol Refleja el crecimiento de un pais"