Problem mit CopyFile

[DeddyH]

Zitat von Assarbad:

Mich würde noch interessieren was diese mysteriöse Funktion `ForceDirectories` macht.

Moin Olli, da kann ich weiterhelfen: http://docwiki.embarcadero.com/Libra...rceDirectories

[Assarbad]

Zitat von DeddyH:

Zitat von Assarbad:

Mich würde noch interessieren was diese mysteriöse Funktion `ForceDirectories` macht.

Moin Olli, da kann ich weiterhelfen: http://docwiki.embarcadero.com/Libra...rceDirectories

Dank dir! Dann hätte ich ein Problem mit der Verwendung der Funktion seitens des Fragestellers. Ich zitiere mal:

Zitat:

ForceDirectories gibt den Wert True zurück, wenn es alle notwendigen Verzeichnisse erstellt hat, und False, wenn das Verzeichnis nicht erstellt werden konnte.

Fehlt da nicht was im uns präsentierten Code? Stichwort: defensive Softwareentwicklung?!

[nahpets]

Strenggenommen müsste man den Rückgabewert von ForceDirectories abfragen und entsprechend reagieren.

Sollte im konkreten Fall beim Aufruf der Funktion ein Fehler auftreten, dann kracht es halt irgendwo im späteren Ablauf der Routine.

Wirklich sauber ist es so, wie es ist nicht, aber auch ein Scheitern von ForceDirectories und die daraus resultierenden Probleme dürften nicht dazu führen, dass sich ein Programm einfach sang- und klanglos verabschiedet.

Da muss irgendwo noch was anderes gewaltig schiefgehen, was aber so aus der Ferne nicht zu erkennen ist.

[Luckie]

Was Assarbad meint: Der Rückgabewert von ForceDirectories sollte geprüft und eine entsprechende Fehlermeldung ausgegeben werden, wenn sie fehlschlägt.

[nahpets]

Nichts anderes wollte ich ausdrücken, wobei selbst das Nichtabfragen des Rückgabewertes und das Fehlen einer entsprechenden Reaktion darauf, nicht zu dem beschriebenen "Verabschieden des Programmes" führen dürfte.

[Assarbad]

Zitat von nahpets:

Nichts anderes wollte ich ausdrücken, wobei selbst das Nichtabfragen des Rückgabewertes und das Fehlen einer entsprechenden Reaktion darauf, nicht zu dem beschriebenen "Verabschieden des Programmes" führen dürfte.

Jupp, meine Argumentation war auch eher an den Fragesteller gerichtet, der nicht zu begreifen scheint, wie der Code zeigt, daß man Fehler nur durch disziplinierte und systematische Vorgehensweise finden kann.

Und ich stimme dir zu, ein stilles "Verabschieden" ist in der Tat ungewöhnlich. Ist es ketzerisch wenn ich jetzt den Fragesteller frage wie das ganze unter einem Debugger aussieht?

@Berni68: schonmal in der Windows-Ereignisanzeige nachgeschaut ob du da eine WER-Meldung siehst? Oder hast du möglicherweise WER abgeschaltet? Dann würde ich es auf jeden Fall mal aktivieren.

[Aviator]

Zitat von Assarbad:

Ist es ketzerisch wenn ich jetzt den Fragesteller frage wie das ganze unter einem Debugger aussieht?

Naja, er hat geschrieben, dass er das Programm für eine Firma in der er nicht mehr arbeitet programmiert. Von extern ... wo es wahrscheinlich schwierig sein wird mit einem Debugger zu arbeiten.

@TE: Wie verhält sich das Programm wenn du es auf einem anderen Rechner startest? Die Quelldateien und die Struktur kann man ja mal testweise dort anlegen.

[Assarbad]

Zitat von nahpets:

Wirklich sauber ist es so, wie es ist nicht, aber auch ein Scheitern von ForceDirectories und die daraus resultierenden Probleme dürften nicht dazu führen, dass sich ein Programm einfach sang- und klanglos verabschiedet.

Da muss irgendwo noch was anderes gewaltig schiefgehen, was aber so aus der Ferne nicht zu erkennen ist.

Du hast recht. Aber das Problem ist, daß man auf diese Weise nie das Problem finden wird.

Ich habe kein Delphi installiert, aber wie sähe es denn mit etwas in dieser Richtung hier aus?

Delphi-Quellcode:

function TJobServerForm.VerschiebeEntsprechendEndung(maske: String): Boolean;
var
  files: TStrings;
  i: Integer;
  ziel, zielpfad: String;
begin
  result := False;
  files:= TStringList.Create;
  GetFilesMatchInPath(LokalPdfDir, maske, files, false); // Rückgabewert?
  try
    for i:=0 to files.Count-1 do
    begin
      try
        memo.Lines.Add(IntToStr(i+1) + '/' + IntToStr(files.Count)+ ' ' + files[i]);
        zielpfad:= WithBackSlash(PdfDir) + ExportSubDirFromFileName(files[i]);
        if not DirectoryExists(zielpfad) then
        begin
          if not ForceDirectories(zielpfad) then
            RaiseLastOSError;
        end;
        ziel:= zielpfad + ExtractFileName(files[i]);
        if CopyFile(PChar(files[i]), PChar(ziel), false) then
        begin
          if not DeleteFile(files[i]) then
            RaiseLastOSError;
          result := True;
        end;
      except
        RaiseLastOSError;
      end;
    end;
  finally
    files.Free;
  end;
end;

Ich verstehe zwar noch immer nicht, wozu das "try ... except RaiseLastOSError; end;" gut sein soll, aber nen Grund wird es sicher haben.