Größe aus JPEG/PNG Datei auslesen

[KeyKon]

Wie geht das?
Ich möchte die Größe (Pixel) des Bildes auslesen ohne die gesammte Datei einlesen zu müssen, wo stehen also die entsprechenden Werte in der JPEG/PNG Datei?

KeyKon

[sen-me]

du musst sie warscheinlich mit loadimage schon einlesen dann imagewidth und imagehight benutzen

[KeyKon]

Naja, das muss doch irgendwie auch anders gehen, ich möchte so wenig Zeit/Byte wie möglich brauchen damit das bei vielen Bildern nicht lange dauert...

KeyKon

[Kiffi]

> Naja, das muss doch irgendwie auch anders gehen

ja, geht auch anders. Ich habe vor Urzeiten eine Routine gefunden, die nur
ein paar Bytes aus dem Header der Datei liest. Ist leider in VB, lässt sich
aber meines Erachtens relativ leicht in PB umsetzen:

http://www.freevbcode.com/ShowCode.Asp?ID=112

Grüße ... Kiffi

[KeyKon]

Danke, ich denke das hilft mir weiter!

KeyKon

[KeyKon]

Ich hab von VB keinen Schimmer deswegen mal die Frage:
Was bedeutet der Befehl Mult(Zahl,Zahl)
EDIT: ^^ hab übersehen das das ne eigene Prozedure ist...
Was aber bedeutet der Befehl CLng(Zahl)?

KeyKon

[Falko]

http://www.vbarchiv.net/commands/CLng.php

Ist sogesehen ein einfaches Long, würde ich sagen.

[KeyKon]

Ich glaub nich das der VB-Code von Kiffi funktioniert, zumindest funzt meine umsetzung bis jetzt nur mit JPEGs die ich mit IView gespeichert habe, vielleicht hab ich aber auch irgendeinen Fehler rein. Könnte sich das mal einer Anschauen:

Code: Alles auswählen

Dim Buffer.w(3)

path$ = OpenFileRequester("JPEG öffnen...","","JPEG|*.jpg;*.jpeg|All|*.*",0)

vor1 = ElapsedMilliseconds()

If ReadFile(0,path$) = 0
  Debug "Konnte nicht öffnen1"
  End
EndIf

BUFFERSIZE = Lof()


Buffer(0) = ReadByte()+256
Buffer(1) = ReadByte()+256
Buffer(2) = ReadByte()+256

Repeat
    
  If (Buffer(0) = $FF And Buffer(1) = $D8 And Buffer(2) = $FF)
    Break
  ElseIf Loc() >= BUFFERSIZE-10
    End
  EndIf
  
  Buffer(0) = Buffer(1)
  Buffer(1) = Buffer(2)
  Buffer(2) = ReadByte()+256
  
ForEver

Buffer(0) = ReadByte()+256
Buffer(1) = ReadByte()+256

Repeat
  Repeat
    If Buffer(0) = $FF And Buffer(1) <> $FF
      Break
    ElseIf Loc() >= BUFFERSIZE-10
      End
    EndIf
    
    Buffer(0) = Buffer(1)
    Buffer(1) = ReadByte()+256
    
  ForEver
  
  Buffer(0) = Buffer(1)
  
  If Buffer(0) = $C0 Or Buffer(0) = $C1 Or Buffer(0) = $C2 Or Buffer(0) = $C3 Or Buffer(0) = $C5 Or Buffer(0) = $C6 Or Buffer(0) = $C7 Or Buffer(0) = $C9 Or Buffer(0) = $CA Or Buffer(0) = $CB Or Buffer(0) = $CD Or Buffer(0) = $CE Or Buffer(0) = $CF
    Debug Hex(Buffer(0)-256)
    Break
  ElseIf Loc() >= BUFFERSIZE-10
    End
  EndIf
  
  Buffer(1) = ReadByte()+256
  
ForEver


FileSeek(Loc()+3)
Buffer(0) = ReadByte()
Buffer(1) = ReadByte()
Buffer(2) = ReadByte()
Buffer(3) = ReadByte()


h1 = (Buffer(1)) + (Buffer(0)*256)
w1 = (Buffer(3)) + (Buffer(2)*256)
d1 = ReadByte()*8

CloseFile(0)

nach1 = ElapsedMilliseconds()





UseJPEGImageDecoder()


vor2 = ElapsedMilliseconds()

If LoadImage(0,path$) = 0
  Debug "Konnte nicht öffnen2"
  End
EndIf

h2 = ImageHeight()
w2 = ImageWidth()
d2 = ImageDepth()

FreeImage(0)

nach2 = ElapsedMilliseconds()


Debug path$
Debug "1: "+Str(w1)+"x"+Str(h1)+"x"+Str(d1)+"  -  "+Str(nach1-vor1)+" ms"
Debug "2: "+Str(w2)+"x"+Str(h2)+"x"+Str(d2)+"  -  "+Str(nach2-vor2)+" ms"

Ich hab da jetzt noch nen Geschwindigkeitsvergleich dabei, aber der mischt da ja nich rein...

KeyKon

[Kiffi]

> Ich glaub nich das der VB-Code von Kiffi funktioniert,

1. Zuviel der Ehre, aber der Code ist nicht von mir

2. Der Code funktioniert in der VB-Version sehr wohl, denn er läuft seit
mehreren Monaten klaglos in einer Software, die täglich mehrere tausend
Bilder verarbeitet. Da muss also irgendwas mit Deiner Konvertierung nicht
stimmen.

Grüße ... Kiffi

[KeyKon]

Was für Bilder werden denn verwaltet? Fotos direkt aus der Kamera oder von einem Programm erstellte Bilder?

KeyKon