Страница 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;
с тебя!
Добавлено: Вт авг 19, 2003 15:07
Atyla
кондратий,
FreeAdnNil?
Добавлено: Вт авг 19, 2003 15:19
кондратий
Atyla писал(а):кондратий,
FreeAdnNil?
сорри...
FreeAndNil ...
Добавлено: Вт авг 19, 2003 17:19
qnx_empty
спосибо всем кто принемал участие