über 25 MB zippen

[HomerGER]

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 ?

[mirage228]

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

[SirThornberry]

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

[HomerGER]

ist schon die neuste version
was ist der totalcommander?

[phlux]

Ein Dateimanager

[Wheelie]

Zitat von phlux:

Ein Dateimanager

DER Dateimanager schlechthin

[HomerGER]

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?

[phlux]

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?

[Luckie]

Geh deine F7unktion mal in einem Order mit wenig Dateien mit F7 durch und kuck, was passiert.

[HomerGER]

mit wenig dateien geht alles super