Ergebnis der Suchanfrage

• Forum: Multimedia

  Re: Multipage bei Tiff-Dateien

    Delphi
    by michi101200, 26. Jun 2008
  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.
  
  procedure TForm_Scan.Button1Click(Sender: TObject);
  var i,R1,R2 : integer;
• Forum: Multimedia

  Re: Multipage bei Tiff-Dateien

    Delphi
    by michi101200, 24. Jun 2008
  Ich muss leider jetzt weg.
  
  Wenn ihr eine Idee habt, also kann natürlich auch ohne diese Komponente sein, dann schreibt sie bitte.
• Forum: Multimedia

  Re: Multipage bei Tiff-Dateien

    Delphi
    by michi101200, 24. Jun 2008
  oh sorry :oops:
  
  Beim ganzen Testen habe ich dass einmal entfernt aber ich habe den Befehl drin
  
  
  LibTiffDelphi.TIFFGetField(OpenTiff2,TIFFTAG_IMAGELENGTH,row);
  
  buf := _TIFFmalloc(TIFFScanlineSize(OpenTiff2));
  
  For i := 0 To row - 1 do begin
• Forum: Multimedia

  Re: Multipage bei Tiff-Dateien

    Delphi
    by michi101200, 24. Jun 2008
  OpenTiff2 ist ja die Quelldatei.
  
  Mit dem Befehl LibTiffDelphi.TIFFGetField(OpenTiff2,TIFFTAG_PHOTOMETRIC,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.
• Forum: Multimedia

  Re: Multipage bei Tiff-Dateien

    Delphi
    by michi101200, 24. Jun 2008
  Hier ist wohl mein Problem (in englisch) beschrieben aber trotzdem läuft das nicht. :-(
• Forum: Multimedia

  Re: Multipage bei Tiff-Dateien

    Delphi
    by michi101200, 24. Jun 2008
  Kein Problem.
  
  Also die Variable row bekommt bei 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 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.
• Forum: Multimedia

  Re: Multipage bei Tiff-Dateien

    Delphi
    by michi101200, 24. Jun 2008
  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.
• Forum: Multimedia

  Re: Multipage bei Tiff-Dateien

    Delphi
    by michi101200, 24. Jun 2008
  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.
• Forum: Multimedia

  Re: Multipage bei Tiff-Dateien

    Delphi
    by michi101200, 24. Jun 2008
  :wall:
  
  Eine ganz dumme Frage nebenbei:
  Wie kann ich das Thema verschieben?
• Forum: Multimedia

  Multipage bei Tiff-Dateien

    Delphi
    by michi101200, 24. Jun 2008
  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 ...