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

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

kak sohranit' jpg kartinku v bazu dannih ?? [D7, WinXP]

NEED_Help ©   (2004-12-26 17:18:00) 

U menja takoj vopros: kak mozhno sohranit' jpg kartinku v bazu dannih (friends.bd), u menja polu4aetsja sohranit' tol'ko kartinki s rasshirenie bmp =(( 4to mne delat' ... HELP =) Esli mozhite podskazhite pozhalujsta.
Spomoshju etih komand ja vivodila v DBImage1 kartinku s rosshireniem bmp :

procedure TfEdit.butLoadClick(Sender: TObject);
begin
if OpenPictureDialog.execute then begin
  DMFriends.tFriendsPhoto.LoadFromFile(OpenPictureDialog.FileName);
DMFriends.tFriends.Post;
end;
end;

O4en' nadejus' na vashu pomosh =)))

---

Bork   (2004-12-27 22:33:00) [1]

> Преобразуйте jpg-картинки в bmp-формат с помощью редактора
> Paint

function JPEGtoBMP(Quality:integer;jpeg:tjpegimage):tbitmap;
var
bmp: TBitmap;
begin
try
if quality>100 then quality :=100;
if quality<1 then quality:=1;
jpeg.CompressionQuality := quality;
bmp := TBitmap.Create;
try
bmp.Assign(jpeg);
result:=bmp;
finally
bmp.Free
end;
finally
jpeg.Free
end;
end;

---

NEED_Help   (2004-12-27 22:20:00) [2]

OGROMNOE SPASIBO!!! =))) VSE POLU4ILOS' =))))

---

Shnabs   (2004-12-26 22:05:00) [3]

Пробовал преобразовывать из bmp в jpg.

procedure TForm1.Button1Click(Sender: TObject);
var
 JPEG: TJPEGImage;
 Bitmap: TBitmap;
begin
 JPEG := TJPEGImage.Create;
 Bitmap := TBitmap.Create;
 try
   Bitmap.LoadFromFile('C:\Program Files\Common Files\alarm.bmp');
   JPEG.Assign(Bitmap);
   Image1.Picture.Assign(JPEG);
 finally
   JPEG.Free;
   Bitmap.Free;
 end;
end;

---

aus   (2004-12-26 18:10:00) [4]

Поиск. Вопрос часто задавался.

---

NEED_Help   (2004-12-26 17:38:00) [5]

ЫЫЫЫЫЫЫЫЫ.... =))) s preobrozovaniem nepolu4itsja.. tak kak eto budet addresnaja knizhka, i pol'zovatelju etu proceduru kazhdij raz javno nezajho4itsja vipolnjat'. ... =((

---

NEED_Help   (2004-12-26 17:35:00) [6]

=( Kak rabotat' s BLOB? Pomogite, please....

---

PZ   (2004-12-26 17:33:00) [7]

Преобразуйте jpg-картинки в bmp-формат с помощью редактора Paint

---

ferr   (2004-12-26 17:27:00) [8]

BLOB

---

Наверх