Определить размер Jpeg ?

[z768]

Сорри, просмотрел форум и инет, решения так и не нашел.
Может плохо искал.
Задача такова.
Есть файл, бинарник, в нем зарыты несколько jpeg-файлов.
Отыскать их не проблема, но есть одно Но...
Извлечь нужно по определенному размеру, допустим если картинка меньше чем 320х240 = идем дальше,
иначе = извлекаем...
Готовое решение не прошу, просто подскажите где и как раскопать эти
320х240 в jpeg ???

[Человек_Борща]

Достаточно искать заголовки JPEG'ов, там жуе будет размер тела и посчитать целый размер файла - проблем не составит. Ищите описание формата JPEG.

[z768]

Так вот искал... Так и не "вьехал" где найти описание в заголовке файла разрешения картинки, и как пересчитать, потому и спросил...

[Rockot]

Сообщение от z768

Так вот искал... Так и не "вьехал" где найти описание в заголовке файла разрешения картинки, и как пересчитать, потому и спросил...

Гугли по вопросу -"информация о файле делфи".

[z768]

Сообщение от Rockot

Гугли по вопросу -"информация о файле делфи".

От гугли слышу...
Не по теме прошу не выражатся... гуглил... потому и задаю вопрос ALL...
Сам то понял, о чем написал... или посты важней ?

[z768]

Человек_Борща, размер файла меня не интересует (он непредсказуем), у меня интерес к картинке (640х400 или какая там в файле находится), что бы сразу определится и выдернуть нужную, остальные не трогать...

[Luuzuk]

На хабре, например, все подробно расписано. http://habrahabr.ru/post/102521/
Раздел "Маркер [FF C0]: SOF0 — Baseline DCT" (для поиска)

[Аватар]

function GpegSize(var Size: TPoint; FileName: String): Boolean;
var Handle: Integer;
    xOk: Boolean;
    Buffer: array [0..1] of Byte;
begin
  Result:=False;
  Handle:=FileOpen(FileName,fmOpenRead	or fmShareDenyNone);
  if Handle<0 then Exit;
  try
    if FileSeek(Handle,2,0)<0 then Exit;
    xOk:=False;
    repeat
      if FileRead(Handle,Buffer,2)<>2 then Exit;
      if Buffer[0]<>$FF then Exit;
      xOk:=Buffer[1]=$C0;
      if not xOk then begin
        if Buffer[1]=$D9 then Exit;
        if FileRead(Handle,Buffer,2)<>2 then Exit;
        if FileSeek(Handle,Buffer[0]*256+Buffer[1]-2,1)<0 then Exit;
      end;
    until xOk;
    if FileSeek(Handle,3,1)<0 then Exit;
    if FileRead(Handle,Buffer,2)<>2 then Exit;
    Size.Y:=Buffer[0]*256+Buffer[1];
    if FileRead(Handle,Buffer,2)<>2 then Exit;
    Size.X:=Buffer[0]*256+Buffer[1];
    Result:=True;
  finally
    FileClose(Handle);
  end;
end;


procedure TForm1.Button3Click(Sender: TObject);
var xSize: TPoint;
begin
  if GpegSize(xSize,'e:\Fon1.jpg')
    then ShowMessage(Format('Ширина=%d, высота=%d',[xSize.X,xSize.Y]))
    else ShowMessage('Ошибка');
end;

[z768]

Сообщение от Luuzuk

На хабре, например, все подробно расписано. http://habrahabr.ru/post/102521/
Раздел "Маркер [FF C0]: SOF0 — Baseline DCT" (для поиска)

А вот на это я как бы не обратил внимания, хотя эту ссылку пересмотрел пару раз исчо до темы на форуме, спасибо что лицом в х..рязь

Всем спасибо, вот еще хорошая ссылка
http://vbzero.narod.ru/chapter3/article_4.htm
по этой теме.
Исходя из описанного выше напрашивается простейший алгоритм определения размера графического изображения файла JFIF: проверить наличие в байтах с 7 по 11 наличие идентификатора JFIF0, чтобы убедится, что это JPG, а затем читать все байты подряд, пока не найдется маркер начала кадра SOF0 (FF CO), и отсчитав от него четыре байта, получить высоту и ширину картинки.

Ну направили наконец на путь истинный...
Всем Удачи.