Скачать: CL | DM;

kak sohranit jpg kartinku v bazu dannih ??   Найти похожие ветки 

← →
NEED_Help   (2004-12-26 17:18) [0]

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 =)))

---

← →
ferr ©   (2004-12-26 17:27) [1]

BLOB

---

← →
PZ   (2004-12-26 17:33) [2]

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

---

← →
NEED_Help   (2004-12-26 17:35) [3]

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

---

← →
NEED_Help   (2004-12-26 17:38) [4]

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

---

← →
aus   (2004-12-26 18:10) [5]

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

---

← →
Shnabs   (2004-12-26 22:05) [6]

Пробовал преобразовывать из 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;

---

← →
NEED_Help   (2004-12-27 22:20) [7]

OGROMNOE SPASIBO!!! =))) VSE POLU4ILOS" =))))

---

← →
Bork   (2004-12-27 22:33) [8]

> Преобразуйте 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;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.027 c