Image breite und Höhe

[Tsuki-Namida]

Hallo,
Ich möchte herausfinden welche breite und höhe ein bild hat (*.jpg) Ich habe in der PB Hilfe nur "ImageWidth()" gefunden aber ich brauche beide... gibt es da was?

[DarkDragon]

ImageHeight()

[Tsuki-Namida]

@DarkDragon das stand nicht in der hilfe.... naja gut werde es versuchen danke

[DarkDragon]

@DarkDragon das stand nicht in der hilfe.... naja gut werde es versuchen danke

Doch:

Befehlsübersicht

CatchImage
CopyImage
CreateImage
FreeImage
GrabImage
ImageDepth
ImageHeight
ImageID
ImageOutput
ImageWidth
IsImage
LoadImage
ResizeImage
SaveImage
UseImage

[Tsuki-Namida]

Der befehl ist super danke...

aber...

Code: Alles auswählen

        While NextDirectoryEntry()=1
          img_datei$ = DirectoryEntryName()
          Hohe.l = ImageHeight()
          Breite.l = ImageWidth()
          Debug Hohe.l
          Debug Breite.l
          img_datei$ = RemoveString(img_datei$, ".jpg")
          img_datei$ = RemoveString(img_datei$, ".JPG")
          AddGadgetItem(#File,-1,img_datei$)
        Wend

Warum bekomme ich bei "Debug Hohe.l" immer 14 und bei "Debug Breite.l" immer 16 zurück? dabei haben die bilder alle unterschiedliche größen....

[FGK]

@Kain

in deinem Codeschnipsel lädst du das Bild aber nicht - deshalb gibt ImageHeight und ImageWidth immer die Werte zurück die das letzte
benutzte Image besessen hat. Die Befehle beziehen sich ja immer auf das "aktive" Image. Deshalb gibt es ja auch den Befehl UseImage um
aus mehreren Images das aktiv zu setzen auf das die folgende Imagebefehle sich beziehen sollen.

Gruß

FGK

[ts-soft]

Um Hoehe oder Breite eines Bildes zu ermitteln, mußte es natürlich laden, nur den Namen feststellen reicht nicht

[Macros]

Code: Alles auswählen

While NextDirectoryEntry()=1
          img_datei$ = DirectoryEntryName()
          LoadImage(1,img_datei$)
          UseImage(1)
          Hohe.l = ImageHeight()
          Breite.l = ImageWidth()
          Debug Hohe.l
          Debug Breite.l
          img_datei$ = RemoveString(img_datei$, ".jpg")
          img_datei$ = RemoveString(img_datei$, ".JPG")
          If hohe<=55 And breite<=55
          AddGadgetItem(#File,-1,img_datei$)
          Endif
        Wend

falls du die ImageID 1 schon verwendet hast, natürlich ersetzen.

[Tsuki-Namida]

wie kann ich das dann ambesten machen? es sollen ja nur bilder mit einer maximal größe von 55 x 55 pixeln in die lise geladen weden.

[Edit]
okay ich bin zulangsam für diese Welt xD
[/Edit]

[Macros]

Habe meinen Code angepasst.