Форум: "Основная";
Текущий архив: 2002.11.14;
Скачать: [xml.tar.bz2];
ВнизИзменение свойств стандартных компонент Найти похожие ветки
← →
aglar (2002-11-02 10:16) [0]Как к стандартному компоненту TСlientSocket добавить property типа string LocalStatus и сделать его доступным TServerSocket" у при вызове ServerSocket1.Socket.Connections[i].RemoteStatus?
← →
Алексей Ким (2002-11-02 10:20) [1]http://mdelphi.far.ru/fclick/fclick.php?ad=sovet2view&url=http://mdelphi.far.ru/docs/view/sovet2.htm
← →
Алексей Ким (2002-11-02 10:21) [2]не то...
http://mdelphi.far.ru/fclick/fclick.php?ad=26&url=http://mdelphi.far.ru/docs/view/m_compgauge2.htm
← →
aglar (2002-11-02 13:55) [3]Там этого нет :)
← →
aglar (2002-11-02 14:03) [4]Народ, не поленись!!! очень надо!
← →
Эльф (2002-11-03 08:25) [5]Если просто добавить собственное свойство/метод:
Создай класс, унаследуй его от TSockets(не помню, в общем, то, откуда эти два компонента). Добавь свое свойство LocalStatus.
А реализация - не знаю ;)
← →
aglar (2002-11-03 09:46) [6]Не ужели норманый ответ здесь так и не прозвучит???
← →
Новенький в Делфи (2002-11-03 13:11) [7]на вскидку
interface
type
TMySocket = Class(TClientSocket)
public
LoacalStatus: String;
end;
var
MySocket: TMySocket;
теперь в OnCreate формы
MySocket:= TMySocket.Create();
а работай теперь с Socket-ом через эту переменную
так ты добывишь свою переменную, в класс, а фактически создашь свой класс.
← →
Tano (2002-11-03 13:29) [8]Можно создать как свой компонент VCL, а код - как писал Новенький, но лучше (в смысле временных затрат) при малкньком изменениии сделать именно так как он написал. С новым компонентом будет много возни.
← →
aglar (2002-11-03 14:19) [9]А как сделать это свойство доступным для ServerSocket? Я имею ввиду как ServerSocket.Socket.Connections[..].RemoteHost?
← →
Tano (2002-11-04 06:06) [10]Если проследить родителей и конструкцию TServerSocket в файле ScktComp.pas, то видно, что тебе прийдется отредактировать класс TCustomWinSocket (Connections[i] возвращает указатель на объект этого класса). Посмотри сам, просто сделай поиск фразы "RemoteHost" в файле ScktComp.pas.
ScktComp.pas мне думается лучше не изменять - типа стандартный компонент VCL.
Короче, тебе прийдется либо делать себе копию файла, называть по-другому и отрихтовать классы по вкусу.
Использовать: либо ручками указывать в строке USES свой модуль, создавать, инициализировать в Run-Time,
либо регистрировать как свой компонент VCL (тут я помочь не могу - сам в этой теме плаваю).
Откровенно говоря Run-Time не так уж страшен - для тебя это будет даже удобнее (и для меня тоже :).
Принципиально другого способа решения проблемы не видится (если я хоть что-то понимаю в наследовании).
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.11.14;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.008 c