Решил я написать простую программку и сразу столкнулся с проблемой. Программа для передачи файлов по сети, решил использовать winsock.
Вот код принимающей части, может кому будет интересно, реализация пересылки данных.
На форме кнопка + winsock
- Код: Выделить всё
Private Sub Command1_Click()
tcpClient.RemoteHost = "127.0.0.0"
tcpClient.RemotePort = "80"
tcpClient.Connect ' установка соединения
End Sub
Private Sub tcpClient_DataArrival _ '
(ByVal bytesTotal As Long)
Dim A As String
tcpClient.GetData A 'Получение данных
Open "d:\log.txt" For Binary As #1 'Открытие файла и запись в него
Put #1, , A
Close #1
End Sub
Отправляющаяя часть программы: на форме только winscok.
- Код: Выделить всё
Private Sub Form_Load()
tcpServer.LocalPort = 80 'Ожидание входящего соединения
tcpServer.Listen
End Sub
Private Sub tcpServer_ConnectionRequest _ "Если соединение установлено
(ByVal requestID As Long)
If tcpServer.State <> sckClosed Then _
tcpServer.Close
tcpServer.Accept requestID
Dim A As String
Open "d:\test.txt" For Input As #1 'Прочитать даннные и послать их
A = Input$(LOF(1), 1)
tcpServer.SendData A
Close #1
End Sub
К сожалению не все так хорошо. Пересылаються только 8Кб.
Разьясните пожалуйсто где я неправильно сделал
