Guten Tag Delphianer,
ich möchte mit folgendem Code eine Datei kopieren:

markieren

Delphi-Quellcode:

  ShellExecute(Handle, 'open', PChar(FPfadPDFAblage + '\pdfrechnung-kopie.bat'),
  nil, nil, SW_SHOW);

Inhalt der BAT-Datei:
Copy unbenannt.pdf D:\Entwicklungen\BPSWAWI\Buero4\Rechnungen\RE-14553-vom-02-07-2014.pdf

Wenn ich mit einem Doppelklick auf die Bat-Datei klicke, wird die Datei kopiert.
Lasse ich obigen Code ausführen, wird die Datei nicht kopiert.
Woran mag dies wohl liegen??
Vielen Dank für Hilfestellungen im voraus.
Mit Gruß
HPB

Wo?

• Diese API hat einen Rückgabewert, den man eventuell mal auswerten sollte. Dann hat der COPY-Befehl einen Rückgabewert "ErrorLevel", welchen man auswerten sollte.
• Dieser API kann/sollte man das Arbeitsverzeichnis mitgeben, vorallem wenn in dem Aufruf irgenwo mir relativen Pfaden gearbeitet wird.
• Und wozu wird eine Batch aufgerufen, um die Datei zu kopieren, anstatt direkt zu kopieren und dabei nur einen Rückgabewert prüfen zu müssen?
• Oder kann man die PDF nicht gleich unter dem richtigen Namen speichern?

PS: Der Explorer ist schlauer. Er verwendet letztendlich auch auch nur sowas, wie das ShellExecute, nur ist der so intelligent und übergibt das aktuelle Verzeichnis als Arbeitsverzeichnis.

Steht in FPfadPDFAblage auch der absolute Pfad?

Zitat von himitsu:

Wo?

• Diese API hat einen Rückgabewert, den man eventuell mal auswerten sollte. Dann hat der COPY-Befehl einen Rückgabewert "ErrorLevel", welchen man auswerten sollte.
• Dieser API kann/sollte man das Arbeitsverzeichnis mitgeben, vorallem wenn in dem Aufruf irgenwo mir relativen Pfaden gearbeitet wird.
• Und wozu wird eine Batch aufgerufen, um die Datei zu kopieren, anstatt direkt zu kopieren und dabei nur einen Rückgabewert prüfen zu müssen?
• Oder kann man die PDF nicht gleich unter dem richtigen Namen speichern?

PS: Der Explorer ist schlauer. Er verwendet letztendlich auch auch nur sowas, wie das ShellExecute, nur ist der so intelligent und übergibt das aktuelle Verzeichnis als Arbeitsverzeichnis.

Danke himitsu für Deine Ausführungen.
Nein, die PDF-Datei kann nicht sofort unter dem richtigen Namen gespeichert werden. Sie wird aus der pdfFactory erzeugt.
Alles Weitere werde ich noch prüfen müssen.
Mit Gruß
HPB

Zitat von mkinzler:

Steht in FPfadPDFAblage auch der absolute Pfad?

Guten Tag mkinzler,
ja in der Variable steht auch der der absolute Pfad.
Mit Gruß
HPB

Was gibt ShellExecute denn zurück?

Meiner Meinung nach fehlt in der Batchdatei einfach nur der Pfad wo die Datei unbenannt.pdf zu finden ist. Führt man die Batchdatei da aus wo sich diese unbenannt.pdf-Datei befindet, geht das natürlich, da man zuvor in das Verzeichnis wechselt. Der Verzeichniswechsel wird allerdings nicht im ShellExecute gemacht. Deswegen:

Copy [um PFAD ergänzen]unbenannt.pdf D:\Entwicklungen\BPSWAWI\Buero4\Rechnungen\RE-14553-vom-02-07-2014.pdf

Ich weiß jetzt leider nicht, ob CMD den letzten ErrorLevel des letzten Befehls als eigenen ExitCode rausgibt.

markieren

Code:

COPY /V %von% %nach%
IF ERRORLEVEL 1   EXIT %ERRORLEVEL%


COPY /V %von% %nach%
IF %ERRORLEVEL% GTR 0   EXIT %ERRORLEVEL%

Das Exit setzt auf jeden Fall (sollte zumindestens) den ExitCode der CMD.exe
und wenn man mag, dann kann man via /V dem Copy sagen, es solle die Datei nach dem Schreiben nochmal prüfen.

Aber am Ende läuft es doch auf Folgendes hinaus

markieren

Delphi-Quellcode:

Status := ShellExecute(Handle, nil, '%ComSpec%', PChar('/C "COPY mitPfad/unbenannt.pdf D:\Entwicklungen\BPSWAWI\Buero4\Rechnungen\RE-14553-vom-02-07-2014.pdf"'), nil, SW_SHOW);

Status := ShellExecute(Handle, nil, '%ComSpec%', PChar('/C "COPY unbenannt.pdf D:\Entwicklungen\BPSWAWI\Buero4\Rechnungen\RE-14553-vom-02-07-2014.pdf"'), PChar(derPfad), SW_SHOW);

// k.A. ob jetzt %ComSpec% aufgelöst wird, oder halt einfach 'cmd.exe' nutzen, eventuell mit dem System32-Verzeichnis davor

und da frag ich mich, warum man dort nicht einfach RenameFile (SysUtils) oder CopyFile (Windws) verwenden sollte, oder besser noch eine der neuen Implementationen aus der IOUtils.
http://docwiki.embarcadero.com/CodeE...s_%28Delphi%29