[mw_Kronos]

Код такой (RadStudio XE5):

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41

program   {$APPTYPE CONSOLE} ... uses ...   var   TCPServer: TTCPServer;   procedure TCPServerAccept(Sender: TObject; ClientSocket: TCustomIpClient); begin   Writeln('Принят сетевой пакет'); end;   begin     TCPServer := TTCPServer.Create(nil);   TCPServer.OnAccept := TCPServerAccept;   end.   пишет: [dcc32 Error] DtDebtServer.dpr(52): E2009 Incompatible types: 'method pointer and regular procedure'   пробовал так:   ...   var   TCPServer: TTCPServer;   Method: TMethod;   begin     TCPServer := TTCPServer.Create(nil);   Method.Code := @TCPServerAccept;   Method.Data := TCPServer;   TCPServer.OnAccept := TNotifyEvent(Method);   end.

MAD: пользуемся тегами.

тоже ругается: [dcc32 Error] DtDebtServer.dpr(79): E2009 Incompatible types: 'Parameter lists differ'

как победить проблему, кто знает?

[M.A.D.M.A.N.]

Молоток дать?

[mw_Kronos]

Сообщение от M.A.D.M.A.N.

Молоток дать?

Боюсь код от этого работать не станет.

[NumLock]

Обработчик должен быть методом класса

[M.A.D.M.A.N.]

Выделяешь метод объекта, жмешь F1 и читаешь, что это за метод и как его использовать.

[mw_Kronos]

Сообщение от M.A.D.M.A.N.

Выделяешь метод объекта, жмешь F1 и читаешь, что это за метод и как его использовать.

Вот тут помогли:
http://www.experts-exchange.com/Prog..._22979642.html

[Aristarh Dark]

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

Вот тут помогли:
http://www.experts-exchange.com/Prog..._22979642.html

Непонял! Это реклама платного сервиса?

[M.A.D.M.A.N.]

Сообщение от Aristarh Dark

Непонял! Это реклама платного сервиса?

Агась.
Поэтому предложение молотка всё так же в силе.

[mw_Kronos]

Сообщение от Aristarh Dark

Непонял! Это реклама платного сервиса?

Это третья ссылка в гугле по запросу "delphi apptype console TTCPserver".
Из гугла открывается нормально, без всяких "get access now".