function SelectPdfImageCodec(const Candidate: TPdfImageCodecCandidate;
AllowedCodecs: TPdfImageCodecs; MinimumSavingBytes: Int64 = 1): TPdfImageCodecDecision;
| Candidate | TPdfImageCodecCandidate |
| AllowedCodecs | TPdfImageCodecs |
| MinimumSavingBytes | Int64 |
TPdfImageCodecDecisionA SelectPdfImageCodec tiszta döntési segéd, amely összehasonlítja a jelölten rögzített EncodedBytes becsléseket, és visszaadja, melyik kodeknek kell tárolnia a képet
Minden engedélyezett kodeket először megfelelőség szempontjából ellenőriz: a picJpeg alfa nélküli, nem kétértékű képet igényel 8 bit/komponens sűrűséggel, 1, 3 vagy 4 komponenssel, valamint ismeretlen vagy 256-nál nagyobb egyedi színszámmal; a picJpx nem kétértékű képet igényel legalább 8 bit/komponens sűrűséggel és 1-től 4 komponenssel; a picCcittGroup4 alfa nélküli, kétértékű képet igényel 1 bit/komponens sűrűséggel és egyetlen komponenssel; a picFlate legalább 1 bit/komponens sűrűséget és legalább 1 komponenst fogad el
A megfelelő kodekek közül a legkisebb pozitív EncodedBytes érték nyer, és a döntés jelenti az OriginalBytes, SelectedBytes és SavedBytes értékeket
A ReplaceOriginal csak akkor True, ha a nyertes nem picKeepOriginal, és a SavedBytes eléri a MinimumSavingBytes értéket; egyébként a döntés picKeepOriginal-ra visszaáll nulla megtakarított bájttal
Decision := SelectPdfImageCodec(Candidate, [picJpeg, picJpx, picFlate], 1024);
if Decision.ReplaceOriginal then
ReEncode := Decision.Codec;