Ver Mensaje Individual
  #7  
Antiguo 07-10-2013
mjjj mjjj is offline
Miembro
 
Registrado: mar 2007
Posts: 652
Reputación: 18
mjjj Va por buen camino
Estimado dec, revicé que realmente existiera la imagen, y así fue. Es más logré insertar la imagen, pero con el código del servidor DataSnap y un componente TIBSql en la aplicación cliente (ejecutada en win32), ya que en Android me arroja un error.

Todo apunta que tengo un problema en el servidor DataSnap, habrá que configurar alguna propiedad especial para poder transportar imagenes, en este caso TStream desde un cliente pasando un servidor DtaSnap que finalmente lo almacene en Firebird 2.5 ??

Este es el código del procedimiento que inserta el registro, cabe señalar que todos los otros campos lo inserta sin problema, el problema es que no inserta la imagen.

Código Delphi [-]
procedure TServerMethods1.insert_imagen(imagen: TStream; usuario: integer);
begin
  with ibsql1 do
  begin
    transaction.Active := true;;
    close;
    sql.clear;
    sql.add('insert into imagenes (usuario, imagen, fecha)');
    sql.add('values (:usuario, :imagen, current_timestamp)');
    ParamByName('imagen').LoadFromStream(imagen);
    ParamByName('usuario').asinteger :=usuario;
    execquery;
    transaction.CommitRetaining;
  end;
end;
Responder Con Cita