| |
|
|
| | http://hiprog.com/index.php?option=com_content&task=view&id=221&Itemid=38
вот почитал - а как называется и где лежит он на компе? 
видимо вот этот Microsoft Winsock Conrol 6.0??? | |
| |
| |
| |
|
|
| | WinSock или Windows socket - это интерфейс программного программирования (API) созданный для реализации приложений в сети на основе протокола TCP/IP. То есть это просто группа функций !!!! Для работы используется WSOCK32.DLL.
Практически это интерфейс к протоколу TCP/IP.
http://www.firststeps.ru/mfc/net/socket/r.php?1 | |
| |
| |
| |
|
|
| | Спасибо, Lukas !!!
Бум делать клиент серверное предложение......
Будем с тобой по TPC общатится
==========================================
клиент
Private Sub Form_Load()
Winsock1.RemoteHost = "127.0.0.1" ' Указываем IP компа, на котором запущен сервер(В место IP'a можно указать имя компа(Мой Компьютер>>Панель управления>>Сеть>>Индефикация(Winsock1.RemoteHost = "Komp")))(если ты щас не в сети(ил в локалке), то твой IP всегда будет 127.0.0.1)
Winsock1.RemotePort = 101 ' Указываем порт сервера
Winsock1.Connect ' Подключаемся
Form1.Caption = "Клиент"
End Sub
Private Sub Text1_Change() ' Принимаем запрос
Winsock1.SendData Text1.Text ' Принимаем запрос
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) ' Если сервер посылает текст то:
Dim DD As String ' Объявляем переменную для работы со строками
Winsock1.GetData DD ' Записываем в переменную текст, который был послан Сервером
Text2.Text = DD
End Sub | |
| |
| |
| |
|
|
| | Сервер
Private Sub Form_Load()
Winsock1.LocalPort = 101 ' Указываем порт который будет слушать Сервер
Winsock1.Listen ' Начинаем Слушать порт Lukas a
Form1.Caption = "Сервер"
End Sub
Private Sub Text1_Change() ' При изменении текста в текстовом поле:
Winsock1.SendData Text1.Text ' Посылаем клиенту текст который введен в текстовое поле
End Sub
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
If Winsock1.State <> sckClosed Then Winsock1.Close ' Если сервер не закрыт, то закрываем его(подробнее смотри ниже)
Winsock1.Accept requestID ' Принимаем запрос
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) ' Если Клиент посылает текст то:
Dim D As String ' Объявляем переменную для работы со строками
Winsock1.GetData D ' Записываем в переменную текст, который был послан Клиентом
Text2.Text = D ' Здесь все понятно, скажу тока что нельзя напрямую писать Winsock1.GetData Text1.Text, нодо обязательно через переменную
End Sub | |
| |
| |
| |
|
|
| | У меня все порты Касперский кошмарит, жития никому не дает.  | |
| |
| |
|
|
