AGB  ·  Datenschutz  ·  Impressum  







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

TZipFile und Add

Ein Thema von Willie1 · begonnen am 30. Jan 2021 · letzter Beitrag vom 1. Feb 2021
 
Willie1

Registriert seit: 28. Mai 2008
691 Beiträge
 
Delphi 10.1 Berlin Starter
 
#1

TZipFile und Add

  Alt 30. Jan 2021, 18:18
Hallo Leute,
da ich TZipFile zum ersten Mal benutze, will ich zuerst üben.
Ich stelle fest, dass ich mit Add eine Datei, auch mehrmals, zu einem Archiv hinzufüge. Das Aktualisieren, das bedeutet überschreiben einer vorhandenen Datei ist nicht möglich, ist das richtig?
Ich stelle weiter fest, dass Dateien unter dem gleichen Namen mehrmals auftauchen können, ich kann sie also über den Namen nicht alle ansprechen! (ich weiß, es geht über den Index)

Nochmal meine Frage: kann ich eine vorhandene Datei im Archiv überschreiben?
Etwas Code:
Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
begin
  if fod.Execute then begin
    if fod2.Execute then begin
      with TZipfile.Create do
      try
        if IsValid(fod.FileName) then begin
          open(fod.FileName, zmReadWrite);
          Add(fod2.FileName);
          Close;
        end;
      finally
        Free;
      end;
    end;
  end;
end;
Gruß Willie.
Gut hören kann ich schlecht, schlecht sehen kann ich gut - Ersteres stimmt nicht, das zweite schon.
  Mit Zitat antworten Zitat
 


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 04:26 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz