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

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

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

По написанию нового компонета от TServerSocket и TClientSocket. [D7, WinXP]

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

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

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

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

Ezorcist (2006-05-29 14:12:00) [1]
Пасиба!))))))
Большое!)

Сергей М. (2006-05-29 08:25:00) [2]

> 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 07:18:00) [3]
Но это даст новые свойства только самому TServerSocket, а Socket не измениться.... (жаль, что в Delphi нет прототипов(( )

Интересующийся (2006-05-28 10:44:00) [4]
Сделать можно, но гемора много!
Я пробовал, пришлось переписывать TCustomWinSocket.

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

Наверх

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