Скачать: CL | DM;

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

← →
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


Не только

---

← →
Andy BitOff ©   (2011-10-09 23:04) [6]

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

---

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

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

---

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.005 c