Добрый день!
Мне нужно написать простенький архиватор на основании алгоритма RLE: если идёт последовательность повторяющихся байтов, то в архиве ставится байт с ведущим битом равным 1, а остальные 7 - счётчик повторений. И сразу после этого байта идёт тот байт, который повторяется. Если идёт последовательность неповторяющихся байтов, то ставится байт с ведущим нулём, а осальные 7 бит - это сколько после этого байта будет помещено неповторяющихся символов.

Моя проблема заключается в том, что программа корректно архивирует и разархивирует только 256-цветные BMP файлы, а 24-битовые искажает при распаковке

Помогите разобраться в чем дело. Очень надо

Заранее благодарна

Код

procedure Compress; var ch, buf, i, s : byte; RepeatCh : array [0..127] of byte; R : boolean; begin   s:=0;   ch:=0;   R:=true;   repeat      read(FileIn, buf);      if ((buf<>ch) and (R=true)) or (S>=127)      then begin             if (S>0)             then begin                    S:=S+128;                    write(FileOut, S);                    write(FileOut, ch);                  end;              S:=0;              R:=false;              ch:=buf;              continue;           end;       if (buf<>ch) and (R=false)       then begin              inc(S);              RepeatCh[S-1]:=ch;              ch:=buf;              continue;            end;       if (buf=ch) and (R=false)       then begin              if (S>0)              then begin                     write(FileOut, S);                     for i:=0 to S-1 do                     write(FileOut, RepeatCh[i])                   end;               S:=2;               R:=true;               continue            end;            if (buf=ch) and (R=true)            then begin                   inc(S);                   continue;                 end;   until(Eof(FileIn)); end; procedure UnCompress; var k,i : byte; S : byte; begin    repeat      read(FileIn,k);      if (k>128)      then begin             read(FileIn,S);             for i:=1 to k-128 do             write(FileOut2,S);           end      else for i:=1 to k do           begin             read(FileIn,S) ;             write(FileOut, S);           end;   until (Eof(FileIn)); end; // файлы FileIn, FileOut описываются в основной программе

Цитата

, 5.12.2005,  21:59]Моя проблема заключается в том, что программа корректно архивирует и разархивирует только 256-цветные BMP файлы, а 24-битовые искажает при распаковке

А ты уверен, что при распаковке? А может уже при запаковке?
Потом следующие вопросы:
1. Ты запаковываешь файл полностью? Это неправильно! Так как упакованные RLE bmp файлы открываются редакторами, а если ты запакуешь файл полностью (а не только bitmap), то никакой редактор не будет знать, что это за файл. Если тот же ACDSee не может открыть твой запакованный файл, то это так.
2. Если не ошибаюсь, для 4 и 8 битных bmp'шек используются разные RLE алгоритмы. Но это не суть. Дело тут в другом. Дело ИМХО как всегда в округлении строк. То есть если в синтаксисе C/C++, то ширина твоей картинки равна в 8 битном файле

Код

dwBmpWidth = ((((pdsInfoHeaderSrc->biWidth << 3) + 7) >> 3) + 3) & 0xfffffffc;

а в 4 битном

Код

dwBmpWidth = ((((pdsInfoHeaderSrc->biWidth << 2) + 7) >> 3) + 3) & 0xfffffffc;

Как я понял ты это вообще не учел.
3. Из каких то соображений (не помню каких) я не занимался RLE 24 битной картинки. Помоему это RLE описанием не предусмотрено. Типа того, что 4 и 8 битный RLE, а 24 не делают. Почему не знаю. Кстати сейчас открыв графичекий редактор я этому еще раз удостоверился. Тут копай в сторону dither короче.

Успехов!

Большое спасибо!

Не за что.