Hola
Y asi:
Código Delphi
[-]var blob:TBlobStream;
blobf:TBlobField;
fs:tstream;
begin
Este es el ejemplo completo
Código Delphi
[-]procedure TForm1.Button1Click(Sender: TObject);
var
Stream1: TBlobStream;
Stream2: TStream;
begin
Stream1 := TBlobStream.Create(Table1Notes, bmRead);
try ClientDataSet1.Edit; { here’s a different way to create a blob stream }
Stream2 := ClientDataSet1.CreateBlobStream(ClientDataSet1.FieldByName('Remarks'), bmReadWrite);
try
Stream2.CopyFrom(Stream1, Stream1.Size); ClientDataSet1.Post;
finally
Stream2.Free;
end;
finally Stream1.Free;
end;
end;
Insisto, no se, pero esta en el help
Saludos