Страница 1 из 1

bmp jpg

Добавлено: Пн авг 18, 2003 18:21
qnx_empty
kto niti znaet kak perdelati iz bmp v jpg iz delphi

Re: bmp jpg

Добавлено: Вт авг 19, 2003 11:57
кондратий
qnx_empty писал(а):kto niti znaet kak perdelati iz bmp v jpg iz delphi
как два пальца ... ;-)

берёш 2 TImage первой тип ставиш битмап а второй жпег
в первую грузиш картинку
канву из 1 во 2
2 сохраняеш

Добавлено: Вт авг 19, 2003 13:41
qnx_empty
нет надо создать ксок кода который преобразовал из bmp в jpg

Добавлено: Вт авг 19, 2003 14:45
кондратий

Код: Выделить всё

var
MyJpeg: TJpegImage;
Image1: TImage;
begin
Image1:= TImage.Create;
MyJpeg:= TJpegImage.Create;
Image1.LoadFromFile('TestImage.BMP');  // Чтение изображения из файла
MyJpeg.Assign(Image1.Picture.Bitmap);  // Назначание изображения объекту MyJpeg
MyJpeg.SaveToFile('MyJPEGImage.JPG');  // Сохранение на диске изображения в формате JPEG
FreeAdnNil(MyJpeg);
FreeAdnNil(Image1);
end; 
:beer: с тебя! ;-)

Добавлено: Вт авг 19, 2003 15:07
Atyla
кондратий,
FreeAdnNil? :spy:

Добавлено: Вт авг 19, 2003 15:19
кондратий
Atyla писал(а):кондратий,
FreeAdnNil? :spy:
сорри...

FreeAndNil ...

Добавлено: Вт авг 19, 2003 17:19
qnx_empty
спосибо всем кто принемал участие