OpenPictureDialog Filter

[taktaky]

Hallo,

ich möchte den Pfad eines Bildes in Edit1.Text holen

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenPictureDialog1.Execute then
  Edit1.Text:=OpenPictureDialog1.Filename
end;

Obwohl der OpenBild-Filter mehrere Dateitypen hat, wird leider bei der Bild-Auswahl nicht alle Dateitypen angezeigt ! (sehe das Bild im Anhang)

___

[turboPASCAL]

- Hast du den Bildfilter selbst eingegeben ?
- ist die Unit JPEG mit in der Usesklausel eingebunden ?

[taktaky]

Zitat von turboPASCAL:

- Hast du den Bildfilter selbst eingegeben ?
- ist die Unit JPEG mit in der Usesklausel eingebunden ?

Den Bildfilter habe nicht selber eingegeben sondern einige Bild-Typen dazu hingeschrieben im Filter.
nachdem ich in Uses "jpeg" eingegeben habe, erscheint jetzt den Bildtyp .jpg in der Liste
Ich habe noch die Bild-Typen .gif, und .png auch in Filter eingetragen. Was muss ich noch in USES eintragen, da ich eine Fehlermeldung bekomme, wenn ich ein gif oder png Typ auswähle!

---

[Klaus01]

Suche mal hier im Forum nach TGifImage.
Das wird Dir dann sicherlich weiterhelfen.

Grüße
Klaus

[taktaky]

Zitat von Klaus01:

Suche mal hier im Forum nach TGifImage.
Das wird Dir dann sicherlich weiterhelfen.

Ich möchte aber nicht nur den Typ GIF sondern noch einige wie PNG

ich habe diesen schönen Code gefunden leider wird PNG nicht unterstützt :
http://www.s170867368.online.de/delphi/gif.php

---

[Pfoto]

Hi!

um PNG darstellen zu können, musst du dir extra
Units herunterladen, z.B. hier:
http://pngdelphi.sourceforge.net/

Danach kannst du den Filter ".png" manuell hinzufügen
und PNG-Bilder müssten angezeigt werden.


Gruß
Pfoto

[Muetze1]

Du bist echt witzig. Nur weil du den Filter für den Dialog erweiterst, heisst das noch lange nicht, dass die VCL die Bildformate kann. Denkste wirklich, dass der OpenPictureDialog mit einem Bildformat umgehen kann, welches ich mir gerade eben ausgedacht habe, in dem du einfach nur die Maske hinzufügst?

Delphi bzw. die VCL zeigt im OpenPictureDialog nur die ihr bekannten und unterstützten Bildformate an. Wenn du dort noch GIF und PiNG haben willst, dann musst du eine entsprechende Komponente in installieren, welche der VCL beibringt mit dem Dateiformat umzugehen. Wie schon geschrieben, such mal TGIFImage und dann noch nach TPNGImage. Diese dann installieren und du hast deine Auswahl.

Zitat von Pfoto:

Danach kannst du den Filter ".png" manuell hinzufügen und PNG-Bilder müssten angezeigt werden.

Nein, die PiNG Unit wie auch TGIFImage registrieren ihr Dateiformat samt einer Extension. Diese tauchen dann automatisch im OpenPictureDialog auf.

[turboPASCAL]

Zitat von taktaky:

Ich habe noch die Bild-Typen .gif, und .png auch in Filter eingetragen.

Tja, das reine eintragen in den filter nützt delphi rein gar nix. Delphi selbst
unterstützt von hause nur Bitmaps und icons und einige metafiles. Das heisst
Dateien wie *.bmp, *.ico *.wmf. Durch einbinden von weiteren units die den
import und oder export von graphicformaten unterstützen kann man den funktionsumfang
erweitern. Die jpeg-unit ist so ein teil.

Weitere zB. hier:

- für png-graphicen: http://pngdelphi.sourceforge.net/
- für gif-graphicen: TGifImage TGifImage
- für tga-graphicen: bei mir in arbeit

Teilweise sind das komponenten bzw.pagages die man erst insallieren muss.
Siehe dazu bitte in deiner onlinehilfe (F1) oder über die DP - eigene suche nach.

[taktaky]

Zitat von Pfoto:

Hi!

um PNG darstellen zu können, musst du dir extra
Units herunterladen, z.B. hier:
http://pngdelphi.sourceforge.net/

Danach kannst du den Filter ".png" manuell hinzufügen
und PNG-Bilder müssten angezeigt werden.


Gruß
Pfoto

Schon PNGImage (pngextra.pas, pngimage.pas, pnglang.pas, zlibpas.pas) gedownloadet

Wie kann ich das ganze richtig installieren?

Bei GifImage war nicht so kompliziert.
Der Dateityp .png ist nun in der Liste und kann ich PNG Bild in mein Form hinzufügen.

Ich habe die 4 PNGImage-Dateien in den Projeckt-Ordner kopiert und dann kompiliert

Ich bekomme die Meldung :
[Fatal Error] pngimage.pas(1): Program or unit 'pngimage.pas' recursively uses itself