|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
10.10.2011, 18:25 | #1 |
Новичок
Джуниор
Регистрация: 10.10.2011
Сообщений: 2
|
жение качества(сжатие) отсканированного изображения
Здравствуйте не могу уменьшить качество 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.Этот код сгенерировал EZTPro3.У меня делфи 7. |
11.10.2011, 01:38 | #2 |
Старожил
Регистрация: 29.09.2009
Сообщений: 9,742
|
...и с каких пор там TIFF ?
Нативная подержка сжатия в JPEG не всегда работает, лучше использовать внешнее сжатие: Код:
Разработки и научно-технические публикации :: Видеоблог :: Твиттер
Radar systems engineer & Software developer of industrial automation |
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
статистический контроль качества | Secretnaja | Общие вопросы C/C++ | 2 | 08.05.2011 08:55 |
Потеря качества изображения при копировании | Herly | Общие вопросы Delphi | 14 | 11.02.2010 20:08 |
Проверка качества датчика псевдослучайных чисел | SerG1ON | Microsoft Office Excel | 0 | 22.10.2009 15:38 |