![]() |
|
Модераторы: Poseidon, Snowy, bems, MetalFan |
![]()
|
|
| Bliz |
|
|||
|
Unregistered |
Соединяюсь с сервером по протоколу телнет используя стандартный клиент из Видов.
Как проследить обмен информацией между клиентом и сервером, точнее интересует обмен служебными сигналам и телнета. |
|||
|
||||
| Akella |
|
|||
![]() Творец ![]() ![]() ![]() ![]() Профиль Группа: Модератор Сообщений: 18485 Регистрация: 14.5.2003 Где: Корусант Репутация: 36 Всего: 329 |
У меня тоже вопрос по этой теме.
В WinXP при подключении компа по локальной сети в трее "работает" пиктограмма. Как бы написать небольшую программку, для Win98, может есть какие намеки или уже что-нибудь готовое. Хотябы подскажите какие функции использовать. Про отрисовку пиктограммы - это не главное. Я думаю, что сокеты, но как. |
|||
|
||||
| Bliz |
|
|||
|
Unregistered |
устанавливаем соединение с сокетом
procedure TForm1.Button1Click(Sender: TObject); begin If ClientSocket1.Active then begin Log.Items.Add('ñîåäèíåíèå ÑÓÙÅÑÒÂÎÂÀËÎ è ÐÀÇÎÐÂÀÍÎ'); ClientSocket1.Close; Exit; end; ClientSocket1.Host := Edit1.Text; ClientSocket1.Port := StrToInt(Edit2.Text); ClientSocket1.Open; if ClientSocket1.Active then Log.Items.Add('ñîåäèíåíèå ÀÊÒÈÂÍÎ'); end; когда коннект создаем поток procedure TForm1.ClientSocket1Connect(Sender: TObject; Socket: TCustomWinSocket); begin MySocketStream := TWinSocketStream.Create(Socket,60000); end; читаю по одному символу из потока procedure TForm1.Button2Click(Sender: TObject); var b: Byte; begin While not MySocketStream.WaitForData(100) do begin Application.ProcessMessages; end; MySocketStream.Read(b,1); Log.Items.Add('<- ' + IntToStr(b) + ' ' + Chr(b)); end; |
|||
|
||||
![]()
|
| Правила форума "Delphi: Общие вопросы" | |
|
|
Запрещается! 1. Публиковать ссылки на вскрытые компоненты 2. Обсуждать взлом компонентов и делиться вскрытыми компонентами
Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader. |
| 0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей) | |
| 0 Пользователей: | |
| « Предыдущая тема | Delphi: Общие вопросы | Следующая тема » |
|
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |