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

По написанию нового компонета от 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]

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

---

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

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



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