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]

:wall:

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

Delphi-Quellcode:

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

Delphi-Quellcode:

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.

[DP-Maintenance]

Dieses Thema wurde von "MrSpock" von "Neuen Beitrag zur Code-Library hinzufügen" nach "Multimedia" verschoben.
Ist ein Multimedia Thema.

[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

[michi101200]

Kein Problem.

Also die Variable row bekommt bei

Delphi-Quellcode:

LibTiffDelphi.TIFFGetField(OpenTiff2,TIFFTAG_IMAGELENGTH,row);

den Wert.

Es wird auch etwas gespeichert aber das wird so durcheinander gespeichert dass da kein Bild rauskommt. Bei

Delphi-Quellcode:

R2 := LibTiffDelphi.TIFFWriteScanline(OpenTiff,Buf,i,1);

kommt schon ein Fehler, also der Rückgabewert ist -1 was ein Fehler ist denn es soll 1 rauskommen.

[michi101200]

Hier ist wohl mein Problem (in englisch) beschrieben aber trotzdem läuft das nicht. :-(

[soulies]

also, wo kommt denn das her ?

Delphi-Quellcode:

LibTiffDelphi.TIFFGetField(OpenTiff2,TIFFTAG_IMAGELENGTH,row);

denn in deinem geposteten quellcode stehts ja nicht drin, oder ist dieser nur ein ausschnitt ?

[michi101200]

OpenTiff2 ist ja die Quelldatei.

Mit dem Befehl LibTiffDelphi.TIFFGetField(OpenTiff2,TIFFTAG_PHOTO METRIC,Row); wird die Anzahl der Reihen von der Quelldatei geladen und in der Variable Row übergeben.

So bekommt die Varable die Anzahl der Reihen von der Quelldatei damit man weiß wieviele Reihen "kopiert" werden soll.

[soulies]

Zitat:

Mit dem Befehl LibTiffDelphi.TIFFGetField(OpenTiff2,TIFFTAG_PHOTO METRIC,Row); wird die Anzahl der Reihen von der Quelldatei geladen und in der Variable Row übergeben.

alles ok ... aber

in deiner geposteten btn methode

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;

taucht doch der befehl gar nicht auf ...also wird er an anderer stelle verwendet ...
ich wollt nur wissen wo ?

[michi101200]

oh sorry :oops:

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);

[michi101200]

Ich muss leider jetzt weg.

Wenn ihr eine Idee habt, also kann natürlich auch ohne diese Komponente sein, dann schreibt sie bitte.

[michi101200]

Also ich bin zwar schon weitergekommen aber da ist noch ein Fehler.

Aber erstmal erwähne ich was der vorherige Fehler war:
Man muss nämlich erst sogenannte Tags bzw. Fields definieren.
Das hab ich jetzt gemacht.

Hier erstmal der "neue" Code.

Delphi-Quellcode:

procedure TForm_Scan.Button1Click(Sender: TObject);
var i,R1,R2 : integer;
    mFileName,mFileName2,mtest : string;
    OpenTiff,OpenTiff2: PTIFF;
    buf : pointer;
    row, AddRow : integer;
    width, height,rows,cols,channels, Photo, BitsPerSam : ^integer;
    TileLen, TileWid, rowstrip : ^integer;
begin
  mFileName := 'F:\temp\gescannteBilder\BMPTiff1.tiff';
  mFileName2 := 'F:\temp\gescannteBilder\BMPTiff2.tiff';

  New(rows);
  New(cols);
  New(channels);
  New(Photo);
  New(BitsPerSam);
  New(TileLen);
  New(TileWid);
  New(rowstrip);

  OpenTiff2 := TIFFOpen(mFileName2,'r');
  TIFFGetField(OpenTiff2,TIFFTAG_IMAGELENGTH,rows);
  TIFFGetField(OpenTiff2,TIFFTAG_IMAGEWIDTH,cols);
  TIFFGetField(OpenTiff2,TIFFTAG_SAMPLESPERPIXEL,channels);
  TIFFGetField(OpenTiff2,TIFFTAG_PHOTOMETRIC,Photo);
  TIFFGetField(OpenTiff2,TIFFTAG_BITSPERSAMPLE,BitsPerSam);
  TIFFGetField(OpenTiff2,TIFFTAG_BITSPERSAMPLE,BitsPerSam);
  TIFFGetField(OpenTiff2,TIFFTAG_BITSPERSAMPLE,BitsPerSam);

  TIFFGetField(OpenTiff2,TIFFTAG_TILELENGTH,TileLen);
  TIFFGetField(OpenTiff2,TIFFTAG_TILEWIDTH,TileWid);
  TIFFGetField(OpenTiff2,TIFFTAG_ROWSPERSTRIP,rowstrip);

  buf := _TIFFmalloc(TIFFScanlineSize(OpenTiff2));

  OpenTiff := TIFFOpen(mFileName,'a');
  TIFFSetField(OpenTiff,TIFFTAG_IMAGEWIDTH,cols);
  TIFFSetField(OpenTiff,TIFFTAG_IMAGELENGTH,rows);
  TIFFSetField(OpenTiff,TIFFTAG_SAMPLESPERPIXEL,channels);
  TIFFSetField(OpenTiff,TIFFTAG_PHOTOMETRIC,Photo);
  TIFFSetField(OpenTiff,TIFFTAG_BITSPERSAMPLE,BitsPerSam);

  TIFFSetField(OpenTiff,TIFFTAG_TILELENGTH,TileLen);
  TIFFSetField(OpenTiff,TIFFTAG_TILEWIDTH,TileWid);
  TIFFSetField(OpenTiff,TIFFTAG_ROWSPERSTRIP,rowstrip);

  TIFFSetField(OpenTiff,TIFFTAG_PLANARCONFIG,PLANARCONFIG_CONTIG);

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


  TIFFWriteDirectory(OpenTiff);
  _TIFFfree(buf);
  TIFFClose(OpenTiff);
  TIFFClose(OpenTiff2);
  Dispose(rows);
  Dispose(cols);
  Dispose(channels);
  Dispose(Photo);
  Dispose(BitsPerSam);
  Dispose(TileLen);
  Dispose(TileWid);
  Dispose(rowstrip);

end;