Добрый день. Есть проблема. Написал клиента и сервер на элементах Winsock отсылаю данные на сервер. При вызове метода GetData не могу получить строку данных - она пустая.
При этом вызывая: Fg = tcpserv.BytesReceived
"Fg" равно количеству посланных символов.
| VB.NET |
1
2
3
4
5
6
7
| Private Sub tcpserv_DataArrival(ByVal sender As Object, ByVal e As AxMSWinsockLib.DMSWinsockControlEvents_DataArrivalEvent) Handles tcpserv.DataArrival
Dim meDSF As String
tcpserv.GetData(meDSF)
Text1.Text = meDSF
End Sub |
|
Если meDSF присвоить значение (скажем meDSF = "Нет данных")
то поле "Text1.Text" заполняется значением "Нет данных"
| VB.NET |
1
2
3
4
5
| Dim meDSF As String
meDSF = "Нет данных"
tcpserv.GetData(meDSF)
'meDSF = "Нет данных"
resend.Text = meDSF |
|
Получается что GetData принимает копию переменной meDSF а оригинал не меняется.
Метод GetData должен принимать ссылку на переменную - наверное в этом проблема. Но как передать ссылку а не копию переменной я не знаю.
Помогите в решении проблемы. Спасибо.
Добавлено через 7 минут 33 секунды
Вот текст всей маленькой программы:
| VB.NET |
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
| Public Class Form1
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
tcp.Close()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
tcp.Connect()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
tcp.SendData(TextBox1.Text)
End Sub
Private Sub tcp_ConnectionRequest(ByVal sender As Object, ByVal e As AxMSWinsockLib.DMSWinsockControlEvents_ConnectionRequestEvent) Handles tcp.ConnectionRequest
tcp.Accept(e.requestID)
End Sub
Private Sub tcp_DataArrival(ByVal sender As Object, ByVal e As AxMSWinsockLib.DMSWinsockControlEvents_DataArrivalEvent) Handles tcp.DataArrival
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim DSg, Fg As String
DSg = ""
Fg = tcp.BytesReceived
tcp.GetData(DSg)
TextBox2.Text = DSg & " >" & Fg
End Sub
Private Sub tcpserv_CloseEvent(ByVal sender As Object, ByVal e As System.EventArgs) Handles tcpserv.CloseEvent
tcpserv.Close()
Label1.Text = "Отключились CloseEvent"
tcpserv.Listen()
End Sub
Private Sub tcpserv_ConnectionRequest(ByVal sender As Object, ByVal e As AxMSWinsockLib.DMSWinsockControlEvents_ConnectionRequestEvent) Handles tcpserv.ConnectionRequest
tcpserv.Close()
Label1.Text = "Соединение ConnectionRequest"
tcpserv.Accept(e.requestID)
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
tcpserv.Listen()
End Sub
Private Sub tcpserv_DataArrival(ByVal sender As Object, ByVal e As AxMSWinsockLib.DMSWinsockControlEvents_DataArrivalEvent) Handles tcpserv.DataArrival
Dim meDSF As String
tcpserv.GetData(meDSF)
resend.Text = meDSF
End Sub
End Class |
|
(
