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