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:

zusammenfalten · markieren

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

Das gehört hier glaub nich hin

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

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

Zitat:

markieren

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

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.

öffnet

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

cya

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.

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

markieren

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

markieren

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