Скачать: CL | DM;

Сохранение *.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;

---

← →
Clickmaker ©   (2004-06-09 20:14) [2]

var Stream: TBlobStream;

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.023 c