Снижение качества(сжатие)

← →
vivaldi (2011-10-09 17:06) [0]

Здравствуйте не могу уменьшить качество tiff картинки.Сканирую вот этим кодом.procedure TForm1.btn3Click(Sender: TObject); var fileName: array [0..260] of Char; i: Integer; hdib: Cardinal; begin begin TWAIN_LogFile(1); TWAIN_SetFileAppendFlag(true); TWAIN_SetJpegQuality(100); if TWAIN_OpenDefaultSource() then begin TWAIN_SetXferCount(-1); TWAIN_SetAutoScan(true); TWAIN_SetMultiTransfer(true); i := 1; repeat StrFmt(fileName, "c:\image\%d.tif", [i]); { If you don"t have a Window handle, pass 0: } hdib := TWAIN_Acquire(self.Handle); if hdib=0 then break; TWAIN_WriteNativeToFilename(hdib, fileName); DIB_Free(hdib); i := i+1; stat:=i div 2 until TWAIN_State()<5; TWAIN_CloseSource() end; if TWAIN_LastErrorCode()<>0 then TWAIN_ReportLastError("Сканирование невозможно"); end;
Мне кажется что сжатие определяет строчка TWAIN_SetJpegQuality(100); но изменяя её выходной файл меньше не становится 1,07мб.А мне надо чтобы он занимал кб 50.

← →
Palladin © (2011-10-09 19:04) [1]

Удалено модератором

← →
vgvolk1 (2011-10-09 19:23) [2]

Удалено модератором

← →
zaho (2011-10-09 20:20) [3]

> tiff
> TWAIN_SetJpegQuality

найдите 108 отличий.

← →
vivaldi (2011-10-09 20:42) [4]

Tiff использует сжатие через Jpeg поэтому так и пишется.Это код генерирует программа EztwPro.Поэтому ошибка не должна быть.Если кто знает функцию для tiff не стесняетесь,пишите.

← →
Ega23 © (2011-10-09 21:36) [5]

> Tiff использует сжатие через Jpeg

Не только

Удалено модератором

← →
vivaldi (2011-10-10 05:33) [7]

Тогда как мне сжать не через jpg а через lzw.Или с помощью другого сжатия.Просто AbbyFormReader делает картинки с таким же разрешением как у меня и это занимает 45..50кб.А моя весит при сканировании 150dpi 1,07мб.Как сжать до 50кб или около?

← →
vivaldi (2011-10-11 08:07) [8]

Извиняюсь неправильно понял суть своей проблемы,мне нужно не сжатие.Можно закрыть тему.Спасибо всем

Снижение качества(сжатие) Найти похожие ветки