Решено: Некорректный указатель на функцию при {$mode objfpc}

[Alex. S]

Есть такой код:

Код: Выделить всё

...

{$mode objfpc}

...

procedure CheckFont(const DC: HDC;);

  function EnumFontFamExProc(
    //
    var ELogFont: TEnumLogFontEx;
    //
    var Metric: TNewTextMetricEx;
    //
    FontType: LongInt; Data: Pointer): Integer; stdcall;
  begin
  //

  end;

var
//
FontData: TLOGFONTA;
begin
//
FillChar(FontData, SizeOf(FontData), 0);

//
EnumFontFamiliesEx(
  //
  DC, FontData,
  //
  WndProc(@EnumFontFamExProc), 0, 0);
end;


Почему-то, получаю сообщение:

Error: Incompatible type for arg no. 3: Got "<procedure variable type of function(LongWord,LongWord,LongInt,LongInt):LongInt;StdCall>", expected "<procedure variable type of function(var ENUMLOGFONTEX,var NEWTEXTMETRICEXA,LongInt,LongInt):LongInt;StdCall>"

Если заменить "{$mode objfpc}" на "{$mode Delphi}" и "WndProc(@EnumFontFamExProc)" на "@EnumFontFamExProc", то всё работает, но мне нужен режим FPC, а не Delphi...

Может кто подскажет, как это исправить?

[Alex2013]

В виде предположения... Может "WndProc(EnumFontFamExProc..." поможет ? (Без "собачки" )
а может быть нужно еще и убрать WndProс...(это ведь преобразование типа ? Зачем "тавтологию" устраивать ? )
Да еще иногда действовал трюк под названием "обезличивание переменных" в твоем случае выглядит так @EnumFontFamExProc^
Зы
EnumFontFamiliesEx(
//
DC, FontData,
//
EnumFontFamExProc, 0, 0);
или
EnumFontFamiliesEx(
//
DC, FontData,
//
@EnumFontFamExProc^, 0, 0);

[Alex. S]

Alex2013, увы

При

Код: Выделить всё

EnumFontFamiliesEx(DC, FontData, @EnumFontFamExProc, 0, 0);

ошибка:

Error: Wrong number of parameters specified for call to "EnumFontFamExProc"

Так

Код: Выделить всё

EnumFontFamiliesEx(DC, FontData, WndProc(EnumFontFamExProc), 0, 0);

тоже ошибка:

Error: Wrong number of parameters specified for call to "EnumFontFamExProc"

[zub]

Вы бы дали минимальный компилируемый пример, а не "выдирку" кода.
Имхо не совпадают описания функций - то что ждет EnumFontFamiliesEx и ваша EnumFontFamExProc

для EnumFontFamiliesEx надо

Код: Выделить всё

FONTENUMEXPROC = function (var _para1:ENUMLOGFONTEX;var _para2:NEWTEXTMETRICEX; _para3:longint; _para4:LPARAM):longint;stdcall;

у вас

Код: Выделить всё

function EnumFontFamExProc(var ELogFont: TEnumLogFontEx;var Metric: TNewTextMetricEx;FontType: LongInt; Data: Pointer): Integer; stdcall;

Кстати еще и передача "локальной" функции...

Добавлено спустя 1 час 31 минуту 17 секунд:
Re: Не правильно возвращает указатель функции при {$mode objfpc}
в таком виде всё компилируется

Код: Выделить всё

program Project1;
{$mode objfpc}
uses windows;
function EnumFontFamExProc(var _para1:ENUMLOGFONTEX;var _para2:NEWTEXTMETRICEX; _para3:longint; _para4:LPARAM):longint;stdcall;
begin
end;
procedure CheckFont(const DC: HDC);
var
FontData: TLOGFONTA;
begin
FillChar(FontData, SizeOf(FontData), 0);
EnumFontFamiliesEx(DC, FontData,@EnumFontFamExProc,0,0);
end;
begin
end.

[Alex. S]

zub, Вы правы. Код, который Вы привели, действительно компируется без ошибок...

Просто я уже нашёл другой способ, получить все шрифты, имеющиеся в системе, методом чтения реестра...

Но, Вам большое спасибо, так как я, сам бы вряд ли до этого смог дойти!

Думаю, вопрос решён

[Лекс Айрин]

Alex. S, кстати, по возможности лучше не связываться с реестром. От этого страдает переносимость.

[Alex. S]

Лекс Айрин, переносимость между Unix и Windows? Если да, то это не страшно, я всё равно под WinApi пишу. Лишь бы, на новых версиях Windows работало...

P.S. Я не фанат Windows Работа есть работа...

[Лекс Айрин]

Alex. S, идеалом была бы переносимость между всеми платформами... но это уже нереально(((

Лишь бы, на новых версиях Windows работало...

Не... я так не могу... нервное это занятие.

[Alex. S]

Не... я так не могу... нервное это занятие.

Не понял. То есть, оно и на новых версиях может не работать?

[Лекс Айрин]

Alex. S, майкрософт славится привычкой менять внутреннюю структуру системы. Так что... гарантий дать нельзя((
Пока, к счастью, ничего особо фатального не происходило,... но тенденция малость напрягающая.

[Alex. S]

Лекс Айрин, Вы не в курсе, там от XP (я на ней проверяю), до последней версии Windows, не сильно что-то изменилось в плане Win Api?
Есть диск с Win 7, но её нужно ещё настраивать... А так, сам давно на Ubuntu сижу, и вполне доволен

[Лекс Айрин]

Alex. S, да вроде, не сильно.... но некоторые версии программ не идут на ХР... правда, создается впечатление, что это чисто проверка по версии ОС...

Я сам дома на убунте сидел, пока комп не сломался((( хотелось бы что-нибудь получше, но пока не нашел.

[Alex. S]

но некоторые версии программ не идут на ХР

Обратная совместимость от Microsoft

хотелось бы что-нибудь получше, но пока не нашел

Не знаю, что в ней улучшать, разве что, софта бы побольше, да драйверов... А так, сейчас даже Steam на Linux начал переходить, глядишь, и всё наладится...

P.S. Думаю, пора сворачивать офф-топ. Проблема решена...
Спасибо всем, кто ответил, в частности zub, за предоставленное решение