Forum: Netzwerke
Delphi
by Gambit,
23. Mär 2005
kleines Update:
Das muss nat. auch bei weiteren Versuchen funzen. Beispiel: man hat das File test.txt, welches auf dem Server schon existiert. Dann würde meine erste Version oben beim ersten mal test1.txt draus machen. Gut, versucht aber jemand noch einmal test.txt hochzuladen, würde test1.txt wieder überschrieben was ja nicht sein soll. Es müsste dann test2.txt entstehen. Deswegen folgende...
Forum: Netzwerke
Delphi
by Gambit,
23. Mär 2005
So, hier mal meine Lösung:
FileExistsList:= TStringList.Create;
for i:= 0 to aList.Count-1 do
try
begin
IdFTP.List(FileExistsList, ExtractFilename(aList.Strings), false);
If FileExistsList.Count < 1 then
IdFTP.Put(aList.Strings, ExtractFilename(aList.Strings)) else
begin