Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Немогу описать событие в ядре

MortalScorpion © (2003-03-20 17:06:00)
Что я делаю не так?

program Client;
uses ScktComp;
procedure ServerAccept(Sender: TObject; Socket: TCustomWinSocket);
begin

end;
var Sr:TServerSocket;
begin
{Create}
Sr:=TServerSocket.Create(nil);
Sr.OnAccept:=ServerAccept;

{Destroy}
Sr.Free;
end.

MortalScorpion (2003-03-20 18:00:00) [1]
Чувствую.....огромное вам спасибо...все получилось..

Polevi (2003-03-20 17:50:00) [2]
program Client;
uses ScktComp;

type
TServer=class(TServerSocket)
public
constructor Create(AOwner:TComponent);override;
procedure ServerAccept(Sender: TObject; Socket: TCustomWinSocket);
end;

constructor TServer.Create(AOwner:TComponent);
begin
inherited;
OnAccept:=ServerAccept;
end;

procedure TServer.ServerAccept(Sender: TObject; Socket: TCustomWinSocket);
begin
end;

var Sr:TServer;
begin
{Create}
Sr:=TServer.Create(nil);
readln;
Sr.Free;
end

Digitman (2003-03-20 17:50:00) [3]
program Client;
uses ScktComp;

type
TMyClass = class(...)
..
procedure ServerAccept(Sender: TObject; Socket: TCustomWinSocket);
..
end;

...

procedure TMyClass.ServerAccept(Sender: TObject; Socket: TCustomWinSocket);
begin
...
end;

var Sr:TServerSocket; MyClass: TMyClass;

begin
...
{Create}
MyClass:= TMyClass.Create[(...)];
Sr:=TServerSocket.Create(nil);
...
Sr.OnAccept:=MyClass.ServerAccept;
...
{Destroy}
Sr.Free;
MyClass.Free;
...
end.

прочувствуй разницу !!

MortalScorpion (2003-03-20 17:20:00) [4]
Ты не можешь показать, пожалуйста, как будет выглядеть вся программа?

Digitman (2003-03-20 17:11:00) [5]
property OnAccept: TSocketNotifyEvent;

type
TSocketNotifyEvent = procedure (Sender: TObject; Socket: TCustomWinSocket) of object;

процедура, назначаемая в кач-ве обработчика события, д.б. методом класса (обявленным в декларации класса в полном соответствии с типом TSocketNotifyEvent), а не обычной процедурой

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »