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

фото и   Найти похожие ветки 

← →
фыва   (2003-02-15 19:38) [0]

Как в базе MS ACCESS сохранять фотографии?

---

← →
Гинеколог   (2003-02-15 22:00) [1]

Наверху страницы есть кнопка поиск. Этот вопрос обсуждался очень много раз, почти каждый день. Не будь ленивым. Даже перед тем как задать вопрос предлагается слелать поиск, не обсуждался ли этот вопрос ранее.
==================================

в разлеле USES пропиши Jpeg

procedure TfrmDarbinieks.Button1Click(Sender: TObject);
var
MemStream: TMemoryStream;
Img: TBitmap;
jImg: TJPEGImage;
begin
if not (OpenPictureDialog1.FileName="") then begin
Img := TBitmap.Create;
jImg := TJPEGImage.Create;
MemStream := TMemoryStream.Create;
jImg.LoadFromFile(OpenPictureDialog1.FileName);
Img.Assign(jImg);
jImg.CompressionQuality := 60;
Img.SaveToStream(MemStream);
MemStream.Seek(0, soFromBeginning);
DM.Employes.Insert;
TBLOBField(DM.Employes.FieldByName("EPhoto")).LoadFromStream(MemStream);
DM.Employes.Post;
MemStream.Free;
Img.free;
jImg.Free;
end;

---

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

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



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