Crear tabla...

[[Lepe]]

Lo único que se me ocurre, es que no hayas creado el memoryStream en el constructor de tu objeto, y por tanto obtengas access violations. Tal y como lo veo sería algo así:

Código Delphi [-]
Type TDatos = class
  private 
    FStream:TMemoryStream;

   procedure SetFStream(const Value:TMemoryStream);
  function GetFStream:TMemoryStream;
  public

    constructor Create;
    codigo,
    marca,
    rubro,
    producto : string;
    property imagen : TMemoryStream read GetFStream write SetFStream; //para el campo blob
end;

implementation

constructor TDatos.Create;
begin
  FStream := TmemoryStream.Create;
end;

procedure TDatos.SetFStream(const Value:TMemoryStream);
begin
  if not Assigned(Value) then
    raise Exception.Create('no se ha suministrado un Flujo de datos válido');

  Value.SaveToStream(FStream); // lo copiamos a la variable FStream.

function TDatos.GetFStream:TMemoryStream;
begin
  Result := TMemoryStream.Create;
  FStream.SavetoStream(Result);
end;

[Walterdf]

Mil gracias por responder pero el problema no pasa por access violations ya que el stream lo cree en el contructor del objeto. El problema está en la creación de la tabla en ejecución, no reconoce ningún campo como Blob.
Un abrazo y gracias nuevamente.

Walter

[Walterdf]

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:

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