AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

über 25 MB zippen

Offene Frage von "HomerGER"
Ein Thema von HomerGER · begonnen am 27. Apr 2004 · letzter Beitrag vom 27. Apr 2004
Antwort Antwort
Benutzerbild von HomerGER
HomerGER

Registriert seit: 8. Jun 2003
390 Beiträge
 
Delphi 7 Professional
 
#1

über 25 MB zippen

  Alt 27. Apr 2004, 00:59
hi
ich versuche grade über netzwerk so ca. 25MB zu zippen mit ABzipper von Abbrevia

es müssen ordner und dateien gezippt werden

hier mal mein code

Delphi-Quellcode:
//Datei zippen
Procedure Zippen_ZU(file_s : String);
var
quelle_s : String;
files_sl : TStringList;
i : Integer;
begin
    quelle_s := Ini_Lesen_IU(g_ini_file_s, 'System', 'quelle') + '\';

    files_sl := TStringList.Create;
    files_sl.Clear;
    try
        dwListFilesRecursive(quelle_s , '*.*', True, files_sl);

        Haupt_Form.Zipper1.FileName := file_s;

        for i := 0 to files_sl.Count -1 do
        begin
            Haupt_Form.Zipper1.AddFiles(files_sl.Strings[i], 0);
        end;

    finally
        files_sl.Free;
    end;
end;
dwListFilesRecursive ist von delphiworks

nur nach 4 stunden war immernoch nciht fertig

könnt ihr helfen ?
  Mit Zitat antworten Zitat
Benutzerbild von mirage228
mirage228

Registriert seit: 23. Mär 2003
Ort: Münster
3.750 Beiträge
 
Delphi 2010 Professional
 
#2

Re: über 25 MB zippen

  Alt 27. Apr 2004, 05:59
Hast du schonmal versucht das Programm im Einzelschritt durchlaufen zu lassen und schauen, wo es so lange dauert?
TPAbbrevia ist ja OpenSource also müsste Delphi beim Aufruf von AddFiles in die Abbrevia Units springen.

Eventuell musst dir eine neuere Version von Abbrevia herunterladen (eine Beta aus dem CVS), vielleicht hilft das auch.

mfG
mirage228
David F.

May the source be with you, stranger.
PHP Inspection Unit (Delphi-Unit zum Analysieren von PHP Code)
  Mit Zitat antworten Zitat
Benutzerbild von SirThornberry
SirThornberry
(Moderator)

Registriert seit: 23. Sep 2003
Ort: Bockwen
12.235 Beiträge
 
Delphi 2006 Professional
 
#3

Re: über 25 MB zippen

  Alt 27. Apr 2004, 08:57
eventuell liegts gar nicht an dem source. Wenn ich unter XP eine Zipdatei erstelle (übern Arbeitsplatz) und so große datenmengen verarbeite dauert das auch ewig. Wenn ich das allerdings über den Totalcommander mache isses übelst schnell fertig...
Jens
Mit Source ist es wie mit Kunst - Hauptsache der Künstler versteht's
  Mit Zitat antworten Zitat
Benutzerbild von HomerGER
HomerGER

Registriert seit: 8. Jun 2003
390 Beiträge
 
Delphi 7 Professional
 
#4

Re: über 25 MB zippen

  Alt 27. Apr 2004, 18:51
ist schon die neuste version
was ist der totalcommander?
  Mit Zitat antworten Zitat
Benutzerbild von phlux
phlux

Registriert seit: 4. Nov 2002
Ort: Witten
1.335 Beiträge
 
Delphi 6 Personal
 
#5

Re: über 25 MB zippen

  Alt 27. Apr 2004, 19:00
Ein Dateimanager
Christian "phlux" Arndt
  Mit Zitat antworten Zitat
Wheelie

Registriert seit: 21. Okt 2003
Ort: Dresden
177 Beiträge
 
#6

Re: über 25 MB zippen

  Alt 27. Apr 2004, 19:14
Zitat von phlux:
DER Dateimanager schlechthin
  Mit Zitat antworten Zitat
Benutzerbild von HomerGER
HomerGER

Registriert seit: 8. Jun 2003
390 Beiträge
 
Delphi 7 Professional
 
#7

Re: über 25 MB zippen

  Alt 27. Apr 2004, 19:35
leider brauch ich kein dateimanager
sondern ein zipper den ich in mein programm einbauen kann und der über 25MB im Netzwerk zippen kann und das schnell ohne dabei einzuschlafen


die zu zippen dateien liegen einzeln und in ordner vor, kommt daher das problem? oder gibt es ne andere kompo die sowas besser macht?
  Mit Zitat antworten Zitat
Benutzerbild von phlux
phlux

Registriert seit: 4. Nov 2002
Ort: Witten
1.335 Beiträge
 
Delphi 6 Personal
 
#8

Re: über 25 MB zippen

  Alt 27. Apr 2004, 20:52
Hast du mal bei Torry nach einer alternative geguckt? Du könntest das auch alles als cabinetfile anlegen und dann verschicken.
Edit: Es könnte auch sein das die RekursivFileListFunktion misst macht?
Christian "phlux" Arndt
  Mit Zitat antworten Zitat
Benutzerbild von Luckie
Luckie
(Moderator)
Online

Registriert seit: 29. Mai 2002
37.089 Beiträge
 
Delphi 2006 Professional
 
#9

Re: über 25 MB zippen

  Alt 27. Apr 2004, 21:17
Geh deine F7unktion mal in einem Order mit wenig Dateien mit F7 durch und kuck, was passiert.
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat
Benutzerbild von HomerGER
HomerGER

Registriert seit: 8. Jun 2003
390 Beiträge
 
Delphi 7 Professional
 
#10

Re: über 25 MB zippen

  Alt 27. Apr 2004, 22:14
mit wenig dateien geht alles super
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

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 18:53 Uhr.
Powered by vBulletin® Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2019 by Daniel R. Wolf