WinSock

[noob4ever]

Помогите пожалуйста c Winsock
В общем хочу сделать 2 переммые в буфере

Private Sub tcpClient_DataArrival _
(ByVal bytesTotal As Long)
Dim A As String
Dim B As String
tcpClient.GetData A
tcpClient.GetData B
Текст1.Text = A
Текст2.Text = B
End Sub


В сервере-приложении:

tcpServer.SendData Текст1.Text
tcpServer.SendData Текст2.Text

Хочу чтобы текст1(сервер) переносился в текст1(клиент) и
текст2(сервер) переносился в текст2(клиент)

А получается лишь 1 переменная! как быть? кто знает?

[Sasha_karasov]

Тебе нужно просто дождатся когда отправ. данные с Text1 тогда посылаешь Text2. Есть: Sub WS_SendComplete() - вот она и даст знать что данные отправ.

[noob4ever]

спасибо большое!

[noob4ever]

как сделать чтобы соединений было не одно?? т.е чтобы не один клиент мог бы подключиться к серверу а много???

[hCORe]

Массив Winsock создавай. Динамически, по мере надобности.

[noob4ever]

что-то слышал про это, но незнаю как сделать??

[Alexanbar]

Добавление нового контрола программно:

dim Winsock2 as winsock
....
Set Winsock2=Form1.Controls.add("MSWinsockLib.Winsock","Winsock2")

[noob4ever]

а разве 1 винсок не может много подключений принимать?

[Sasha_karasov]

Нет , на сайте "VBstreets.ru" есть статья по теме прочти...