Progressstatus mit Delphi Fast Zlib v.1.1.2

[OrallY]

Problem gelöst. Es befand sich ein Bug im Quelltext der Unit:

Delphi-Quellcode:

function TZCompressionStream.Write(const buffer; count: Longint): Longint;
begin
  FZStream.next_in := @buffer;
  FZStream.avail_in := count;

  if FStream.Position <> FStreamPos then FStream.Position := FStreamPos;

  while FZStream.avail_in > 0 do
  begin
    ZCompressCheck(deflate(FZStream, Z_NO_FLUSH));

    if FZStream.avail_out = 0 then
    begin
      FStream.WriteBuffer(FBuffer, SizeOf(FBuffer));

      FZStream.next_out := FBuffer;
      FZStream.avail_out := SizeOf(FBuffer);

      FStreamPos := FStream.Position;
      {DoProgress <- hier stands vorher}
    end;
    DoProgress; // hier stehts jetzt

  end;

  result := Count;
end;