Евент для ServerSocket

← →
delpher_gray © (2002-09-17 12:22) [0]

Привет Делферы !
У меня есть код проги, написанной в консольном приложении, которая запускает сервер на 13 порту, но в ней есть глюк...
Само ыобытие OnClientRead не работает. Прога не компилируется, выдаёт ошибку: PServer.dpr(17): Incompatible types: "method pointer and regular procedure".
Вот код проги:
program PServer; uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ScktComp; procedure ClientReadEvent(Sender: TObject; Socket: TCustomWinSocket); begin Socket.SendText("It WORK !"); end; var ServerSocket1: TServerSocket; begin ServerSocket1.Create(nil); ServerSocket1.Port := 13; ServerSocket1.OnClientRead := ClientReadEvent; while true do ServerSocket1.Open; ServerSocket1.Free; end.
Если кто знает как это исправить доскажите плииииззззз !

← →
REA (2002-09-17 12:42) [1]

Событие по описанию не просто процедура, а процедура класса (of object). Процедура должна быть внутри класса.

← →
Digitman © (2002-09-17 12:45) [2]

разницу между процедурой и процедурным методом объекта в понимаешь ?

← →
delpher_gray © (2002-09-18 12:47) [3]

to REA
Просто надо дописать
procedure ClientReadEvent(Sender: TObject; Socket: TCustomWinSocket) of object и всё что ли ?

← →
REA (2002-09-18 13:28) [4]

Она так и описана уже. Саму процедуру поместить внутрь любого класса (хоть формы).

← →
delpher_gray © (2002-09-18 15:12) [5]

Вся проблема в том, что это консольное приложение...
Я не знаю как всё это поместить внутрь класса.
Если кто знает, просто допишите код.
Заранее благодарен.

← →
REA (2002-09-18 16:09) [6]

Любой класс создай:

TMyClass = Class()
Public
MyProc нужного типа
End;

TCPHandler: TMyClass;

Initialization
TCPHandler := TMyClass.Create;
Finalization
TCPHandler.Free;
End.

To REA !
Rea ! Если тебе не трудно плиз допиши код проги :-) Ато я в этих классах и т.п. ни чего не понимаю :-)))

← →
REA (2002-09-18 17:56) [8]

А деньги за нее по факсу перешлешь?

Евент для ServerSocket Найти похожие ветки