Скачал из коллекции Zinna подсистему Free (Loading, displaying and saving many graphic image formats). При компиляции интерфейсного модуля для dll-ки получаю следующую ошибку
Код:
MODULE FreeImageDll['FreeImage.dll'];
…
TYPE
…
OutputMessageFunction* = PROCEDURE[declaration followed by incorrect symbol] ["ccall"] (fif: IMAGE_FORMAT; msg: PChar);
…
PROCEDURE SetOutputMessage*["_FreeImage_SetOutputMessage@4"] (omf: OutputMessageFunction);
…
ВВ 1.5 процедурный тип поддерживает. Системный флаг ccall без кавычек ситуации не меняет. Модуль компилируется по-другому
Код:
MODULE FreeImageDll['FreeImage.dll'];
…
TYPE
…
OutputMessageFunction* = PROCEDURE (fif: IMAGE_FORMAT; msg: PChar);
…
PROCEDURE ["ccall"] SetOutputMessage*["_FreeImage_SetOutputMessage@4"] (omf: OutputMessageFunction);
…
Может быть, так и надо делать? Но странно, ведь у разработчиков как-то компилировалось.