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

[Angel4585]

Das gehört hier glaub nich hin

[michi101200]

Eine ganz dumme Frage nebenbei:
Wie kann ich das Thema verschieben?

[Larsi]

Gar nicht. Musst du die Melde Funktion benutzen. (kleines Ausrufezeichen bei deinem ersten Beitrag). Nur Mods und der Admin können Beiträgs verschieben.

[soulies]

Zitat:

Delphi-Quellcode:

  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;

welchen wert hat 'row' bei dir ?
für mich siehts so aus das die schleife nicht durchlaufen wird

cya

[michi101200]

Die Schleife läuft durch aber bei R2 := LibTiffDelphi.TIFFWriteScanline(OpenTiff,Buf,i,0); ist der Rückgabewert -1. Das deutet auf einen Fehler hin.

Aber ich weiß nicht warum.

[soulies]

öffnet

TIFFOpen(...); die datei vllt. nur lesend ?

cya

[michi101200]

Ich geben als Paramter 'w' für Write. So steht dass wohl in der Dokumentation.

Ich hab dass grad mit 'r' probiert aber das klappt auch nicht was auch logisch ist.

[soulies]

ich hab ein verständnisproblem mit deiner variablen 'row':

Delphi-Quellcode:

var i : integer;
    mFileName,mFileName2 : string;
    OpenTiff,OpenTiff2: PTIFF;
    buf : pointer;
    row,R1,R2 : integer;
begin

die variable ist als int angegeben, aber es wird nie ein wert zugewiesen - oder ?

und, hier

Delphi-Quellcode:

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;

vermute ich das row irgendeinen wert hat, zB 10.000 - wenn aber nur 1.000 zeilen wirklich da sind
dann versucht doch TIFFWriteLine zu schreiben obwohls es nicht geht und liefert -1 zurück.

also ich hab erklärungsbedarf (auch für mich selbst wenn alles richtig ist ...)

cya