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;

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