В пакет CxKOLTiffJpeg входит jpeg, который не требует obj. Но там асм-вставки, полученные из masm. Правда, опять же, они оформлены как "чистые" asm-процедуры без параметров, и вполне может оказаться, что совместимы с FPC.

Я сделал порт уже. Если нужно выложу, правда под WinCE не пробовал еще.

> Я сделал порт уже. Если нужно выложу, правда под WinCE не
> пробовал еще.

Конечно надо :). У меня нахрапом не получилось (CxKOLTiffJpg) - пишет ошибку в jerror. Попробую еще freepascal-евский pasjpeg. Хотя в Delphi последний отказался компилироватся.

Завтра выложу. Портирвал не pasjpeg, там почему то с палитрой проблемы образовались. Но как посмотрел, и у pasjpeg и у CxKOLTiffJpg и у того что я портирвал, ноги из одного места растут... Исходники одни.:)

www.kolnmck.ru/files/components/graphics/koljpgimage.7z

Работает в D7, Lazarus (Win32 и WinCE). Пока так, хотя можно еще поковырять - несколько килобайт еще уйдет, думаю. Но это потом как нибудь.

> Работает в D7, Lazarus (Win32 и WinCE).

К Лазарусу (WIN32) пристыковалось без проблем. Пока еще только начинаю тестировать. На недокачанных JPEG вылетает на LoadFromFile c райнтайм - ошибками. При LoadFromStream просто вылетает. С докачанными кажется все нормально.

В Delphi такая же фигня :(

А что значит "недокачанный" и "докачанный" JPEG?

Например, оборванный при закачке куда-нибудь (сайт,ftp-сервер...). Или откуда-нибудь. Это просто моделируется в TC -> Разбить файл. Как правило, первый кусок (верхняя часть фото) нормально читается обычными программами. Вчера в Delphi отладку запустил - пытается читаться весь файл - пока до низа не дойдет. Height видимо из заголовка берется - какой должен быть.

А так не катит?
try <чтение файла> except <обработка ошибки> end;

> А так не катит?
> try <чтение файла> except <обработка ошибки> end;

Вчера ночью не получилось что-то. Вечером еще подергаюсь.

Err подключи.

Я сразу не въехал в чем причина. Изначально там при возникновении ошибок Exception'ы генерилились, соответственно и дальнейше чтение прекращалось, но мне это ну нужно было (файлы заведомо правильные), я и закоментировал все это дело. Нужно будет восстановить, посмотрю завтра.

> Err подключи.

При сборке появляется ошибка:

err.pas не портирован под FPC.

С испорченными (недокачанными) Jpeg ничего не получается :(

Не получается где? в Lazarus? там try-except работает и без Err. В Delphi подключите Err. Ну или пришлите файл, где падает, посмотрю.

1. скачайте свежий версий. :)
www.kolnmck.ru/files/components/graphics/koljpgimage.7z
2. Используем примерно так:
....
   try
     JPEGImage.LoadFromFile('C:\Error.jpg');
     ...
   except
      ShowMessage('Error');
   end;
...
3. Обратите внимание на файл JConfig.INC. Его лучше положить в папку проекта, скопировав _JConfig.INC из архива. Там настраиваются варианты компиляции. По поводу обработки обратите внимание на:
//{$define USE_TRACE}
{$define USE_WARNING}
{$define USE_ERROR}
//{$define USE_ERR}
позволяют настроить различный уровень обработки ошибок.

Все заработало, спасибо! Чтобы показывались недокачанные Jpeg (а у меня их 99%) закомментировал все четыре define. Проверял в Lazarus.