Größe eines JPG feststellen?

[capo]

Hallo..wie kann ich die Größe eines JPG feststellen?


gruss vom capo

[mkinzler]

Vor oder nach dem Laden?

[capo]

vor dem Laden ...

[mkinzler]

http://djernaes.dk/martin/jpeginfo.html

[capo]

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.

[Lossy eX]

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.

[capo]

Zitat von Lossy eX:

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.

Hi..
ich habe das bis heute so gemacht:

Delphi-Quellcode:

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;

Nur habe ich festgestellt das es damit nicht immer funktioniert.


Gruss
Capo

[Lossy eX]

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.

[capo]

Zitat von Lossy eX:

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.

Nur Die Breite und die Höhe sind doch auf jeden fall als Info in der Datei, denke ich mir mal.

Gruss
Capo

[Lossy eX]

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.