Ver Mensaje Individual
  #12  
Antiguo 13-12-2007
Avatar de Caral
[Caral] Caral is offline
Miembro Premium
 
Registrado: ago 2006
Posts: 7.659
Reputación: 27
Caral Va por buen camino
Hola
Ya consulte a mi Maestro Egostar y en el help sale esto:
Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);

var
  Stream1, Stream2 : TIBBlobStream;
begin
  Stream1 := TIBBlobStream.Create(IBTable1Notes);
  try
    Stream1.Mode = bmRead;
    IBTable2.Edit;
    { here’s a different way to create a blob stream } 
    { note that with this one, we don’t need a try.. finally clause }
    { because we are not responsible for freeing the stream }
    Stream2 := IBTable2.CreateBlobStream(IBTable2.FieldByName('Remarks'), bmReadWrite);
    Stream2.CopyFrom(Stream1, Stream1.Size);

    IBTable2.Post;
  finally
    Stream1.Free;
  end;
end;
Ahi lo dice todo.
Saludos
Responder Con Cita