Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.03.06;
Скачать: 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 вся ветка

Текущий архив: 2003.03.06;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.018 c
14-17306
Tornado
2003-02-17 10:58
2003.03.06
Сколько места занимает Windows ?


4-17435
KPV-10k
2002-12-19 21:04
2003.03.06
Оконо во весь экран...


6-17232
Anton
2003-01-17 11:54
2003.03.06
Что за ошибка EidSocketError : SocketError #10110


14-17342
anbezr
2003-02-17 17:19
2003.03.06
Динамический массив


8-17207
Delchiv
2002-11-14 02:47
2003.03.06
Векторизация растра