TMemoryStream и Zlib

[Sanprof]

Вопрос вот в чем, мне нужно файл сжать с помощью Zlib и запихнуть в TMemoryStream. Толи переработался, толи еще что, но не могу сообразить как.

[Пепел Феникса]

попробуйте взять ZLib от Indy.
там удобная реализация на основе потоков(промежуточный поток)

[Sanprof]

var
  buffer_size: integer = 1024;
  dest: TMemoryStream;
  source: TFileStream;
  ComStream: TCompressionStream;
  BytesRead: integer;
  MainBuff: array[0..1023] of char;

.......
 
       source := TFileStream.Create('C:\123.dat', fmOpenReadWrite);
        try
          dest := TMemoryStream.Create;
          ComStream := TCompressionStream.Create(clMax, dest);
           repeat
             bytesread := source.Read(mainbuff, buffer_size);
             ComStream.Write(mainbuff, bytesread);
           until bytesread < 1024;
        except
          ComStream.Free;
          dest.Free;
          Source.Free;
          exit;
        end;
        ComStream.Free;
        Source.Free;
        dest.Free;
      end;

вот так не получается

[Пепел Феникса]

source := TFileStream.Create('C:\123.dat', fmOpenReadWrite);
dest := TMemoryStream.Create;
ComStream := TCompressionStream.Create(clMax, dest);
ComStream.CopyFrom(Source,Source.Size);
ComStream.Free;
source.Free;

если не получится, то уточняйте, что именно не получается.

[Sanprof]

код работает без ошибок, но мне еще нужно получить размер новых скомпрессированных данных и сравнить с исходным размером данных файла (C:\123.dat) - условно сравнить (дабы увидеть результат компрессии).

[Пепел Феникса]

source := TFileStream.Create('C:\123.dat', fmOpenReadWrite);
dest := TMemoryStream.Create;
ComStream := TCompressionStream.Create(clMax, dest);
ComStream.CopyFrom(Source,Source.Size);
ComStream.Free;
ShowMessage('Исходный размер: '+IntToStr(Source.Size)+#10#13'Итоговый размер: '+IntToStr(Dest.Size)+#10#13'Сжато на '+IntToStr(Source.Size-Dest.Size)+' байт.');
dest.free;
source.Free;

тоже мне проблема

[Sanprof]

в том то и дело, что Dest.size я уже давно пробовал у меня оно всегда равно 0 (ноль). Уже и ComStream.Size пробовал, все равно облом.

[Пепел Феникса]

попробуйте Dest.Position(сразу после сжатия)

[Sanprof]

после создания потока dest := TMemoryStream.Create;
Dest.Position = 0; и после сжатия тоже, ему же память выделяется я так понимаю при создании???

[Пепел Феникса]

TMemoryStream.Size показывает размер данных записанных в него.

ему же память выделяется я так понимаю при создании???

памяти для данных динамически по сути.

Dest.Position = 0; и после сжатия тоже

может вы делаете что то не то?
я только что проверил, все работает.(Size и Position)