Multipage bei Tiff-Dateien

[michi101200]

oh sorry

Beim ganzen Testen habe ich dass einmal entfernt aber ich habe den Befehl drin

Delphi-Quellcode:

  
  LibTiffDelphi.TIFFGetField(OpenTiff2,TIFFTAG_IMAGELENGTH,row);

  buf := _TIFFmalloc(TIFFScanlineSize(OpenTiff2));

  For i := 0 To row - 1 do begin
    R1 := LibTiffDelphi.TIFFReadScanline(OpenTiff2,Buf,i,0);
    R2 := LibTiffDelphi.TIFFWriteScanline(OpenTiff,Buf,i,0);