| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

vivaldi ©   (2011-10-09 17:06:00) 

Здравствуйте не могу уменьшить качество 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.

---

vivaldi   (2011-10-11 08:07:00) [1]

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

---

vivaldi   (2011-10-10 05:33:00) [2]

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

---

Andy BitOff   (2011-10-09 23:04:00) [3]

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

---

Ega23   (2011-10-09 21:36:00) [4]

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


Не только

---

vivaldi   (2011-10-09 20:42:00) [5]

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

---

zaho   (2011-10-09 20:20:00) [6]

> tiff
> TWAIN_Set JpegQuality

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

---

vgvolk1   (2011-10-09 19:23:00) [7]

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

---

Palladin   (2011-10-09 19:04:00) [8]

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

---

Наверх