|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
Проблема с базой данных Access
как поместить базу данных Access изображения jpg а не bmp.Помогите
Последний раз редактировалось Mehman123, 08.08.2009 в 23:52. |
#2
|
||||
|
||||
Запись картинки в ADO таблицу
JPEG или BMP для БД роли не играют Поживу - увижу, Доживу - узнаю, Выживу - учту. [P.S.]->Выражая благодарность за помощь - Вы получаете шанс на помощь в следующий раз
|
#3
|
||||
|
||||
Для примера - манипуляции с бмп и жпг. (из проги по созданию скриншота экрана и сохранению его в жпг)
Код:
procedure ScreenToJPG(filename:String); var bm:TBitMap; jpg:TJPEGImage; begin bm:=TBitMap.Create; bm.Width:=Screen.Width; bm.Height:=Screen.Height; BitBlt(bm.Canvas.Handle,0,0,bm.Width,bm.Height,GetDC(0),0,0,SRCCOPY); jpg:=TJPEGImage.Create; jpg.CompressionQuality := 75; jpg.Assign(bm); jpg.SaveToFile(filename + '.jpg'); jpg.Free; bm.Free; end; В Uses подключи модуль jpeg. Пусть ненавидят миллионы, зато любят тыщи (с) Многоточие |
#4
|
||||
|
||||
Цитата:
у меня не полуцилас вот ето код: Код:
procedure TForm3.TntSpeedButton3Click(Sender: TObject); begin od1.Execute; if od1.FileName<>'' then dm2.ADOTable15foto1.LoadFromFile(od1.FileName); end; procedure ScreenToJPG(filename:String); var bm:TBitMap; jpg:TJPEGImage; begin bm:=TBitMap.Create; bm.Width:=Screen.Width; bm.Height:=Screen.Height; BitBlt(bm.Canvas.Handle,0,0,bm.Width,bm.Height,GetDC(0),0,0,SRCCOPY); jpg:=TJPEGImage.Create; jpg.CompressionQuality := 75; jpg.Assign(bm); jpg.SaveToFile(filename + '.jpg'); jpg.Free; bm.Free; end; а исходник ест? |
#5
|
||||
|
||||
Проблема с базой данных Access
Цитата:
|