Ver Mensaje Individual
  #4  
Antiguo 30-10-2006
Walterdf Walterdf is offline
Miembro
 
Registrado: may 2003
Ubicación: Buenos Aires
Posts: 152
Reputación: 24
Walterdf Va por buen camino
Post

Bueno, ya pude solucionar el tema de pasar el blob de la tabla al campo del objeto, de todos modos me sirvió lo anterior ya que había metido la pata con la inicialización del objeto.
Pongo el código que utilicé para cargar los datos de los campos del objeto con los de la tabla:

Código:
function TdmFiguras.Cargar(var FDatos : TDatos) : boolean;
var
  Stream : TMemoryStream;
begin
  Stream := TMemoryStream.Create;
  FDatos.codigo:=dmTablas.Tabla.Fields.Fields[0].AsString;
  FDatos.marca:=dmTablas.Tabla.Fields.Fields[1].AsString;
  FDatos.rubro:=dmTablas.Tabla.Fields.Fields[2].AsString;
  FDatos.producto:=dmTablas.Tabla.Fields.Fields[3].AsString;
Stream.LoadFromStream(dmTablas.Tabla.CreateBlobStream(dmTablas.Tabla.FieldByName('FIGURA'),bmRead));
  FDatos.imagen:=Stream;
  result := true;
end;
Muchas gracias.
Walter
Responder Con Cita