Компресирайте JPEG в Delphi XE

jpeg

Моля, кажете на начинаещ. Работя в XE4 и разработвам приложение за iOS. Качване на снимки на уеб сървър. Има нужда да се играе малко с качество. Спомням си как беше направено във VCL с помощта на TJPEGImage. Можете ли да ми кажете как да компресирам файл във FireMonkey?

компресирайте

компресирайте

Опитах го така:

но това не засяга качеството или размера на запазеното изображение, по-точно не влияе по никакъв начин

компресирайте

MetalFan, благодаря, изглежда работи, но.

Като цяло обърнах внимание на факта, че компресира компреси, но размерът не зависи от коефициента. След като изпробвах вашата версия (въпреки че я видях дълбоко в изходния код и изглежда, че я пиша накрая и дърпа), опитах това, което написах по-горе. Изненадващо, изходът е същият. Той се компресира статично до определен размер и не успява да регулира компресията, както в старите делфи на Borland.

Вярно, сега експериментирам на XE3, може би това е грешка и ще работи добре в XE4, ще разбера вечерта