insertar un archivo en un campo blob desde delphi

[[Caral]]

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