ошибка присваивания событий

[Andrew]

Здравствуйте!
Может кто поможет проблеме.
При попытке скомпилировать програму на FPC2.2 возникла ошибка

Wrong number of parameters specified for call to "OnServerExecute"

Использована библиотека indy9

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

type TServer=class
  private
  { Private declarations }
    idserver:TIdTCPServer;
    procedure ServerExecute(AThread:TIdPeerThread);
   
  public
    constructor Create; reintroduce;
    destructor Destroy; override;
  end;

constructor TServer.Create;
begin
idserver:=TIdTCPServer.create(nil);
idserver.OnExecute:=ServerExecute;
end;


прим:
раньше работал в delphi

[Sergei I. Gorelkin]

нужно добавить {$mode delphi}{$h+} в начале юнита или -Sdh в командной строке компилятора.
А вообще это уже давно должно быть в FAQe...

[Andrew]

Пробовал
выдаёт ошибку

Error: Incompatible types: got "OnServerExecute(TIdPeerThread)" expected "<procedure variable type of procedure(TIdPeerThread) of object;Register>"

[Sergei I. Gorelkin]

Такая ошибка характерна для режима {$mode objfpc}. В нем нужно перед идентификатором метода добавлять '@':

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

idserver.OnExecute := @ServerExecute;


что несовместимо с дельфевым кодом. Поэтому, чтобы обойтись без исправлений работающих исходников, проще всего включить режим {$mode delphi}.

Но еще надо смотреть, что там в indy понаписано. Потому что если OnExecute - не "просто событие", а что-то посложнее, может действительно начаться пляска с бубном. Наличие в сообщении об ошибке идентификатора "OnServerExecute" (которого нет в программе, если она приведена без искажений), косвенно об этом свидетельствует.
Под "просто событие" я понимаю такое:

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

type TSomeEvent = procedure(AThread: TIdPeerThread) of object;
...
TIdTCPServer = class(...)
  property OnExecute: TSomeEvent read FSomeEvent write FSomeEvent;
...


[Andrew]

Спасибо всё работает