Ergebnis der Suchanfrage

• Forum: Object-Pascal / Delphi-Language

  AW: Rekursiv Suchen

    Delphi
    by GroZ, 11. Nov 2015
  So nach langem Suchen war es ein Fehler im internen System.
  frReport.PrintToDefault := true;
  hat die ganze Exception behoben. Danke an alle die mir geholfen haben.
• Forum: Object-Pascal / Delphi-Language

  AW: Rekursiv Suchen

    Delphi
    by GroZ, 10. Nov 2015
  FRPzuPDF(C:\PFAD','C:\PFAD.pdf')
  VerzeichnisMitFRPzuPDF('C:\PFAD\*.FRP',True) Das True bedeutet rekursiv also das die Unterordner mitdurchsucht werden sollen.
  FRPtoPDF
  Das steht jetzt im Aufrufstack.
  
  Wenn die Exception kommt steht nix im AufrufStack...
• Forum: Object-Pascal / Delphi-Language

  AW: Rekursiv Suchen

    Delphi
    by GroZ, 10. Nov 2015
  bin anscheinend zu doof dazu...
  sobald ich das Programm starte geht das Fenster weg und erst wenn ich STRG+F2 drücke nach der Exception kommt das wieder. Trotzdem steht da noch nix drin..
• Forum: Object-Pascal / Delphi-Language

  AW: Rekursiv Suchen

    Delphi
    by GroZ, 10. Nov 2015
  Muss ich das irgendwie aktivieren? Weil bei mir steht nur "Auf den Prozess kann nicht zugegriffen werden"
  Oder mache ich etwas falsch?
• Forum: Object-Pascal / Delphi-Language

  AW: Rekursiv Suchen

    Delphi
    by GroZ, 10. Nov 2015
  Tut mir leid für die blöde Frage aber was ist ein Call Stack und wo sehe ich den? Hab davon noch nie was gehört :? :oops:
• Forum: Object-Pascal / Delphi-Language

  AW: Rekursiv Suchen

    Delphi
    by GroZ, 10. Nov 2015
  Habs durch = 0 ersetzt. Jetzt kommt zwar keine Exception aber er schließt einfach.
  Sprich das Unterverzeichnis wird immer noch nicht angerührt
• Forum: Object-Pascal / Delphi-Language

  AW: Rekursiv Suchen

    Delphi
    by GroZ, 10. Nov 2015
  repeat
  if (X.Name <> '.') and (X.Name <> '..') and ((X.Attr and faDirectory) <> 0) then
  begin //Geht hier nicht rein
  Result:=VerzeichnisMitFRPzuPDF(ExtractFilePath(PfadUndDateimaske)+X.Name+'\'+ExtractFileName(PfadUndDateimaske),SubDirs);
  if not Result then
  break;
  end;
  until FindNext(X) <> 0;
• Forum: Object-Pascal / Delphi-Language

  AW: Rekursiv Suchen

    Delphi
    by GroZ, 10. Nov 2015
  Ich würde gerne wisssen wie ich die Exception löse. Mein Arbeitskollege ist auch überfragt...
  Die Exception tritt auf wenn er in ein Unterverzeichnis möchte...
• Forum: Object-Pascal / Delphi-Language

  AW: Rekursiv Suchen

    Delphi
    by GroZ, 10. Nov 2015
  Habe mithilfe eines Arbeitskollegens das Programm komplett umgeschrieben:
  Bekomme jetzt eine Exception... Hier der Code:
  program FRPtoPDF;
  
  uses
  Forms,
  SysUtils,
  Math,
  ShellApi,
  frxClass,
• Forum: Object-Pascal / Delphi-Language

  AW: Rekursiv Suchen

    Delphi
    by GroZ, 10. Nov 2015
  nene das ist nur zum testen ein festes Verzeichnis
  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
• Forum: Object-Pascal / Delphi-Language

  AW: Rekursiv Suchen

    Delphi
    by GroZ, 9. Nov 2015
  Das "Konvertierung erfolgreich" kommt nur wenn ich <> 0 habe. Sprich da ist keine Endlosschleife. Die Endlosschleife kommt nur wenn ich = 0 nutze.
• Forum: Object-Pascal / Delphi-Language

  AW: Rekursiv Suchen

    Delphi
    by GroZ, 9. Nov 2015
  Doch ich war in einer drin. Also die CPU auslastung ist von 3% auf 95% hochgegangen :lol:
  und "PFAD" ist zum Beispiel "C:\Programme\Foo\Alt\usw" nicht das Wort Pfad :lol:
• Forum: Object-Pascal / Delphi-Language

  AW: Rekursiv Suchen

    Delphi
    by GroZ, 9. Nov 2015
  Das hab ich probiert nur wird da die Funktion komplett übersprungen. Also er schreibt dann 'Konvertierung erfolgreich' aber Dateien wurden nicht konvertiert. Und gleich danach Fehler 1 das bedeutet dass das Verzeichnis falsch ist....
• Forum: Object-Pascal / Delphi-Language

  AW: Rekursiv Suchen

    Delphi
    by GroZ, 9. Nov 2015
  Genau. Das Verzeichnis möchte ich dann via Konsole angeben. Das geht alles auch schon wie ich das möchte. Lediglich die Endlosschleife krieg ich nicht gelöst. Aber ich werde jetzt deinen Vorschlag mal ausprobieren und werde berichten.
• Forum: Object-Pascal / Delphi-Language

  AW: Rekursiv Suchen

    Delphi
    by GroZ, 9. Nov 2015
  @Mod Erledigt hoffe das reicht so. Was anderes ist mir nicht eingefallen :lol:
  
  @SirRufo mein Problem besteht ja darin das auch weiterhin nur einzelene Dateien konvertierbar sein müssen. Kann ich trotzdem eine generelle nehmen?
• Forum: Object-Pascal / Delphi-Language

  AW: Erneute Hilfe

    Delphi
    by GroZ, 9. Nov 2015
  Was müsste ich denn da vorher noch "deklarieren"?
  Hab in der OH geguckt das einzige was für mich relevant wäre, wäre FileName und der ist immer unterschiedlich. Bei meinen Testordner zum Beispiel Folien1-10
• Forum: Object-Pascal / Delphi-Language

  AW: Erneute Hilfe

    Delphi
    by GroZ, 9. Nov 2015
  Das hab ich natürlich probiert. Jedoch das selbe Ergebnis. Kommt keine Fehlermeldung er hat halt ne Endlosschleife
  
  Also ablaufen sollte das ganze so:
  
  Konsole öffnen:
  
  'Pfad eingeben' + /dir
  Enter
  Konvertierungsprozedur
  wiederholen bis komplette Verzeichnis konvertiert ist.
• Forum: Object-Pascal / Delphi-Language

  Rekursiv Suchen

    Delphi
    by GroZ, 9. Nov 2015
  Hey,
  Ich habe ein Problem.
  Mein Konverter ist immer noch nicht fertig.
  Mein Problem ist ganz einfach eigentlich aber ich komme dennoch nicht weiter.
  var f : integer;
  eingabe, Parameter : string;
  X : TSearchRec;
  begin
  writeln('FRP to PDF');
  Writeln('');