| Вопрос: Нужен исходник простого сетевого Чата..... | Добавлено: 20.11.03 02:37 |
Автор вопроса:  VC Spy
|
|
Мне нуже исходник, пример простого чата для локальной сети. Он (чат) не обязатель должен быть навороченным, мне главное посмотреть принцип его написания... Помогите, плиз. Спасибо. |
| Ответы | Всего ответов: 2 |
|
Номер ответа: 1 Автор ответа:  Александр Разработчик Offline Client ICQ: 204034 Вопросов: 106 Ответов: 1919 |
Профиль | | #1 | Добавлено: 20.11.03 10:25 |
Поищи на www.sources.ru Elf's Chat
|
||
|
Номер ответа: 2 Автор ответа:  Pendalf ICQ: 281656216 Вопросов: 10 Ответов: 14 |
Профиль | | #2 | Добавлено: 21.11.03 04:15 |
|
***********************<СОЗДАЙ НОВЫЙ ПРОЭКТ 'SERVER'>********************************** Private Sub Command1_Click() 'послать данные Winsock2.SendData Text1.Text End Sub Private Sub Form_Load() Winsock1.LocalPort = 1000 ' локальный порт 'слушать порт Winsock1.Listen 'после этого лучше поставить DoEvents DoEvents End Sub Private Sub Winsock2_Close() 'если клиент отключился то надо бы закрыть соединение Winsock2.Close End Sub Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
'даём согласие на подключение клиента !!!***Winsock2***!!! Winsock2.LocalPort = 1000 Winsock2.Accept requestID End Sub Private Sub Winsock2_DataArrival(ByVal bytesTotal As Long) ' процедура выполняется когда клиент прислал данные Dim S As String 'присваиваем данные переменной S Winsock2.GetData S, vbString Text2.Text = Text2.Text & S End Sub *************************************************************************************** ***********************<СОЗДАЙ НОВЫЙ ПРОЭКТ 'CLIENT'>********************************** Private Sub Command1_Click() 'послать данные Winsock1.SendData Text1.Text End Sub Private Sub Command2_Click() Winsock1.RemoteHost = "127.1.0.0" ' - твой IP адресок Winsock1.RemotePort = 1000 Winsock1.Connect Command2.Enabled = False Command3.Enabled = True End Sub Private Sub Command3_Click() 'откл. от сервера Winsock1.Close End Sub Private Sub Winsock1_Close() Command3.Enabled = False Command2.Enabled = True End Sub Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) ' процедура выполняется когда клиент прислал данные Dim S As String 'присваиваем данные переменной S Winsock1.GetData S, vbString Text2.Text = Text2.Text & S End Sub ************************************************************************************** Если чё не понятно пиши на Georgiy_2003@rambler.ru или на аську 281656216. Goga. |
||
Страница: 1 |