[Vivaldi7]

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