Welche Grafikart befindet sich TPicture Variable?

[Merowinger]

Hey DPler,

ich möchte herausfinden was für eine Grafik in der Variable Bild ist

(GIF,JPEG,WMF,BMP,PNG). Eine Möglichkeit ist über den Suffix von Opendialog.Filename

zu gehen. Gibt es noch eine andere Möglichkeit?

Mein Quelltext:

Delphi-Quellcode:

procedure TMainForm.BImageOpenClick(Sender: TObject);
var Bild : TPicture;

begin
     if OpenPictureDialog.Execute then begin
        Bild := TPicture.Create;
        Bild.LoadFromFile(OpenPictureDialog.FileName);
        //Hier die Prüfung 
        Bild.Free;
     end;
end;

Danke Merowinger

[turboPASCAL]

Einfach die Endung des Dateinamen prüfen.

ExtractFileExt

[Merowinger]

Danke für die Antwort. Ich dachte es gibt vielleicht noch eine andere Variante die das Problem etwas eleganter löst.

Danke Merowinger

[turboPASCAL]

Nein. der Typ der Grafik wird nicht in TPicture gespeichert, da die Grafiken intern als Bitmap behandelt werden.

Man könnte sich aber einen eigenen Typ von TPicture ableiten und dort solch eine Option einbauen.

[SirThornberry]

Der Typ wird indirekt schon im TPicture gespeichert. Und war sind alle Bilder-Klassen von TGraphic abgeleitet. Wenn man also mit TPicture ein Bild läd, so wird dynamich die benötigte Klasse erzeugt (class of TGraphic). Das Property Graphic ist also der Klassentyp des Bildes. Wenn du also ein JPEG in ein TPicture lädst so müsste das Graphic-Property vom Typ TJPEGImage sein etc.

@turboPASCAL: Das die Grafik intern als TBitmap gehandelt wird ist falsch. Wenn du mal ein JPEG in ein TPicture lädst und versuchst auf Picture.Bitmap zu zugreifen sollte dir eine AV erscheinen. Wenn TPicture alles als Bitmap handeln würde so wären alphatransparenz im TImage gar nicht möglich was aber eindeutig geht (siehe PNG)

[turboPASCAL]

Zitat von SirThornberry:

Der Typ wird indirekt schon im TPicture gespeichert. Und war sind alle Bilder-Klassen von TGraphic abgeleitet. Wenn man also mit TPicture ein Bild läd, so wird dynamich die benötigte Klasse erzeugt (class of TGraphic). Das Property Graphic ist also der Klassentyp des Bildes. Wenn du also ein JPEG in ein TPicture lädst so müsste das Graphic-Property vom Typ TJPEGImage sein etc.

Ja, es währe aber schöner wenn man zB. TGA, TIF, JPG usw. in ein Image läd dann auch einfach auf die Ext. bzw den Typ abfragen kann. Hier im Forum gibts ja schon irgend wo wine Kompo. wo der Dateiname des geledenen Bildes mit gespeichert wird. (So hatte ich die Frage verstanden)

Zitat von SirThornberry:

@turboPASCAL: Das die Grafik intern als TBitmap gehandelt wird ist falsch. Wenn du mal ein JPEG in ein TPicture lädst und versuchst auf Picture.Bitmap zu zugreifen sollte dir eine AV erscheinen. Wenn TPicture alles als Bitmap handeln würde so wären alphatransparenz im TImage gar nicht möglich was aber eindeutig geht (siehe PNG)

Die Nutzung der geledenen Grafik also das geladene Bild/Picture, egal ob JPG oder PNG wird in Windows als Bitmap verwaltet. Das Bild in TGrafic ist auch nur ein Bitmap. Das man das nicht in TPicture.Bitmap nicht findet ist klar, es wurde ja nicht in diese Propdings ( ). geladen. Das macht das Bearbeiten / Laden / Speichern einfacher.

Du kannst ja eine TGrafik ja auch mit BitBlt auf einen DC kopieren.

Oder irre ich mich in dieser Sache?

...kann mir das leider nicht genauer anschauen, da fehlen mir ein paar Sources.

[Flocke]

Zitat von turboPASCAL:

Oder irre ich mich in dieser Sache?

...kann mir das leider nicht genauer anschauen, da fehlen mir ein paar Sources.

Ja, tust du. Von TGraphic (der abstrakten Basisklasse) stammen z.B. TBitmap, TMetafile, TIcon ab. TPicture speichert nur einen Verweis darauf. Hier übrigens die Kommentare zu den Eigenschaften aus Grahpics.pas:

Delphi-Quellcode:

{
      Graphic - The TGraphic object contained by the TPicture
      Bitmap - Returns a bitmap.  If the contents is not already a bitmap, the
        contents are thrown away and a blank bitmap is returned.
      Icon - Returns an icon.  If the contents is not already an icon, the
        contents are thrown away and a blank icon is returned.
      Metafile - Returns a metafile.  If the contents is not already a metafile,
        the contents are thrown away and a blank metafile is returned. }

Wenn du also ein Metafile reingeladen hattest und dann die Eigenschaft Bitmap benutzt, dann wird der ursprüngliche Inhalt verworfen.