Передача информации при помощи vb6 через интернет

[Куков]

Значит у мя такой вопрос как передовать информацию с помощью VB6 С одного компа на другой через интернет или по сети.

[Xcode]

С помощью сокетов.

[Куков]

Можно поподробнее, а то я в этом вообще не шарю.

[Xcode]

На сайте есть примеры и статьи. И на форуме можно найти что почитать. Keywords: winsock, socket, CSocket, TCP, UDP...

[Куков]

Ага спасибо уже нашел.

[Куков]

Вопрос может тупой, но вот в чем он заключается
если я через винсок отправляю информацию вводя ее в TEXTBOX то все отлично, но если я отправляю информацию вот так

Код: Выделить всё

tcpclient.Connect
cmdConnect.Enabled = False
cmdDis.Enabled = True
! tcpclient.SendData ("Подключенно")
! tcpclient.SendData ("IP:" & tcpclient.LocalIP & "  " & "Name:" & tcpclient.LocalHostName)
lblStatus.Caption = "Соеденино"

то вылетает ошибка, и показывает на те места где у мя стоят восклицательные знаки.
Ребята, подскажите че не так.

[iGrok]

то вылетает ошибка, и показывает на те места где у мя стоят восклицательные знаки.
Ребята, подскажите че не так.

Текст ошибки в студию.

[Куков]

Runtime error 40006
wrong protocol or coonection state for the requested transactions or request

удаляю две строчи все норм. все соеденяется, передается (через TEXTBOX всмысле), но проблемма от этого не решена...

[iGrok]

Runtime error 40006
wrong protocol or coonection state for the requested transactions or request

удаляю две строчи все норм. все соеденяется, передается (через TEXTBOX всмысле), но проблемма от этого не решена...

После Connect и перед SendData жди статус tcpclient.State = sckConnected
Либо отправляй в событии Connected.

[Куков]

После Connect и перед SendData жди статус tcpclient.State = sckConnected
Либо отправляй в событии Connected.

о спасибо щас попробуем.

[VBTerminator]

Код: Выделить всё

! tcpclient.SendData ("Подключенно")
! tcpclient.SendData ("IP:" & tcpclient.LocalIP & "  " & "Name:" & tcpclient.LocalHostName)

Попробуй убрать скобки. Веть метод ничего не возвращает.

[Куков]

Спасибо ребята уже все норм.
щас буду делать так, что б много клиентов могло подключится...

[eldar22]

Извините что влезаю тему

Ну у меня вопрос как передать информацию об открытия новой формы

Код: Выделить всё

form1.Show

Клиент

Код: Выделить всё

Private Sub Form_Load()
' Имя Winsock-компонента tcpClient.
' Указывая имя удаленного компьютера можно
' указывать IP-адрес (например: "121.111.1.1") или
' дружественное имя, как в нижеприведенном коде.
tcpClient.RemoteHost = "ip"
tcpClient.RemotePort = 1778
End Sub

Private Sub cmdConnect_Click()
' Вызвать метод Connect для создания соединения
tcpClient.Connect
End Sub

Private Sub txtSend_Change()
tcpClient.SendData txtSend.Text
End Sub

Private Sub tcpClient_DataArrival _
(ByVal bytesTotal As Long)
Dim strData As String
tcpClient.GetData strData
txtOutput.Text = strData
End Sub



Сервер

Код: Выделить всё

Private Sub Form_Load()
'Задать номер порта по которому будет осуществляться
'обмен данными, присвоив значение свойству LocalPort
'Вызвать метод Listen.
tcpServer.LocalPort = 1778
tcpServer.Listen
frmClient.Show 'Показать форму клиента
End Sub

Private Sub txtSendData_Change()
' Текстовое поле txtSendData
' содержит данные для передачи. Все символы,
' которые будут вводиться в это текстовое поле, будут единой
' строкой посылаться приложению-клиенту, используя метод SendData.
tcpServer.SendData txtSendData.Text
End Sub

Private Sub tcpServer_ConnectionRequest _
(ByVal requestID As Long)
' Проверяется свойство State, было ли завершено
' предыдущее соединение. Если не завершено,
' то перед установлением нового соединения,
' старое закрывается принудительно
If tcpServer.State Then tcpServer.Close
' Принятие запроса Accept с параметром requestID
' на установление соедиения.
tcpServer.Accept requestID
End Sub
Private Sub tcpServer_DataArrival _
(ByVal bytesTotal As Long)
' Декларируется переменная-буфер для получаемых данных.
' Вызывается метод GetData и свойству Text
' текстового поля txtOutput, присваивается значение переменной-
' буфера.
Dim strData As String
tcpServer.GetData strData
txtOutput.Text = strData
End Sub


[Dimen]

Может я тебя не понял конечно, но у кажой формы есть событие Form load() которое происходит при запуске формы. Вот собственно туда и помещай отправку нужных тебе данных.

[eldar22]

Нет меня не понял
Допустим нажал кнопку на клиенте и на сервере открывается новая форма

[Xcode]

В чем проблема? Ты не знаешь про условный оператор IF?

[Денис]

Нет меня не понял
Допустим нажал кнопку на клиенте и на сервере открывается новая форма

В самом деле IF ну или Select Case. Клиент посылает команду: "Аткрой, слищь?", сервер принимает команды и сравнивает с известными ему с помошью вышеприведенных операторов. Если он встречает команду "Аткрой, слищь?", то выполняет вызов Form1.Show (открывает форму, тоесть). А например, если он получает команду "Инна!", то завершает работу. Чего непонятного-то?

[Dimen]

eldar22 а помоему тебе просто нужно изучить на начальном уровне VB и таких вопросов уже не возникнет. Потому что то что ты задаешь элементрано.
Напишу тебе пример с текстбоксом:

Код: Выделить всё

if text1.text = "Открывай форму" then
form1.Show
end if


Думаю поймешь как сделать в твоем случае.