Hola Daniel.
Código Delphi
[-]
procedure BitmapToBlobField(Image: TImage; Field: TField);
var
Stream: TStream;
begin
Stream := TMemoryStream.Create;
try
Image.Picture.Bitmap.SaveToStream(Stream);
Stream.Seek(0, soFromBeginning);
TBlobField(Field).LoadFromStream(Stream);
finally
Stream.Free;
end;
end;
Ejemplo de uso:
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenPictureDialog1.Execute then
begin
Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
with tu_DataSet do
begin
Edit;
BitmapToBlobField(Image1, FieldByName('IMAGEN'));
Post;
end;
end;
end;
Saludos