Was kann man über ein JPEG aussagen, wenn keine Blocklänge und kein Start gefunden wird (das Bild aber existiert und funktioniert)?

  • Allgemein

Es gibt 8 Antworten in diesem Thema. Der letzte Beitrag () ist von Bartosz.

    Was kann man über ein JPEG aussagen, wenn keine Blocklänge und kein Start gefunden wird (das Bild aber existiert und funktioniert)?

    Moin,

    ich poste dies bei "sprachübergreifende Themen", weil es zwar um ein Analyseprogramm geht, aber auch um Jpegs an sich.
    Ich habe von hier Code, der die Blocklänge und die Position des eigentlichen Motivs in der Jpeg-Datei findet.
    Es kommt bei einigen Bildern vor, dass nichts gefunden wird. Ich kann leider kein Muster erkennen. Ich kann nicht sagen
    • es kommt nur bei Screenshots vor,
    • oder bei Internetbildern,
    • oder Smartphonebildern,
    • oder Bildern, die von einem Bearbeitungsprogramm (GIMP) stammen.
    Die einzige Aussage, die ich treffen kann, ist, dass die while-Schleife verlassen wird, wenn das Bild relativ klein ist [kB].
    Also Zeile 31     – er erkennt kein 0xFF

    Was sagt das über die Datei aus? Bild corrupt?

    C-Quellcode

    1. [/font]//Gets the JPEG size from the array of
    2. data passed to the function, file reference:
    3. http://www.obrador.com/essentialjpeg/headerinfo.htm
    5. static char get_jpeg_size(unsigned char* data, unsigned int data_size, unsigned short *width, unsigned short *height) {
    7. //Check for valid JPEG image
    9. int i=0; // Keeps track of the position within the file
    11. if(data[i] == 0xFF && data[i+1] == 0xD8 && data[i+2] == 0xFF && data[i+3] == 0xE0) {
    13. i += 4;
    15. // Check for valid JPEG header (null terminated JFIF)
    17. if(data[i+2] == 'J' && data[i+3] == 'F' &&
    18. data[i+4] == 'I' && data[i+5] == 'F' && data[i+6] ==
    19. 0x00) {
    21. //Retrieve the block length of the first block since the first block will not contain the size of file
    23. unsigned short block_length = data[i] * 256 + data[i+1];
    25. while(i<data_size) {
    27. i+=block_length; //Increase the file index to get to the next block
    29. if(i >= data_size) return false; //Check to protect against segmentation faults
    31. if(data[i] != 0xFF) return false; //Check that we are truly at the start of another block
    33. if(data[i+1] == 0xC0) { //0xFFC0 is the "Start of frame" marker which contains the file size
    35. //The structure of the 0xFFC0 block is quite simple [0xFFC0][ushort length][uchar precision][ushort x][ushort y]
    37. *height = data[i+5]*256 + data[i+6];
    39. *width = data[i+7]*256 + data[i+8];
    41. return true;
    43. }
    45. else
    47. {
    49. i+=2; //Skip the block marker
    51. block_length = data[i] * 256 + data[i+1]; //Go to the next block
    53. }
    55. }
    57. return false; //If this point is reached then no size was found
    59. }else{ return false; } //Not a valid JFIF string
    63. }else{ return false; } //Not a valid SOI header
    65. }[font='arial,helvetica,sans-serif']

    @Bartosz Kannst Du vielleicht ein passendes Bild dazu posten?
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    @RodFromGermany Zum Beispiel dieses kleine Jpg, welches ich mit einem anderen Programm kreiert habe.

    Ich poste auch den übersetzen VB.net-Code (+ meine zusätzliche Arbeit darin)

    VB.NET-Quellcode

    1. Dim pos As Integer = 0 'Position in the file.
    2. pos += 4
    4. 'wenn JPEG, dann prüfen, ob Jpeg File Interchange Format (JFIF)
    5. If Convert.ToChar(buffer(6)) = "J"c AndAlso Convert.ToChar(buffer(7)) = "F"c AndAlso Convert.ToChar(buffer(8)) = "I"c AndAlso Convert.ToChar(buffer(9)) = "F"c AndAlso buffer(10) = 0 Then
    6. TextBox2.Text = "JFIF" & " (Pos. 6)"
    7. Application.DoEvents()
    8. 'Pixeldaten auslesen
    9. If buffer(4) = 0 AndAlso buffer(5) = 16 Then 'length of segment excl. APP0 marker
    10. 'Einheiten für die folgenden Pixeldichtefelder
    11. If buffer(13) = 0 Then 'keine Einheiten
    12. '??
    13. TextBox_hor_Aufl.Text = "?"
    14. TextBox_ver_Aufl.Text = "?"
    15. ElseIf buffer(13) = 1 Then 'pixel per inch (auch dots per inch)
    16. If buffer(14) = 1 Then
    17. TextBox_hor_Aufl.Text = (256 + buffer(15)).ToString & " dpi"
    18. ElseIf buffer(14) = 0 Then
    19. TextBox_hor_Aufl.Text = buffer(15).ToString & " dpi"
    20. End If
    21. If buffer(16) = 1 Then
    22. TextBox_ver_Aufl.Text = (256 + buffer(17)).ToString & " dpi"
    23. ElseIf buffer(16) = 0 Then
    24. TextBox_ver_Aufl.Text = buffer(17).ToString & " dpi"
    25. End If
    26. ElseIf buffer(13) = 2 Then 'pixel per cm
    27. If buffer(14) = 1 Then
    28. TextBox_hor_Aufl.Text = (256 + buffer(15)).ToString & " d p cm"
    29. ElseIf buffer(14) = 0 Then
    30. TextBox_hor_Aufl.Text = buffer(15).ToString & " d p cm"
    31. End If
    32. If buffer(16) = 1 Then
    33. TextBox_ver_Aufl.Text = (256 + buffer(17)).ToString & " d p cm"
    34. ElseIf buffer(16) = 0 Then
    35. TextBox_ver_Aufl.Text = buffer(17).ToString & " d p cm"
    36. End If
    37. End If
    38. End If
    40. 'Retrieve the block length of the first block since the first block will not contain the size of file.
    41. Dim block_length As UInt16 = CUShort(buffer(pos) * 256 + buffer(pos + 1)) 'pos = 4. Block_length is always 16 in the beginning.
    42. While pos < mySize
    43. pos += block_length 'Increase the index to get to the next block.
    44. If pos >= mySize Then
    45. TextBox_pos.Text = "mit normaler Formel nicht gefunden"
    46. TextBox_BlockSize.Text = "mit normaler Formel nicht gefunden"
    47. Exit While
    48. End If
    49. If buffer(pos) <> &HFF Then
    50. TextBox_pos.Text = "mit normaler Formel nicht gefunden"
    51. TextBox_BlockSize.Text = "mit normaler Formel nicht gefunden"
    52. Exit While 'The next block must begin with 0xFF. If the program doesn't see it, go out! (Are we at the beginning of a new block?)
    53. End If
    54. If buffer(pos + 1) = &HC0 Then '' after Start of Frame Marker (FF C0)
    55. TextBox_pos.Text = $"Position: {pos}"
    56. TextBox_BlockSize.Text = block_length.ToString
    57. myHeight = CUShort(buffer(pos + 5) * 256 + buffer(pos + 6))
    58. myWidth = CUShort(buffer(pos + 7) * 256 + buffer(pos + 8))
    59. Else
    60. pos += 2
    61. block_length = CUShort(buffer(pos) * 256 + buffer(pos + 1))
    62. End If
    63. End While
    65. Else
    66. TextBox2.Text = "kein JFIF"
    68. 'Retrieve the block length of the first block since the first block will not contain the size of file.
    69. Dim block_length As UInt16 = CUShort(buffer(pos) * 256 + buffer(pos + 1)) 'pos = 4. Block_length is always 16 in the beginning.
    70. While pos < mySize
    71. pos += block_length 'Increase the index to get to the next block.
    72. If pos >= mySize Then
    73. TextBox_pos.Text = "mit normaler Formel nicht gefunden"
    74. TextBox_BlockSize.Text = "mit normaler Formel nicht gefunden"
    75. Exit While
    76. End If
    77. If buffer(pos) <> &HFF Then
    78. TextBox_pos.Text = "mit normaler Formel nicht gefunden"
    79. TextBox_BlockSize.Text = "mit normaler Formel nicht gefunden"
    80. Exit While 'The next block must begin with 0xFF. If the program doesn't see it, go out!
    81. End If
    82. If buffer(pos + 1) = &HC0 Then '' after Start of Frame Marker.
    83. TextBox_pos.Text = $"Position: {pos}"
    84. TextBox_BlockSize.Text = block_length.ToString
    85. myHeight = CUShort(buffer(pos + 5) * 256 + buffer(pos + 6))
    86. myWidth = CUShort(buffer(pos + 7) * 256 + buffer(pos + 8))
    87. Else
    88. pos += 2
    89. block_length = CUShort(buffer(pos) * 256 + buffer(pos + 1))
    90. End If
    91. End While
    92. End If


    Es wurde JFIF gefunden, daher ist der Fehler bei dem IF in Zeile 49. Programm verlässt die while in Zeile 52
    Bilder

    • 32x24.jpg

      828 Byte, 32×24, 190 mal angesehen
    An die Neulinge: Nutzt Option Strict On und Option Infer Off. Dadurch kommt ihr mit Datentypumwandlungen nicht durcheinander und der Code verbessert sich um Einiges! Solche Fehler à la Dim Beispiel As Integer = "123" können nicht mehr passieren.

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Bartosz“ ()

    @Bartosz Mit Deinem Code (nach C# übertragen und aufgeräumt) und Deinem Bild kommt bei mir dies:
    Spoiler anzeigen

    C#-Quellcode

    1. using System;
    2. using System.Windows.Forms;
    4. namespace WindowsFormsApplication1
    5. {
    6. public partial class Form1 : Form
    7. {
    8. public Form1()
    9. {
    10. this.InitializeComponent();
    11. }
    13. private void button1_Click(object sender, EventArgs e)
    14. {
    15. string file = @"C:\Temp\__Test JPG\32x24.jpg";
    16. byte[] data = System.IO.File.ReadAllBytes(file);
    17. int width;
    18. int height;
    19. if (get_jpeg_size(data, data.Length, out width, out height))
    20. {
    21. label1.Text = string.Format("Width = {0}", width);
    22. label2.Text = string.Format("Height = {0}", height);
    23. }
    24. else
    25. {
    26. label1.Text = "Error";
    27. }
    28. }
    30. static bool get_jpeg_size(byte[] data, int data_size, out int width, out int height)
    31. {
    32. width = 0;
    33. height = 0;
    34. //Check for valid JPEG image
    35. int i = 0; // Keeps track of the position within the file
    36. if (!(data[i] == 0xFF && data[i + 1] == 0xD8 && data[i + 2] == 0xFF && data[i + 3] == 0xE0))
    37. {
    38. //Not a valid JFIF string
    39. return false;
    40. }
    42. i += 4;
    43. // Check for valid JPEG header (null terminated JFIF)
    44. if (!(data[i + 2] == 'J' && data[i + 3] == 'F' && data[i + 4] == 'I' && data[i + 5] == 'F' && data[i + 6] == 0x00))
    45. {
    46. //Not a valid SOI header
    47. return false;
    48. }
    50. //Retrieve the block length of the first block since the first block will not contain the size of file
    51. int block_length = data[i] * 256 + data[i + 1];
    52. while (i < data_size)
    53. {
    54. //Increase the file index to get to the next block
    55. i += block_length;
    56. if (i >= data_size)
    57. {
    58. //Check to protect against segmentation faults
    59. return false;
    60. }
    62. if (data[i] != 0xFF)
    63. {
    64. //Check that we are truly at the start of another block
    65. return false;
    66. }
    68. if (data[i + 1] == 0xC0)
    69. {
    70. //0xFFC0 is the "Start of frame" marker which contains the file size
    71. //The structure of the 0xFFC0 block is quite simple [0xFFC0][ushort length][uchar precision][ushort x][ushort y]
    72. height = data[i + 5] * 256 + data[i + 6];
    73. width = data[i + 7] * 256 + data[i + 8];
    74. return true;
    75. }
    76. else
    77. {
    78. i += 2; //Skip the block marker
    79. block_length = data[i] * 256 + data[i + 1]; //Go to the next block
    80. }
    81. }
    82. //If this point is reached then no size was found
    83. return false;
    84. }
    85. }
    86. }

    Was läuft nicht so, wie Du erwartest?
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    @RodFromGermany Als Erstes Danke für deine Mühe. Nur es klappt wieder nicht. Selber Fehler.

    Zur Kontrolle: Ich habe folgende Startwerte:

    i ist 4 zu Beginn.

    und Dim block_length As Integer = buffer(i) * 256 + buffer(i + 1) = 16

    ==============================
    Hat sich erledigt. Ich habe einen Fehler gemacht.

    Man sollte hierin

    VB.NET-Quellcode

    1. If buffer(i) <> &HFF Then
    2. 'Check that we are truly at the start of another block
    3. Exit While
    4. End If
    keine Textbox füllen mit "mit normaler Formel nicht gefunden", denn in Wirklichkeit wurde sie bereits befüllt. Nur die Schleife läuft weiter und es wird nochmals das If geprüft. Und mit Exit While – so hat sich der Autor des Codes gedacht – soll die Schleife regulär verlassen werden (statt wie üblich im Schleifenkopf oder unten :rolleyes: ).
    An die Neulinge: Nutzt Option Strict On und Option Infer Off. Dadurch kommt ihr mit Datentypumwandlungen nicht durcheinander und der Code verbessert sich um Einiges! Solche Fehler à la Dim Beispiel As Integer = "123" können nicht mehr passieren.

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Bartosz“ ()

    Bartosz schrieb:

    i ist 4 zu Beginn.
    Da liegt möglicherweise der Fehler, denn i zeigt auf JFIF, ggf. musst Du i auf 8 setzen.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Hallo an alle,
    nach langer Zeit konnte ich mich wieder hiermit beschäftigen.
    Da liegt möglicherweise der Fehler, denn i zeigt auf JFIF, ggf. musst Du i auf 8 setzen.
    Aber im Code wird das doch auch nicht gemacht? Warum sollte ich das tun?

    Was kann man nun aussagen, wenn die Größe rechnerisch nicht gefunden werden kann (was der Sinn des aus dem Netz kopierten Codes ist)?

    Einen schönen 3. Oktober
    An die Neulinge: Nutzt Option Strict On und Option Infer Off. Dadurch kommt ihr mit Datentypumwandlungen nicht durcheinander und der Code verbessert sich um Einiges! Solche Fehler à la Dim Beispiel As Integer = "123" können nicht mehr passieren.

    Bartosz schrieb:

    Warum sollte ich das tun?
    Um zu probieren, ob der Fehler danach verschwindet.
    ====
    Wie lange brauchst Du, so einen kleinen Test zu machen?
    Wie lange brauchst Du, einen Post zu schreiben?
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „RodFromGermany“ ()

    Der Fehler verschwindet nicht.

    Ich hatte das Projekt lange Zeit verworfen, bis ich gestern am neuen PC weitergemacht habe.
    An die Neulinge: Nutzt Option Strict On und Option Infer Off. Dadurch kommt ihr mit Datentypumwandlungen nicht durcheinander und der Code verbessert sich um Einiges! Solche Fehler à la Dim Beispiel As Integer = "123" können nicht mehr passieren.

Facebook
Telefonspende