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