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.