ZLib

[Matze]

Hier mal der ganze Code von mir, vielleicht entdeckt ihr einen Fehler.

Code 1:1 vom SDC übernommen:

Delphi-Quellcode:

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;

Mein Aufruf:

Delphi-Quellcode:

if OpenDialog2.Execute then
begin
  if Application.MessageBox('Do you want to overwrite the current settings?',
                            'Information', MB_YESNO) = mrYes then
  begin
    DecompressFiles(OpenDialog2.FileName, DokUndEinstDir);
  end;
end;

Der Aufruf ist eigentlich trivial, darum kann dort der Fehler nicht liegen.

Und erstellt wurde die zu dekomprimierende Datei über den Code hier (oben), falls das relevant sein sollte. Also an den Lese-/Schreibrechten habe ich nichts weiter verändert, dennoch kommt, wenn man als eingeschränkter Benutzer angemeldet ist eine ungültige Stream Operation. Als Admin kann ich obigen Code fehlerfrei ausführen.