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 ?