Multipage bei Tiff-Dateien

[michi101200]

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