Ergebnis der Suchanfrage

• Forum: Object-Pascal / Delphi-Language

  AW: GetJPGSize Funktion (wollen wir sie verbessern?)

   
    by KodeZwerg, 10. Mär 2020
  Lang hat's gedauert, da ich pers. Jpeg absolut nicht mag.
  Hier ist mein Versuch was schnelles draus zu basteln, keine Benchmarks durchgeführt, selbst ist der Mann/die Frau :-)
  
  Hier meine herangehensweise, in der Hoffnung das es tatsächlich hilft:
  Ps: Übergeben werden muss ein gültiger kompletter Pfad.
  (MyGetFiles holt aus dem Verzeichniss nur die Dateinamen ab)
  procedure...
• Forum: Object-Pascal / Delphi-Language

  AW: GetJPGSize Funktion (wollen wir sie verbessern?)

   
    by KodeZwerg, 10. Feb 2020
  Bei dem was ich auf die schnelle recherchiert habe kommt ein fast gleiches Snippet bei raus.
  Wie Luckie bereits schrieb, den Magic Bytes jede Menge beachtung schenken, weswegen dieses Snippet noch ausbaufähig ist.
  Geschwindigkeit scheint mir mit beiden Versuchen auf gleicher Höhe zu liegen.
  
  
  function GetJpegSize(const FileName: string): TPoint;
  var
  fs: TFileStream;
  SegmentPos:...