Einzelnen Beitrag anzeigen

Benutzerbild von dataspider
dataspider

Registriert seit: 9. Nov 2003
Ort: 04539 Groitzsch
1.350 Beiträge
 
Delphi 11 Alexandria
 
#1

TIF schnell anzeigen mit Anti Aliasing

  Alt 27. Sep 2011, 08:46
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
Frank Reim
  Mit Zitat antworten Zitat