nene das ist nur zum testen ein festes Verzeichnis
Delphi-Quellcode:
var f : integer;
eingabe, Parameter : string;
SearchRec : TSearchRec;
begin
writeln('FRP to PDF');
Writeln('');
Writeln('Verzeichnis eingeben:');
readln(eingabe);
Parameter := 'C:\Dokumente und Einstellungen\jgross\Desktop\TestSpeichern\'; //Für Testzwecke -> Später noch ändern
if eingabe = Parameter +'/dir' then
begin
if FindFirst(Parameter+'*.*', faDirectory, SearchRec) = 0 then try
repeat
if (SearchRec.Name <> '.') then
FRPzuPDF(Parameter,ChangeFileExt(Parameter,'.pdf'));
until FindNext(SearchRec)<> 0; //Hier kommt immer ne' Endlosschleife
finally
FindClose(SearchRec);
Writeln('Konvertierung erfolgreich');
end;
end;
Im Debug Modus ist er genau 8x die Prozedur durchgegangen also hat sozusagen geklappt. Aber die Dateien wurden nicht konvertiert. Ich schau mir jetzt die Prozedur nochmal an. Diese geht aber eigentlich.
Ich glaube ich habe meinen Fehler gefunden. Die Prozedur möchte den genauen Namen zurück haben. Sie kriegt aber nur den Pfad ohne Dateinamen.