Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Интернет и сети
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

 
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 15.07.2015, 10:45
mw_Kronos mw_Kronos вне форума
Прохожий
 
Регистрация: 12.01.2014
Сообщения: 12
Версия Delphi: RadStudio XE5
Репутация: 10
По умолчанию Назначение события OnAccept для TTCPServer в консольном приложении

Код такой (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., 15.07.2015 в 11:52.
Ответить с цитированием
 


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 15:10.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025