Hi zusammen
Inzwischen hat sich etwas getan, und obige Prozedur hat sich etwas verändert:
Delphi-Quellcode:
procedure TPDFOfficerMain.DoFinishedImageScan(Sender: TObject;
const Image: TBitmap);
var ActDate, OldFile, S, P :String;
Scannedstream : TFileStream; TTifimage : TTIFFGraphic;
begin
TTifimage := TTIFFGraphic.Create;
TTifimage.Assign(Image); /// Das Image(BMP) wird in ein Tiff umgewandelt
ImgScannedImage.Picture.Assign(TTifimage); /// und einem TImage zugewiesen und auch angezeigt
ImgScannedImage.Stretch := True;
ActDate := ReplaceStr(DateTimeToStr(Now),':', '-' );
OldFile := 'Image' +ActDate+'.tiff'; // OldFile ist der Pfad, unter dem das Tiff gespeichert wird
S := IncludeTrailingPathDelimiter(FAppDataPath) + OldFile;
P := ChangeFileExt(S,'.Pdf');
TTifimage.SaveToFile(S); // <=Hier sollte das Tiff gespeichert werden
Self.OCRFrame1.OutputFileName := P; // 2 Propertys beschreiben direkt 2 Felder für den
Self.OCRFrame1.InputFileName := S; // Quell- und den Zielpfad, den die Fuktion CreatePDF benötigt
Self.OCRFrame1.OCR2PDF;
end;
Das Tiff wird zwar angezeigt, aber nicht gespeichert - logisch, dass die PDF-Datei zwar ebenso angelegt wird, wie die Tiff-Datei, aber natürlich ebenso leer ist. Das Problem scheint also genau da zu liegen. Was mache ich Falsch?
Gruss
Delbor