VPF::Сжать TStreem??? - Форум программистов

WaReZMEN

Дата 9.12.2007, 14:53 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 683
Регистрация: 9.6.2006
Где: Россия, Санкт-Пет ербург

Репутация: нет
Всего: 3

Считываю файл в поток хочу его сжать и записать в другой файл.... Вопрос, чем лучше сжать? Файл текстовый rar сжимает в 50 раз хочется примерно такой же результат. smile

MetalFan

Дата 9.12.2007, 15:08 (ссылка)

(нет голосов)

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 62
Всего: 128

оффтоп-вопрос : автор намерено делает кучу ошибок в своих постах?

странно, сам спросил:

Цитата(WaReZMEN @ 9.12.2007, 14:53

)

чем лучше сжать?

и сам ответил:

Цитата(WaReZMEN @ 9.12.2007, 14:53

)

rar сжимает в 50 раз хочется примерно такой же результат.

по делу:
можно встроенным TCompressionStream/TDecompressionStream. не такой эффективный, но зато ничего лишнего за собой не тянет

--------------------

There are always someone smarter than you...

Riply

Дата 9.12.2007, 15:09 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Комодератор
Сообщений: 572
Регистрация: 27.3.2007
Где: St. Petersburg

Репутация: 3
Всего: 32

Цитата(WaReZMEN @ 9.12.2007, 14:53

)

Вопрос, чем лучше сжать? Файл текстовый rar сжимает в 50 раз хочется примерно такой же результат.

TCompressionStream из ZLib ?
imho: дешево и сердито smile

На некоторых видах файлов помогает "повторное" сжатие.

--------------------

Решение задач под заказ

lukas

Дата 9.12.2007, 18:31 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 771
Регистрация: 23.2.2007

Репутация: 3
Всего: 15

Код


uses
   Zlib;

 procedure CompressFiles(Files : TStrings; const Filename : String);
 var
   infile, outfile, tmpFile : TFileStream;
   compr : TCompressionStream;
   i,l : Integer;
   s : String;

 begin
   if Files.Count > 0 then
   begin
     outFile := TFileStream.Create(Filename,fmCreate);
     try
       { the number of files }
       l := Files.Count;
       outfile.Write(l,SizeOf(l));
       for i := 0 to Files.Count-1 do
       begin
         infile := TFileStream.Create(Files[i],fmOpenRead);
         try
           { the original filename }
           s := ExtractFilename(Files[i]);
           l := Length(s);
           outfile.Write(l,SizeOf(l));
           outfile.Write(s[1],l);
           { the original filesize }
           l := infile.Size;
           outfile.Write(l,SizeOf(l));
           { compress and store the file temporary}
           tmpFile := TFileStream.Create('tmp',fmCreate);
           compr := TCompressionStream.Create(clMax,tmpfile);
           try
             compr.CopyFrom(infile,l);
           finally
             compr.Free;
             tmpFile.Free;
           end;
           { append the compressed file to the destination file }
           tmpFile := TFileStream.Create('tmp',fmOpenRead);
           try
             outfile.CopyFrom(tmpFile,0);
           finally
             tmpFile.Free;
           end;
         finally
           infile.Free;
         end;
       end;
     finally
       outfile.Free;
     end;
     DeleteFile('tmp');
   end;
 end;

 procedure DecompressFiles(const Filename, DestDirectory : String);
 var
   dest,s : String;
   decompr : TDecompressionStream;
   infile, outfile : TFilestream;
   i,l,c : Integer;
 begin
   // IncludeTrailingPathDelimiter (D6/D7 only) 
  dest := IncludeTrailingPathDelimiter(DestDirectory);

   infile := TFileStream.Create(Filename,fmOpenRead);
   try
     { number of files }
     infile.Read(c,SizeOf(c));
     for i := 1 to c do
     begin
       { read filename }
       infile.Read(l,SizeOf(l));
       SetLength(s,l);
       infile.Read(s[1],l);
       { read filesize }
       infile.Read(l,SizeOf(l));
       { decompress the files and store it }
       s := dest+s; //include the path 
      outfile := TFileStream.Create(s,fmCreate);
       decompr := TDecompressionStream.Create(infile);
       try
         outfile.CopyFrom(decompr,l);
       finally
         outfile.Free;
         decompr.Free;
       end;
     end;
   finally
     infile.Free;
   end;
 end;

--------------------

http://code.google.com/p/orionphp/ - opensource скриптовой язык Orion (аналог PHP) для freepascal/delphi.

WaReZMEN

Дата 10.12.2007, 01:12 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 683
Регистрация: 9.6.2006
Где: Россия, Санкт-Пет ербург

Репутация: нет
Всего: 3

Цитата(MetalFan @ 9.12.2007, 23:08

)

оффтоп-вопрос : автор намерено делает кучу ошибок в своих постах?

MetalFan, нет оно само как то получается (а где в этом посте ошибки???).... к стати я видал форумы на которых орфографию можно проверять...

Цитата(MetalFan @ 9.12.2007, 23:08

)

За это спасибо!

Riply, lukas, вам тоже огромное спасибо!

MetalFan

Дата 10.12.2007, 10:40 (ссылка)

(нет голосов)

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 62
Всего: 128

Цитата(WaReZMEN @ 10.12.2007, 01:12

)

а где в этом посте ошибки???

TStream
да и знаки припинания неплохо бы более-менее верно расставить...

--------------------

There are always someone smarter than you...

Poseidon

Дата 10.12.2007, 11:12 (ссылка)

(нет голосов)

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 53
Всего: 133

Цитата(WaReZMEN @ 9.12.2007, 14:53

)

Файл текстовый rar сжимает в 50 раз хочется примерно такой же результат.

rarом и сжимай. А потом уже архив загружай в Stream.

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

Alexeis

Дата 10.12.2007, 11:21 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459

Рар денег стоит, а ведь 7zip дает результат не хуже и денег не просит до тех пор, пока приложение не станет платным.

--------------------

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

Snowy

Дата 10.12.2007, 11:39 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

http://www.delphilab.ru/content/view/72/73/

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »