Hallo,
ich komme mal wieder nicht weiter
Ich schreib gerade ein Scann Programm mit der Komponenten DelphiTwain.
Das klappt auch wunderbar und wird auch in einer Tiff-Datei gespeichert.
Aber wenn man mehrere Dokumente scannt dann soll das in
einer Tiff-Datei mit mehreren Seiten gespeichert werden.
Dazu benutze ich die Klasse LibTiffDelphi
http://www.awaresystems.be/imaging/tiff/delphi.html
Zur Testzwecken lasse ich den Scannvorgang erstmal aussenvor und versuche 2 Tiff-Dateien in einer zu speichern:
Delphi-Quellcode:
procedure TForm_Scan.Button1Click(Sender: TObject);
var i : integer;
mFileName,mFileName2 : string;
OpenTiff,OpenTiff2: PTIFF;
buf : pointer;
row,R1,R2 : integer;
begin
mFileName := 'F:\temp\gescannteBilder\BMPTiff1.tiff';
mFileName2 := 'F:\temp\gescannteBilder\BMPTiff2.tiff';
OpenTiff := TIFFOpen(mFileName,'a');
OpenTiff2 := TIFFOpen(mFileName2,'r');
buf := _TIFFmalloc(TIFFScanlineSize(OpenTiff));
For i := 0 To row - 1 do begin
R1 := LibTiffDelphi.TIFFReadScanline(OpenTiff2,Buf,i,0);
R2 := LibTiffDelphi.TIFFWriteScanline(OpenTiff,Buf,i,0);
//ShowMessage(IntToStr(R1) + ' ' + IntToStr(R2));
end;
TIFFWriteDirectory(OpenTiff);
_TIFFfree(buf);
TIFFClose(OpenTiff);
TIFFClose(OpenTiff2);
end;
Kennt ihr eine Lösung?
Vielen Dank schon mal für eure Bemühungen