По написанию нового компонета от TServerSocket и TClientSocket.

← →
Ezorcist (2006-05-28 03:08) [0]

Задача в следующем: создать новые компоненты от TServerSocket и от TClientSocket так, что бы они использовали новый класс (если это класс) от TCustomWinSocket к которому, собственно я и хочу прикрепить новые функции и свойства. Т.е. так:

в событии OnClientRead, например, обратиться к

Socket.MyFunction(....);
Socket.NewParam:=....

и т.д. это можно сделать? Т.е. новые функции дать просто TClientSocket или TServerSocket проще, а вот их TCustomWinSocket" ам как?

← →
Интересующийся (2006-05-28 10:44) [1]

Сделать можно, но гемора много!
Я пробовал, пришлось переписывать TCustomWinSocket.

Лучше напиши новый компонент в котором будет присутствовать TCustomWinSocket, добавь в него все то, что тебе нужно и вызывай этот компонент при необходимости.

← →
Ezorcist (2006-05-29 07:18) [2]

Но это даст новые свойства только самому TServerSocket, а Socket не измениться.... (жаль, что в Delphi нет прототипов(( )

← →
Сергей М. © (2006-05-29 08:25) [3]

> Ezorcist (29.05.06 07:18) [2]

У TCustomWinSocket есть св-во Data, им и воспользуйся.

В On[Client]Connect:

Socket.Data ;= TMyObject.Create(..);

В On[Client]Disconnect:

TMyObject(Socket.Data).Free;

В On[Client]Read/Write:

TMyObject(Socket.Data).SomeMethod;

← →
Ezorcist (2006-05-29 14:12) [4]

Пасиба!))))))
Большое!)

По написанию нового компонета от TServerSocket и TClientSocket. Найти похожие ветки