Größe eines JPG feststellen?
Hallo..wie kann ich die Größe eines JPG feststellen?
gruss vom capo |
Re: Größe eines JPG feststellen?
Vor oder nach dem Laden?
|
Re: Größe eines JPG feststellen?
vor dem Laden ...
|
Re: Größe eines JPG feststellen?
|
Re: Größe eines JPG feststellen?
Vielen Dank - sieht echt vielversprechend aus.
gruss capo Wie kann ich damit die Höhe und die Breite herausfinden? [EDIT] Ich habe nur ImageWidth gefunden? Ohne zu wissen wie ich es anwenden kann. |
Re: Größe eines JPG feststellen?
Das was du da hast sind EXIF Informationen. Die haben so direkt aber nichts mit dem eigentlichen Bild zu tun. Also müssen die EXIF auch nicht in dem Bild enthalten sein bzw müssen auch nicht alle Felder enthalten sein.
Das ganze geht auch mit einem TJPEGImage von Delphi. Sobald du LoadFromFile aufgerufen hast wird das Bild zwar in den Speicher geladen und die Infos ausgewertet aber noch nicht dekomprimiert. Sondern erst wenn DIBNeeded oder Bitmap.Assign(JPEG) aufgerufen wird. Und das laden der Infos geht innerhalb von 1-2 ms. |
Re: Größe eines JPG feststellen?
Zitat:
ich habe das bis heute so gemacht:
Delphi-Quellcode:
Nur habe ich festgestellt das es damit nicht immer funktioniert.
procedure GetJPGSize(const sFile: string; var wWidth, wHeight: Word);
const ValidSig: array[0..1] of Byte = ($FF, $D8); Parameterless = [$01, $D0, $D1, $D2, $D3, $D4, $D5, $D6, $D7]; var Sig: array[0..1] of byte; f: TFileStream; x: integer; Seg: byte; Dummy: array[0..15] of byte; Len: word; ReadLen: LongInt; begin FillChar(Sig, SizeOf(Sig), #0); f := TFileStream.Create(sFile, fmOpenRead); try ReadLen := f.read(Sig[0], SizeOf(Sig)); for x := Low(Sig) to High(Sig) do if Sig[x] <> ValidSig[x] then ReadLen := 0; if ReadLen > 0 then begin ReadLen := f.read(Seg, 1); while (Seg = $FF) and (ReadLen > 0) do begin ReadLen := f.read(Seg, 1); if Seg <> $FF then begin if (Seg = $C0) or (Seg = $C1) then begin ReadLen := f.read(Dummy[0], 3); { don't need these bytes } wHeight := ReadMWord(f); wWidth := ReadMWord(f); end else begin if not (Seg in Parameterless) then begin Len := ReadMWord(f); f.Seek(Len - 2, 1); f.read(Seg, 1); end else Seg := $FF; { Fake it to keep looping. } end; end; end; end; finally f.Free; end; end; Gruss Capo |
Re: Größe eines JPG feststellen?
Muss gestehen, dass ich keine Ahnung habe was der Code macht. Ich weiß nicht womit die exif informationen anfangen und was originales JPEG ist. Allerdings sind die exif informationen nur optionell und müssen nicht vorhanden sein. Bei Digitalkameras ist das zwar immer der Fall aber bei allen anderen Bildern ist das eher nicht der Fall.
|
Re: Größe eines JPG feststellen?
Zitat:
Gruss Capo |
Re: Größe eines JPG feststellen?
Bei den Bilddaten in jedem Fall aber wie gesagt. Die Zusätzlichen Informationen (exif) sind nur zusätzlich. Also die können gänzliche fehlen. Und ich weiß nicht was du da ausließt. Allerdings in dem Link ist nur von den exif Informationen die Rede (wenn ich es richtig verstanden habe). Und darauf darf man nicht zwingend setzen.
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 07:36 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz