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:

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:

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.

[capo]

Hallo...ich will nur die Breite und die Höhe haben. Keine Exifinfos!

[Lossy eX]

Das habe ich bereits in meinem ersten Post geschrieben. Aber danke fürs lesen....

[capo]

Sorry ...aber du hast Thread 7 nicht gelesen!

Zitat:

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.

Und wie mache ich das? Wie komme ich an die Informationen?
Ich brauche ein praktisches Beispiel.

Gruss Capo

[Lossy eX]

Thread 7?

Aber das praktische Beispiel.

Delphi-Quellcode:

uses
  jpeg;

...
var
  jpeg: TJPEGImage;
begin
  jpeg := TJPEGImage.Create;
  try
    jpeg.LoadFromFile('Dateiname');

    Caption := Format('%d, %d', [jpeg.Width, jpeg.Height]);
  finally
    jpeg.Free;
  end;
end;

Bevor die Frage aufkommt. Ja dabei wird das Bild in den Speicher geladen. Das hängt leider an dem JPEGImage. Allerdings wird es noch nicht dekodiert weswegen lediglich der Speicherverbrauch um die Größe des Bildes steigt. Dadurch benötigt das Ganze auch noch nicht wirklich viel Zeit.

Das JPEG wird erst dekodiert sobald die Bilddaten benötigt werden. Also es gezeichnet wird oder auf ein Bitmap zugewiesen wird.

Falls du etwas brauchst was die Daten nicht den Speicher lädt dann solltest du evtl mal die libjepg anschauen. Dafür hatte ich vor ein paar Wochen einen Header geschreiben (aber noch nicht veröffentlicht). Der Programmieraufwand ist aber wesentlich größer, da es sich dabei um eine sehr umständliche DLL handelt. Allerdings direkt in der Datei rum zu lesen ist bei einem JPEG keine gute Idee. Dafür ist das Format zu komplex. Man müsste es wenn dann schon von vorn durchinterpretieren um den Header zu finden. Denn ein jpeg kann auch ein anderes jpeg enthalten (thumbnail).

[capo]

Hi Lossy eX

Danke, genau so ein Beispiel habe ich gesucht, ich habe mir das viel zu kompliziert vorgestellt.

Zitat:

Zitat von Lossy eX

Falls du etwas brauchst was die Daten nicht den Speicher lädt dann solltest du evtl mal die libjepg anschauen. Dafür hatte ich vor ein paar Wochen einen Header geschreiben (aber noch nicht veröffentlicht). Der Programmieraufwand ist aber wesentlich größer, da es sich dabei um eine sehr umständliche DLL handelt. Allerdings direkt in der Datei rum zu lesen ist bei einem JPEG keine gute Idee. Dafür ist das Format zu komplex. Man müsste es wenn dann schon von vorn durchinterpretieren um den Header zu finden. Denn ein jpeg kann auch ein anderes jpeg enthalten (thumbnail).

Wöfür braucht man sowas?

[Lossy eX]

Zitat:

Wöfür braucht man sowas?

Du meinst damit jetzt die libjpeg oder? Ich denke mal ja.

Die Implementation von dem TJPEGImage basiert auf den Quellen von der libjpeg. Also von daher ist es mehr oder weniger identisch. Nur schottet das JPEGImage das teilweise zu stark vom Entwickler ab. So kann man zum Beispiel bei der libjpeg auch wirklich nur den Header einlesen. Wärend das JPEGImage zusätzlich noch den Rest des Bildes mit in den Speicher lädt. Und es gibt diverse Dinge die man mit dem JPEGImage gar nicht machen kann, da man nicht auf jede kleine Einstellung zugreifen kann (was nicht unbedingt schlecht ist). Allerdings braucht man das eher nur in wenigen speziellen Fällen. Außerdem ist sie platformunabhängig. Gibt es also sowohl unter Windows als auch Linux. Was für mich der Hauptgrund ist. Aber das Entwickeln damit ist ein absoluter Krampf.

Deswegen solltest du das nur wirklich in Betracht ziehen wenn du unbedingt diese Vorteile brauchst. Und das unnötige Laden der Bilddaten ist bei dem JPEGImage ist in jedem Fall wesentlich weniger tragisch als das Laden mit der Bibliothek. ;)

[capo]

:) okay, danke :cheers: