Einzelnen Beitrag anzeigen

Benutzerbild von scrat1979
scrat1979

Registriert seit: 12. Jan 2007
Ort: Sulzbach a.d. Murr
1.029 Beiträge
 
Delphi 10.4 Sydney
 
#2

Re: Dateien kopieren - Test ob vorhanden, bzw. in Gebrauch

  Alt 4. Jul 2007, 13:01
Hallo!

Das hängt von Deinem Kopiervorgang ab. Kopierst Du mittels FileStreams oder über BlockRead/Blockwrite?

1. Bei FileStreams schau Dir mal in der Hilfe den Try...Except-Block an.

Hier ein KLEINES Beispiel:
Delphi-Quellcode:
for i := 0 to listbox1.count-1 do BEgin;
try
quelldatei := TFileStream.Create(ListBox.Items[i], fmOpenRead or fmShareDenyNone);
zieldatei := TFileSttream.Create(Zielpfad+ListBox1.Items[i], fmCreate);
zieldatei.copyfrom(quelldatei, quelldatei.size);
except
 // hier z.B. Hinweis in eine Logdatei schreiben daß Fehler aufgetreten
end; {try..except}
end; {for}
Speicher freigeben (quelldatei.free; ...)habe ich mal weggelassen - aber vergiß das nicht

Wenn Du den Fehler noch genauer lokalisieren möchtest dann müsstest Du IMHO entweder den Fehler im Except-Block näher auslesen oder den Try-Except-Block schachteln.


2. Bei Assign(f, ...) und anschließendem BlockRead (...) könnte Dir der Compilterschalter
{$I-} / {$I+} zusammen mit "if ioResult..." weiterhelfen. Ebenfalls in der Hilfe nachschauen

Hoffe Dir einen Anstoß gegeben zu haben...


// EDIT: Habe erst beim 2. mal hinschauen gesehen, daß Du tatsächlich Streams benutzt. Also ignoriere meine 2. Antwort einfach. Ich lasse sie vollständigkeitshalber aber mal stehen...

SCRaT
Michael Kübler
  Mit Zitat antworten Zitat