AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Zipmaster und Savedialog

Ein Thema von horst · begonnen am 4. Feb 2005 · letzter Beitrag vom 4. Feb 2005
Antwort Antwort
horst

Registriert seit: 1. Jul 2003
347 Beiträge
 
Delphi 2007 Professional
 
#1

Zipmaster und Savedialog

  Alt 4. Feb 2005, 01:38
Hallo...
ich möchte ein bestimmtes verzeichnis in ein zipfile packen.
das mache ich so, was auch funktioniert:
Delphi-Quellcode:
procedure TForm8.dxButton1Click(Sender: TObject);
var
  i: Integer;
  dir: string;
begin
  ZipMaster1.DLLDirectory := ExtractFilePath(ParamStr(0));

  if punkteimp.Checked[0] then begin
    edit1.Text := 'eigene-kategorien';
    ZipMaster1.FSpecArgs.Add('\data\' + edit1.Text + '\*.*');
  end;

  ZipMaster1.AddOptions := [AddDirNames, AddRecurseDirs];
  ZipMaster1.ZipFileName := 'c:\temp\data.zip';
  ZipMaster1.add;
end
folgendes funktioniert nicht, weiß jemand warum?
Delphi-Quellcode:
procedure TForm8.dxButton1Click(Sender: TObject);
var
  i: Integer;
  dir: string;
begin
  if SaveDialog1.Execute = true then begin
    ZipMaster1.DLLDirectory := ExtractFilePath(ParamStr(0));

    if punkteimp.Checked[0] then begin
      edit1.Text := 'eigene-kategorien';
      ZipMaster1.FSpecArgs.Add('\data\' + edit1.Text + '\*.*');
    end;

    ZipMaster1.AddOptions := [AddDirNames, AddRecurseDirs];
    zipmaster1.ZipFileName := savedialog1.FileName;
    ZipMaster1.add;

  end;
end;
gruss
horst
  Mit Zitat antworten Zitat
Benutzerbild von Garfield
Garfield

Registriert seit: 9. Jul 2004
Ort: Aken (Anhalt-Bitterfeld)
1.335 Beiträge
 
Delphi XE5 Professional
 
#2

Re: Zipmaster und Savedialog

  Alt 4. Feb 2005, 10:55
Moin,

vielleicht stimmt was mit dem savedialog1.FileName nicht. Du könntest mal
    zipmaster1.ZipFileName := PChar(savedialog1.FileName); versuchen.
Gruss Garfield
Ubuntu 22.04: Laz2.2.2/FPC3.2.2 - VirtBox6.1+W10: D7PE, DXE5Prof
  Mit Zitat antworten Zitat
horst

Registriert seit: 1. Jul 2003
347 Beiträge
 
Delphi 2007 Professional
 
#3

Re: Zipmaster und Savedialog

  Alt 4. Feb 2005, 11:09
Hallo Garfield,
habe ich auch schon getestet, funktioniert leider nicht.
wenn ich statt
Code:
ZipMaster1.FSpecArgs.Add('\data\' + edit1.Text + '\*.*');
folgendes mache
 ZipMaster1.FSpecArgs.Add(extractfilepath(application.exename) + 'Data\' + edit1.Text + '\*.*'); dann klappts, leider ist aber dann die absolute Pfadstruktur in der Zip-Datei enthalten, und das darf nicht sein.
  Mit Zitat antworten Zitat
Benutzerbild von Garfield
Garfield

Registriert seit: 9. Jul 2004
Ort: Aken (Anhalt-Bitterfeld)
1.335 Beiträge
 
Delphi XE5 Professional
 
#4

Re: Zipmaster und Savedialog

  Alt 4. Feb 2005, 16:30
Meines Wissens bewirkt der \ vor Data in
Zitat von horst:
Code:
ZipMaster1.FSpecArgs.Add('\data\' + edit1.Text + '\*.*');
dass Du im Verzeichnis über Deinem Programm landest.

Dann müsstest den \ weglassen:
Code:
ZipMaster1.FSpecArgs.Add('data\' + edit1.Text + '\*.*');
Gruss Garfield
Ubuntu 22.04: Laz2.2.2/FPC3.2.2 - VirtBox6.1+W10: D7PE, DXE5Prof
  Mit Zitat antworten Zitat
horst

Registriert seit: 1. Jul 2003
347 Beiträge
 
Delphi 2007 Professional
 
#5

Re: Zipmaster und Savedialog

  Alt 4. Feb 2005, 16:39
Hallo...nein das klappt auch nicht, auch so nicht
ZipMaster1.FSpecArgs.Add('.\data\' + edit1.Text + '\*.*');
  Mit Zitat antworten Zitat
Benutzerbild von Garfield
Garfield

Registriert seit: 9. Jul 2004
Ort: Aken (Anhalt-Bitterfeld)
1.335 Beiträge
 
Delphi XE5 Professional
 
#6

Re: Zipmaster und Savedialog

  Alt 4. Feb 2005, 17:03
Dann müsstest Du doch ein RootDir setzen können.

Klar: http://www.delphizip.net/178/help/hs680.htm
Gruss Garfield
Ubuntu 22.04: Laz2.2.2/FPC3.2.2 - VirtBox6.1+W10: D7PE, DXE5Prof
  Mit Zitat antworten Zitat
horst

Registriert seit: 1. Jul 2003
347 Beiträge
 
Delphi 2007 Professional
 
#7

Re: Zipmaster und Savedialog

  Alt 4. Feb 2005, 17:13
Boah...du bist gut, danke.
Es klappt ****
  Mit Zitat antworten Zitat
Benutzerbild von Garfield
Garfield

Registriert seit: 9. Jul 2004
Ort: Aken (Anhalt-Bitterfeld)
1.335 Beiträge
 
Delphi XE5 Professional
 
#8

Re: Zipmaster und Savedialog

  Alt 4. Feb 2005, 17:25
Freut mich.
Gruss Garfield
Ubuntu 22.04: Laz2.2.2/FPC3.2.2 - VirtBox6.1+W10: D7PE, DXE5Prof
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 23:48 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz