Пример в этой статье описывает, как Delphi реализует преобразование графики формата BMP в графику формата JPG. Поделитесь этим со всеми для справки. Конкретный метод реализации заключается в следующем:
Скопируйте код кода следующим образом:
процедура ConvertBMPtoJPG (SFileName,DFileName: строка);
Вар
J: TJpegImage;
Я: TBitmap;
S,D:Строка;
начинать
s:=SFileName;
д:=DFileName;
J:=TJpegImage.Create;
Я:=TBitmap.Create;
I.LoadFromFile(s);
J.Назначить(I);
I.Свободно;
d:=changefileext(d,'.jpg');
J.SaveToFile(d);
Приложение.процесссообщения;
Дж. Фри;
конец;
Я надеюсь, что эта статья будет полезна каждому программисту на Delphi.