Hallo Zusammen
Habe da noch einetn Tip für Win2k Besitzer:
Schaut Euch doch mal das ResourceKit an, da müsste as Proggi RoboCopy dabei sein.
ist "nur* knapp 100KB gross und ist zum Kopieren von vielen Daten geeignet. Kann auch Verzeichnisse etc spiegel usw.
Ist erheblich schneller als die Win-
Api etc.
Bauche das Prog um aus einem Delphi Programm ca 4000 Dateien synchron zu halten. Starte "einfach" ein neuer Prozess ...
Habe mal den passenden Code unten für solche dies interessiert.
Gruss Roger
Code:
try
Screen.Cursor := crHourglass;
Result := False;
StatusBar.Panels[1].Text := 'lokales Verzeichnis :' + slocalPath +
' wird mit :' + sRemotePath + ' abgeglichen .....';
if pnlMarker.Color = clBtnface then
pnlmarker.Color := clRed;
Application.ProcessMessages;
sPara := sRemotePath + ' ' + slocalPath + ' ';
{ Source und Destination Verzeichnisse}
sTemp := saMask[0]; { Filter für Einrichtpläne}
sTemp := StringReplace(sTemp, ';', ' ', [rfReplaceAll]);
sPara := SPara + sTemp + ' ';
sTemp := saMask[1]; { Filter für NC - Programme}
sTemp := StringReplace(sTemp, ';', ' ', [rfReplaceAll]);
sPara := sPara + sTemp + ' ';
sPara := sPara + '/S '; { Inklusive SubDirectorys}
if LBoxEX_DIR.Items.Count > 0 then begin
sPara := sPara + '/XD '; { Exclude Directorys}
for iCounter := 0 to LBoxEX_DIR.Items.Count - 1 do begin
if trim(LBoxEX_DIR.Items[iCounter]) <> '' then
sPara := sPara + LBoxEX_DIR.Items[iCounter] + ' ';
end;
end;
sPara := sPara + '/MIR '; {Befehl zum Mirroring}
sPara := sPara + '/R:10 '; { 10 Versuche die Datei zu kopieren}
spara := sPara + '/W:10 '; { jeweils 10Sek warten zwischen Versuchen}
sPara := Spara + '/LOG:' + lbledtLogFile.Text; {und LogDatei erstellen}
FillChar(StartupInfo, SizeOf(TStartupInfo), 0);
StartupInfo.cb := Sizeof(TStartupInfo);
StartupInfo.dwFlags := STARTF_USESHOWWINDOW;
StartupInfo.wShowWindow := SW_HIDE;
if CreateProcess(nil, { Anwendungsname}
PChar(ExtractFilePath(Application.ExeName) + '\Robocopy.Exe ' + sPara),
{ Parameter}
nil, { Security}
nil, { Security}
False,
NORMAL_PRIORITY_CLASS, { Priorität}
nil, { Environment}
PChar(ExtractFilePath(Application.ExeName)), { Verzeichnis}
StartupInfo,
ProcessInfo) then begin
WaitForSingleObject(ProcessInfo.hProcess, INFINITE);
CloseHandle(ProcessInfo.hProcess);
end
else
ShowMessage('Fehler beim starten des Kopiervorganges!');
TimerTimer(self);
Result := True;
Screen.Cursor := crDefault;
except
Result := False;
MessageDLG('FEHLER beim Aufruf von Robocopy !' + #10 + #13 +
' Funktion : madeLocalCopy()', mtError, [mbOK], 0);
end;