JPG Größe - Paules-PC-Forum.de

Gerhard Putschalka · 05.05.2011, 10:22

Wie kann ich mit reinen Profanbefehlen (evtl. mit API) die Größe einer JPG Grafik ermitteln?

In PrFellow gibt es zwar Beispiele (GrafDim,...Grafikauflösung2) die aber bei JPG manchesmal falsche Werte liefern.
Mit der TwJPeg.dll von Andreas Miethe werden zwar die richtigen Werte geliefert aber nur zur Ermittlung dieser Werte möchte ich nicht extra eine DLL einsetzen.

Vielen Dank.
Gerhard.
XProfan11.2 und Windows7

**Frabbing** · 05.05.2011, 11:01

Die einfachste Möglichkeit ist:

Code:

Cls
DrawPic "bild.jpg", %maxx, %maxy; 0
Print Str$(%BmpX)
Print Str$(%BmpX)
Waitinput

Noch besser:

Code:

Cls
Create("hPic", -1, "bild.jpg")
Print Str$(%BmpX)
Print Str$(%BmpX)
Waitinput

Nochmal besser: Nur die ersten 14 Bytes der Datei einlesen. An Offset 10 und 12, diese beiden Wörter kennzeichnen Breite und Höhe des Bildes. Allerdings sind diese Angaben nicht immer direkt in Pixel angegegen, sondern in Pixel, Inch oder cm. Das Byte an Offset 9 zeigt, in welcher Form die Größenmasse vorliegen:

0 = Pixel
1 = Punkte per inch
2 = Punkte per cm

Da muss man ggf. umrechnen.

_Joerg_ · 05.05.2011, 11:05

Ich hätte noch einen: Mit MLoadBmp werden auch die Werte %bmpx und %bmpy% gefüttert.

Gerhard Putschalka · 05.05.2011, 11:20

Das war aber sehr prompt! Danke.

Die Frage ist beantwortet.

Code:

  Hnd& = @Create("hSizedPic", -1,File$, 1240, 700, 1)
  Messagebox(@Str$(%BmpX),@Str$(%BmpY),0)

Und es ist DIE Lösung.

Danke
Gerhard.

05.05.2011, 10:22	#1 (Direktlink)
Gerhard Putschalka War schon mal da Registriert seit: 24.05.2009 Beiträge: 46	JPG Größe Wie kann ich mit reinen Profanbefehlen (evtl. mit API) die Größe einer JPG Grafik ermitteln? In PrFellow gibt es zwar Beispiele (GrafDim,...Grafikauflösung2) die aber bei JPG manchesmal falsche Werte liefern. Mit der TwJPeg.dll von Andreas Miethe werden zwar die richtigen Werte geliefert aber nur zur Ermittlung dieser Werte möchte ich nicht extra eine DLL einsetzen. Vielen Dank. Gerhard. XProfan11.2 und Windows7

05.05.2011, 11:01	#2 (Direktlink)
Frabbing Super-Moderator Registriert seit: 05.02.2009 Ort: Westliches NRW Alter: 44 Beiträge: 5.094	Die einfachste Möglichkeit ist: Code: Cls DrawPic "bild.jpg", %maxx, %maxy; 0 Print Str$(%BmpX) Print Str$(%BmpX) Waitinput Noch besser: Code: Cls Create("hPic", -1, "bild.jpg") Print Str$(%BmpX) Print Str$(%BmpX) Waitinput Nochmal besser: Nur die ersten 14 Bytes der Datei einlesen. An Offset 10 und 12, diese beiden Wörter kennzeichnen Breite und Höhe des Bildes. Allerdings sind diese Angaben nicht immer direkt in Pixel angegegen, sondern in Pixel, Inch oder cm. Das Byte an Offset 9 zeigt, in welcher Form die Größenmasse vorliegen: 0 = Pixel 1 = Punkte per inch 2 = Punkte per cm Da muss man ggf. umrechnen. __________________ Gruß, Frank Webpage http://frabbing.bplaced.net mit Freeware - Tools, Spiele und Grafiken. Geändert von Frabbing (05.05.2011 um 11:22 Uhr)

05.05.2011, 11:05	#3 (Direktlink)
_Joerg_ Weiß worum´s geht Registriert seit: 15.02.2011 Beiträge: 106	Ich hätte noch einen: Mit MLoadBmp werden auch die Werte %bmpx und %bmpy% gefüttert. __________________ Anhören lohnt sich wuestensand.info

05.05.2011, 11:20	#4 (Direktlink)
Gerhard Putschalka War schon mal da Registriert seit: 24.05.2009 Beiträge: 46	Das war aber sehr prompt! Danke. Die Frage ist beantwortet. Code: Hnd& = @Create("hSizedPic", -1,File$, 1240, 700, 1) Messagebox(@Str$(%BmpX),@Str$(%BmpY),0) Und es ist DIE Lösung. Danke Gerhard.

Themen-Optionen
Druckbare Version zeigen Jemanden per E-Mail auf dieses Thema hinweisen
Ansicht
Linear-Darstellung Zur Hybrid-Darstellung wechseln Zur Baum-Darstellung wechseln

Ähnliche Themen
Thema	Autor	Forum	Antworten	Letzter Beitrag
Größe des Programms?	vRaz3r	Visual Basic, Visual Basic.NET	2	20.05.2007 18:58
größe anpassen	Scue	Homepagegestaltung	2	14.02.2007 14:56
Größe anpassen?	Bendel	über das Forum	2	11.10.2005 20:49
CD/DVD Größe	krabbe	Software - Allgemein	1	07.08.2005 10:47
MTU-Größe	clamsy os2	Windows 95/98/ME/2000/NT	2	22.01.2003 15:03