Сохранение *.jpg файла в базе данных

← →
Evg_fat © (2004-06-09 15:31) [0]

Подскажите пожалуйста! Как сохранить изображение в базе данных (TTable), или скопировать его из TImage

← →
Alexander_K © (2004-06-09 18:12) [1]

В uses включить JPEG
var Bm: TMemoryStream;
Jp: TJpegImage;
begin
Table1.Edit;
Jp:=TJpegImage.Create;
Jp.Assign(Image1.Picture.Bitmap); //Помещаешь изображение в класс TJpegImage;
Bm:=TMemoryStream.Create;
Jp.SaveToStream(Bm); // Сохраняешь Jpeg в потоке
Bm.Seek(0,0);
Dm.Table1PHOTO.LoadFromStream(Bm); //Загружаешь Jpeg в поле через поток
Bm.Free;
Jp.Free;
Table1.Post;
end;

var Stream: TBlobStream;

Stream := TBlobStream.Create(Table1PHOTO, bmWrite);
try
Jp.SaveToStream(Stream);
finally
Stream.Free;
end;

Сохранение *.jpg файла в базе данных Найти похожие ветки