Ergebnis der Suchanfrage

• Forum: Multimedia

  AW: JPEG CompressionQuality ermitteln

    Delphi
    by TiGü, 26. Okt 2017
  Bitte mit Interfaces, Reference Counting und dergleichen beschäftigen, dann werden alle Fragen beantwortet. Das Forum hier hat dazu einige Threads und Tutorials.
  Auch einfach mal in TStreamAdapter.Destroy einen Haltepunkt setzen und den Call Stack nachvollziehen.
• Forum: Multimedia

  AW: JPEG CompressionQuality ermitteln

    Delphi
    by TiGü, 26. Okt 2017
  :shock:
  Öh...das ist jetzt schon bissel fremdschämen mit euch. :oops:
  In meinen Beispielcode habe ich dreimal folgende Zeile verwendet:
  
  OutputDebugString(PWideChar(Winapi.GDIPUTIL.GetStatus(Status)));
  
  
  
  Ich will das Wichtigste nochmal herausstellen:
• Forum: Multimedia

  AW: JPEG CompressionQuality ermitteln

    Delphi
    by TiGü, 26. Okt 2017
  Kann ich auf all diese Fragen und offenen Punkte mit einem Quellcodeschnipsel antworten?
  Beim Result musste sehen wie du es brauchst.
  Komprimierte Größe im Verhältnis zu unkomprimierte Größe oder andersrum.
  Ggf. hauste da noch ne * 100 dazu. Wie du magst.
  
  function GetCompressRatio(const AJpegFilename: string): Double;
  var
  Status: Winapi.GDIPAPI.TStatus;
  Image:...
• Forum: Multimedia

  AW: JPEG CompressionQuality ermitteln

    Delphi
    by TiGü, 26. Okt 2017
  Guck dir mal die Unit Winapi.GDIOBJ (und Winapi.GDIPUTIL) an.
  Mithilfe der ersten Unit wird ein hilfreicher Wrapper (Klassen basiert) über die flachen GDI+-Funktionen gestülpt.
  Alle Methoden sind protected oder public, so dass man auch selber den Wrapper erweitern und mit hilfreichen Ableitungen arbeiten kann.
  Er ähnelt der Klassen basierten C++ API und von daher ist die MSDN ein guter...
• Forum: Multimedia

  AW: JPEG CompressionQuality ermitteln

    Delphi
    by TiGü, 17. Okt 2017
  Schade, mit GDI+ komm ich auch nicht ran.
  
  function GdipCheck(const AResult: GPSTATUS): Boolean;
  begin
  Result := AResult = GPSTATUS.Ok;
  end;
  
  function GdiPlusGetJpegCompression(const AJpegFilename: string): USHORT;
  var
  token: ULONG;
• Forum: Multimedia

  AW: JPEG CompressionQuality ermitteln

    Delphi
    by TiGü, 17. Okt 2017
  Schade, ich dachte man kann es über WIC und die Metadaten auslesen, aber in meiner Beispieldatei (mit Smartphone gemacht und Paint.NET bearbeitet) gibt es kein Compression-Feld.
  
  Programme wie IrfanView geben ja das richtige aus...hm...grübel!
  
  Kannst ja mal trotzdem versuchen.
  
  
  uses
  Winapi.Windows, Winapi.Wincodec, Winapi.ActiveX;
• Forum: Multimedia

  AW: JPEG CompressionQuality ermitteln

    Delphi
    by TiGü, 17. Okt 2017
  Ach guck, das ist ja immer 90?! Das wird anscheinend wirklich gar nicht ausgelesen.
• Forum: Multimedia

  AW: JPEG CompressionQuality ermitteln

    Delphi
    by TiGü, 17. Okt 2017
  Hast du eine TJPEGImage-Instanz vorzuliegen?
  Dann kannst du doch das über die Property auslesen:
  http://docwiki.embarcadero.com/Libraries/Tokyo/en/Vcl.Imaging.jpeg.TJPEGImage.CompressionQuality