Форум: "Базы";
Текущий архив: 2003.03.06;
Скачать: [xml.tar.bz2];
Внизфото и Найти похожие ветки
← →
фыва (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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.008 c