| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

фото и [MS ACCESS]

фыва ©   (2003-02-15 19:38:00) 

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

---

Гинеколог   (2003-02-15 22:00: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;

---

Наверх