Код такой (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'
как победить проблему, кто знает?