Seite 1 von 2
Image breite und Höhe
Verfasst: 14.01.2006 11:59
von 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?
Verfasst: 14.01.2006 12:01
von DarkDragon
ImageHeight()
Verfasst: 14.01.2006 12:13
von Tsuki-Namida
@DarkDragon das stand nicht in der hilfe.... naja gut werde es versuchen
danke
Verfasst: 14.01.2006 12:15
von DarkDragon
Magix-Soft <Kain> hat geschrieben:@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
Verfasst: 14.01.2006 12:23
von 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....
Verfasst: 14.01.2006 12:51
von 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
Verfasst: 14.01.2006 12:52
von ts-soft
Um Hoehe oder Breite eines Bildes zu ermitteln, mußte es natürlich laden, nur den Namen feststellen reicht nicht
Verfasst: 14.01.2006 13:10
von 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.
Verfasst: 14.01.2006 13:10
von 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]
Verfasst: 14.01.2006 13:13
von Macros
Habe meinen Code angepasst.