bmp jpg

[qnx_empty]

kto niti znaet kak perdelati iz bmp v jpg iz delphi

[кондратий]

kto niti znaet kak perdelati iz bmp v jpg iz delphi

как два пальца ...

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

[qnx_empty]

нет надо создать ксок кода который преобразовал из bmp в jpg

[кондратий]

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

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; 

с тебя!

[Atyla]

кондратий,
FreeAdnNil?

[кондратий]

кондратий,
FreeAdnNil?

сорри...

FreeAndNil ...

[qnx_empty]

спосибо всем кто принемал участие