Da Du anscheinend mein Post (#5) nicht willst...
.. zerlege ich deinen Code von Post #1
Delphi-Quellcode:
var f : integer;
eingabe, Parameter : string;
X : TSearchRec;
begin
writeln('FRP to PDF');
Writeln('');
Writeln('Verzeichnis eingeben:');
readln(eingabe);
Parameter := 'PFAD';
if eingabe = Parameter +'/dir' then
begin
Writeln(Parameter);
if FindFirst(Parameter, faAnyFile, X) = 0 then try // Hier fehlt ein an den Parameter angehängtes '*.*' oder direkt '*.FRP', notwendig, damit FindFirst auch nach Files sucht
repeat
FRPzuPDF(Parameter,ChangeFileExt(Parameter,'.pdf')); // Hier sollte eigentlich was mit x.Name gemacht werden, sprich dem gefundenen Dateiname. In Parameter steht ja nur ein Verzeichnis und kein Dateiname !!
until FindNext(X) = 1; //Hier kommt immer ne' Endlosschleife // Und wie schon mehrfach geschrieben '<> 0'
finally
FindClose(X);
Writeln('Konvertierung erfolgreich');
end;
end;
Deine Routine findet ein Verzeichnis, keine Datei!
Wenn deine Suche mit *.* gemacht würde, dann würde er Filenamen in X zurückgeben, sprich die Dateien, welche Du ja eigentlich konvertieren willst. Da Du diese aber nicht benutzt, passiert auch nichts.
Er spring bei <> 0 direkt wieder raus, da er ja das Verzeichnis schon gefunden hat und kein weiteres (gleiches) findet..
So, jetzt schaust Du DIr mal die Funktion in meinem Post #5 oder den Post von Sir Rufo #8 an, da ist genau das hier geschriebene gemacht worden..