TPicture - Liste der unterstützen Dateiformate

[Neutral General]

Hi,

Intern verwendet TPicture ja eine TFileformatslist (= class(TList)) in der alle registrierten Dateiformatendungen inkl TGraphicklasse etc gespeichert werden.

Problem ist nur, dass sich diese TFileformatslist Variable in der alles gespeichert wird im implementation Teil der Graphics.pas befindet und ich scheinbar auch sonst von außerhalb keinen Zugriff darauf habe.

Gibt es trotzdem irgendwie eine Möglichkeit sich alle von TPicture unterstützten Dateitypen (Endungen!) auflisten zu lassen?

Gruß
Neutral General

[olee]

Wenn du eine etsprechende Version von Delphi hast (z.B. Turbo Delphi) dann ist die source dabei.

Ich würde einfach mal kucken, woher der Inhalt dieser Liste kommt :wink:


MFG

[Neutral General]

Jo ich hab die Sourcen und ich weiß auch woher die Einträge kommen. Nämlich wenn man TPicture.RegisterGraphicFormat (oder so) aufruft. Allerdings komme ich an die Liste selbst soweit ich das sehe nicht ran, weil die wie gesagt im Implementation Teil der Graphics Unit deklariert ist.

[olee]

Wofür brauchst du die Liste denn?

Vllt. gibt es ja eine andere Möglichkeit?

[Neutral General]

Ich will per FindFirst/FindNext/FindClose alle Dateien eines Ordners in eine Stringliste laden, die in mein TImage ladbar sind.

[olee]

Dann machs dir doch leich und nimm alle, wo du weiß das es loader für TPicture gibt
(also sowas wie dds kannst du direkt weglassen).

Dann kannst du einfach probieren, die Bilder zu öffnen.

Gibts ne Exeption, wird das Format nicht unterstützt.

Das kann man noch so erweitern, dass er asu den gefundenen dateien eines
von jedem Dateityp raussucht, und diese entsprechend testet und die Liste
der gefundenen Dateien danach aktualisiert.

Das würde sogar erlauben, später eigene Loader u.A. einzubauen, die das Bild selbst
laden und es Im TPicture ablegen.

:thumb:

MSFG

[Larsi]

du kannst auch einen openpicturedialog nehmen. da steht im filter alles drinnen was das image öffnen kann.

[Medium]

Der OpenPictureDialog war ein guter Ort um genau hinzuschauen. Dort wird die Funktion GraphicFilter() der Unit Graphics verwendet, und diese wiederum nutzt dies:

Delphi-Quellcode:

function GetFileFormats: TFileFormatsList;

Und dort bekommst du dann eine Referenz auf die Liste in der Graphics-Unit.

[OlloSoft]

Zitat:

Zitat von Medium

Der OpenPictureDialog war ein guter Ort um genau hinzuschauen. Dort wird die Funktion GraphicFilter() der Unit Graphics verwendet, und diese wiederum nutzt dies:

Delphi-Quellcode:

function GetFileFormats: TFileFormatsList;

Und dort bekommst du dann eine Referenz auf die Liste in der Graphics-Unit.

Drivel, eben diese Funktion ist privat, Du kannst sie von außerhalb der Unit nicht aufrufen.
Die einzige Möglichkeit wäre diesen Filtersting zu parsen, wenn ich bedenke, dass die Extensions ordentlich in einer Liste vorhanden sind, sträuben sich mir allerdings die Haare. Da haben die Damen und Herren aus dem Hause Borland, CodeGear, Embarcadigenskirchen, oder wo Delphi demnächst (wenn überhaupt noch) hergestellt wird, mal wieder ganze Arbeit geleistet.

Noch ein Tipp: Kopiere die Datei Graphics.pas, füge dem Interface-Abschnitt die Forward-Deklaration für GetFileFormats hinzu und füge diese geänderte Datei Deinem Projekt hinzu.

[mirage228]

GraphicsFileMask, GraphicsFilter aus der Unit Graphics - Das funktioniert ;)