ZLib

[Matze]

*ein lettes Mal pusht, danach gebe ich auf und baue das nicht ein* ;)

[Lasse2002]

Also bei mir funktioniert es auch bei einem User ohne Adminrechten:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  SL: TStringList;
begin
  SL := TStringList.Create;
  try
    SL.Add('xy.exe');
    SL.Add('xy2.exe');
    CompressFiles(SL, 'xy.zlib');
  finally
    FreeAndNil(SL);
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  DecompressFiles('xy.zlib', '.');
end;

Die Fehlermeldung "Ungültige Stream Operation" kommt z.B. dann wenn du versuchst in den Decompressionstream zu schreiben. Also wenn du z.B. schreibst

Delphi-Quellcode:

DecompressionStream.CopyFrom(InputStream, InputStream.Size);

statt

Delphi-Quellcode:

outfile.CopyFrom(decompr,l);

[Matze]

Hallo, dankeschön, doch kann ich bei mir keinen Fehler entdecken.

Der Code ist lediglich dieser hier:

Delphi-Quellcode:

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

DokUndEinstDir ist der Pfad zu C:\Dokumente und Einstellungen\ ... \Anwendungsdaten\Programmname\. Versucht habe ich testweise auch, die Datei zuerst ins Userverzeichnis zu kopieren und dann zu entpacken, was jedoch auch dann nicht ging. Aber vielleicht liegt es wirklich nur am Code.

Frohe Weihnachten.

[Lasse2002]

Zitat:

Zitat von Matze

DokUndEinstDir ist der Pfad zu C:\Dokumente und Einstellungen\ ... \Anwendungsdaten\Programmname\.

Also der Inhalt der ... hätte mich jetzt dabei am meisten interessiert. Ermittelst du diesen Pfad eigentlich mit Hilfe der dafür vorgesehenen WinAPI Funktionen?

[Matze]

Zitat:

Zitat von Lasse2002

Also der Inhalt der ... hätte mich jetzt dabei am meisten interessiert. Ermittelst du diesen Pfad eigentlich mit Hilfe der dafür vorgesehenen WinAPI Funktionen?

Jupp, ich ermittle den Pfad so:

Delphi-Quellcode:

DokUndEinstDir := IncludeTrailingPathDelimiter(GetSpecialFolder(Handle,
  CSIDL_APPDATA)) + 'myAda\data\';

[Lasse2002]

Für mich schaut es so aus, als ob er ein Problem beim Ermitteln der richtigen Datenlänge hat und dadurch versucht mehr zu lesen, als er dürfte. Aber für eine korrigierte Version fehlt mir die Zeit :-(

Aber wenn alle Dateien inklusive der Anwendung im selben Verzeichnis liegen, dann scheint es zu klappen...

[Matze]

Zitat:

Zitat von Lasse2002

Für mich schaut es so aus, als ob er ein Problem beim Ermitteln der richtigen Datenlänge hat und dadurch versucht mehr zu lesen, als er dürfte. Aber für eine korrigierte Version fehlt mir die Zeit :-(

Achso, das kann auch sein? Hm. Kein Problem, dich zwingt keiner das zu machen ;) und ich komme auch im Notfall ohne aus.

Zitat:

Zitat von Lasse2002

Aber wenn alle Dateien inklusive der Anwendung im selben Verzeichnis liegen, dann scheint es zu klappen...

Nur hat der Anwender da eben nicht immer Schreibrechte.

[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.