Скачать: CL | DM;

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

← →
MortalScorpion   (2003-03-20 17:06) [0]

Что я делаю не так?

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.

---

← →
Digitman ©   (2003-03-20 17:11) [1]

property OnAccept: TSocketNotifyEvent;

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

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

---

← →
MortalScorpion   (2003-03-20 17:20) [2]

Ты не можешь показать, пожалуйста, как будет выглядеть вся программа?

---

← →
Polevi ©   (2003-03-20 17:50) [3]

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) [4]

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 18:00) [5]

Чувствую.....огромное вам спасибо...все получилось..

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.01 c