Datei kann nicht erstellt werden

[Delbor]

Hi zusammen

Mit meinem Programm scanne ich eine Vorlage zur Erstellung eines PDFs. Am Ende des Scannvorganges wird diese Prozedur aufgerufen:

Delphi-Quellcode:

procedure TScanningFrame.TwainTwainAcquire(Sender: TObject; const Index: Integer;
  Image: TBitmap;  var Cancel: Boolean);
  var JpegGraphic : TJpegImage; LFileName : String;
begin
  Edit1.Text := Image.ClassName;    //Scaning ist abgeschlossen
  if Assigned(OnFinishedBmpScanEvent) then                            // OnFinishedBmpScanEvent : TFinishedBmpScanEvent
  OnFinishedBmpScanEvent(Sender,Image);
  ImgHolder.Picture.Assign(Image);
  JpegGraphic := TJPegImage.Create;
  try
     JPegGraphic.Assign(Image);
     JPegGraphic.SaveToFile('C:\PDFOfficerAppdata\PdfOfficerData\ScannedPic.jpeg)');
     LFileName := 'C:\PDFOfficerAppdata\PdfOfficerData\ScannedPic.jpeg)';
     FCustomCreatePDFClass.Create(Owner);
     FCustomCreatePDFClass.FileName := LFileName;
//     FCustomCreatePDFClass.OutputFile
     FCustomCreatePDFClass.CreatePDFCreator;

  finally
     JPegGraphic.Free;
  end;

Der Versuch, das Jpeg zu speichern, erzeugt folgende Fehlermeldung:

Zitat:

Im Projekt PDFSynOfficer.exe ist eine Exception der Klasse EFCreateError mit der Meldung 'Datei "C:\PDFOfficerMini\AppData\ScannedPic.jpeg)" kann nicht erstellt werden. Das System kann den angegebenen Pfad nicht finden' aufgetreten.

Und tatsächlich: Ich hatte hier diesen Pfad anstelle von "'C:\PDFOfficerAppdata\PdfOfficerData\ScannedPic.j peg)'" angegeben - die Anwendung sollte ein separates Testprojekt nebst dem PDFOfficer werden, hatte dann aber vergessen, die entsprechenden Verzeichnisse auch wirklich anzulegen.
Ich änderte also den angemeckerten Pfad auf den bestehenden und löschte, nachdem ich die obige Fehlermeldung wieder erhielt, die DCUs und die Exe, um so sämtliche "Erinnerungen" Delphis auszumerzen - Pustekuchen!! Delphie meckert fröhlich weiter!

Weiss jemand Rat?

Gruss
Delbor

[sh17]

also ich sehe hinter

JPegGraphic.SaveToFile('C:\PDFOfficerAppdata\PdfOf ficerData\ScannedPic.jpeg)');

jpeg eine ) ... ist das richtig?

Ebenso bei LFileName

[OT]
und warum eigentlich nicht jpg?
[/OT]

[EWeiss]

Zitat:

jpeg eine ) ... ist das richtig?

Bestimmt nicht

Zitat:

und warum eigentlich nicht jpg?

Warum?
Es spricht nichts gegen *.jpeg
Ich verwende mitunter sogar beide wenn ich eine Datei mit gleichen Namen als jpg Format abspeichern will.

Er leitet es wohl von JpegGraphic ab.

gruss

[Delbor]

Hi zusammen

Tatsächlich hat sich hier beim einkopieren des richtigen Pfades der Fehler mit der überzähligen Klammer eingeschlichen - der ist jetzt weg - das Resultat ist dasselbe, obwohl ich exe und DCUs wieder gelöscht habe.

Diese überzähligen Klammern erklären aber nicht, wieso Delphi nach einem anderslautenden Pfad als im Code angegeben sucht.

Gruss
Delbor

[Zacherl]

Dass es überhaupt compiled, obwohl du einen Syntaxfehler eingebaut hattest, lässt darauf schließen, dass deine Unit irgendwie gar nicht verwendet wurd, oder tatsächlich noch alte DCUs verwendet werden. Kannst du die Unit mal testweise umbenennen?

[KodeZwerg]

Zitat von Zacherl:

Dass es überhaupt compiled, obwohl du einen Syntaxfehler eingebaut hattest, lässt darauf schließen, dass deine Unit irgendwie gar nicht verwendet wurd, oder tatsächlich noch alte DCUs verwendet werden. Kannst du die Unit mal testweise umbenennen?

Bezieht sich diese Aussage auf die Klammer zuviel im 'String'? Falls ja, mein Delphi kontrolliert auch keine Strings ob die gültig sind.

[p80286]

Zitat von Delbor:

Diese überzähligen Klammern erklären aber nicht, wieso Delphi nach einem anderslautenden Pfad als im Code angegeben sucht.

Im allgemeinen arbeiten Programme nur mit Daten die ihnen bekannt sind. Also solle irgendwo die "falsche" Pfad/Dateiinformation liegen.
Was ist mit der Registry, Parameter(n)-Dateie(n) usw.?
Vllt. ist es auch erhellend mal nach dem "falschen" Pfad/Dateistring zu suchen?

Gruß
K-H

[Luckie]

Lass dir den Pfad doch mal ausgeben in einer Messagebox oder so.

[Delbor]

Hi zusammen

Zitat von p80286:

Vllt. ist es auch erhellend mal nach dem "falschen" Pfad/Dateistring zu suchen?
Gruß
K-H

Das war die Lösung! Ich hatte eine Miniausgabe meines inzwischen relativ umfangreichen PDFOffizers erstellt, um es hier zu zippen, musste dann aber nochmal eine extra DP-Version erstellen, und dabei hatte ich einzelne Dateien offenbar vergessen, aus dem alten Projekt zu entfernen, bzw. dem neuen Projekt die richtige Datei hinzuzufügen.

Der Ablauf sollte in etwa so sein:

1. Projekt im neuen Verzeichnis speichern(Namen leicht ändern).
2. Mainform unter dem neuen Projektverzeichnis speichern.
3. Mainunit aus dem Projekt entfernen und schliessen
4. Die im neuen Projektverzeichnis gespeicherte Mainform laden und dem neuen Projekt hinzufügen
5. Dasselbe mit anderen Units wiederholen
6. Und nie einen Schritt vergessen..

Ja, ich weiss, ich hätte ja Tortoisegit installiert. Und eigentlich habe ich mich ja auf Delphi Tokio gerade wegen der GitIntegration gefreut - die Dokumentation ist recht ausführlich, und ich müsste mir nicht alles mühsam mit Google übersetzen. Nur leider ist diese Integration irgendwie nicht wirklich brauchbar (keine Branches etc).

Gruss
Delbor