TIF schnell anzeigen mit Anti Aliasing

[dataspider]

Hallo,

ich habe einen Viewer für DocuWare (DMS) geschrieben.
Es funktioniert zwar, aber das Laden von TIF - Dateien dauert mir zu lange.
Ich habe mit Delphi 2010 erst über TWICImage angefangen.
Dann mit Graphics32. Das ist bis jetzt am Schnellsten.
Aber das Laden eines Bildes (TIF) dauert immer noch ca. 2 s.
Manchmal besteht aber ein Dokument aus bis zu 100 Seiten. Da ist das Blättern dann doch mühselig.

Meine jetzige Routine sieht so aus:

Delphi-Quellcode:

procedure TfrmTiffView.ShowPage;
Var
  R: TKernelResampler;
begin
  ImageTiff.BeginUpdate;
  try
    ImageTiff.Bitmap.BeginUpdate;
    try
      beiPageNumber.EditValue := PageNumber;
      ImageTiff.Bitmap.Assign(NIL);
      ImageTiff.Bitmap.LoadFromFile(FileNames[PageNumber -1]);
      R := TKernelResampler.Create(ImageTiff.Bitmap);
      //R.Kernel :=  TLanczosKernel.Create;
      R.KernelMode := kmTableLinear;
      R.TableSize := 16;
    finally
      ImageTiff.Bitmap.EndUpdate;
    end;
  finally
    ImageTiff.EndUpdate;
  end;
end;

ImageTiff ist TImageView32.

Mit VS 2010 c# geht das Laden z.B. fix. Aber ich will jetzt nicht Alles neu schreiben (und Delphi bin ich einfach schneller).

Kennt jemand einen Weg, TIF' s schnell anzuzeigen (auch Fremdkomponenten)?

Danke

Frank

[himitsu]

Die Delphi-Codes für TIFF scheinen wohl etwas "lahm" zu sein.

ImageEn ist da auch nicht unbedingt schneller ... 'ne A4-Seite mit 300 DPI braucht da auch so etwa die 2 Sekunden.
Das, was nicht angezeigt werden muß und wo ich nur eine Seite brauche, mach ich (seit gestern, da hatte ich das TWICImage auch gefunden) nun ebenfalls über TWICImage.


Im Notfall kannste die Bilder doch auch vorrendern.

[dataspider]

Hi,

bei TWICImage muss ich dann noch eine Routine für das AntiAliasing hinterherschieben.
Zumindest habe ich noch nicht herausbekommen, ob das anders funktioniert.
Und dann brauch das Assign in das TImage auch noch mal erheblich Zeit.

...und Danke für deine Antwort.

Frank

[himitsu]

Zumindestens könntest du dir ja erstmal die Demos ansehn.

Aber nicht wundern, bei den vorkompilierten Demos hat irgendwer (schon seit Ewigkeiten) einige Exen vertauscht.
Da ist dann manchmal eine andere Demo in der EXE drin, als man erwartet (laut Datainame/Verzeichnis)
http://www.xequte.com/imageen/download/index.html

[Der Jan]

Ich habe vor paar Jahren Images im TIFF-Format aus einem Dokumentenarchiv per Delphi anzeigen müssen und hab dafür LibTiffDelphi genommen, sind die Delphi-Bindings der LibTiff. Das ging sehr schnell. Allerdings weiß ich nicht, wie es in der Delphivariante mit Antialiasing ausschaut.

[jus]

Bin zwar schon oft, auf das Wort antialiasing in Zusammenhang mit Bilder gestossen, darum, was bring antialiasing in Zusammenhang mit tif?
Achja implizit ist libtiff auch in der Vampyre imaging Lib enthalten.
Lg,
Jus

[himitsu]

Wenn man ein Bild verkleinert, dann gibt es mehrere Möglichkeiten.

- einfach und schnell > einfach jedes x-te Pixel nehmen in in das Zielbild kopieren
> geht schnell und das Bild bleibt schärfer

- langsamer und schöner > alle Pixel, welche sich innerhalb des Zielpixels befinden, zusammenrechnen und in das Pixel des Zielbildes kopieren
(und hier gibt es dann nochmal tausende Möglichkeiten, wie man die Pixel zusammenrechnet)
> Berechnungen dauern ein bissl länger, aber Details gehen nicht direkt verloren


Hast du z.B. eine dünne Linie auf dem großen Bild und verkleinerst dieses dann, kann es bei Variante 1 passieren, daß diese Linie nicht sichtbar ist, da sie eventuell gerade in den übersprungenen/ignorierten Pixeln liegt.