Procedimiento Almacenado Datasnap

[erickahr]

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"