Если несложно приведи весь код функции и пример вызова.
Все это делается для работы с сокетом с NoSQL Database.
Бизнес логика серверного сокета написана на стороне NoSQL Database,
клиент может быть написан на любом языке(в нашем случае на VB)
Клиент может передать серверу 16 переменных в которых можно поместить
за один раз 16 мГб инфо.
В этих же переменных, со стороны сервера получаем обратно обработанную
информацию с со стороны сервера. Вот почему и нужно было такой подход.
Клиентский вызов:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim inp As String = "Test input Client"
Dim a As String="Здесь тоже можно что-то, как и во всех 16 прм"
Dim b As String = ""
Dim c As String = ""
Dim d As String = ""
Dim i As Integer
m.DoRoutine("INP^tst", inp, a, b, c, d)
' Уже обработанную инфу с стороны сервера
MsgBox(a & b & c & d)
End Sub
Клиентский сокет:
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.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
86.
87.
88.
89.
90.
91.
92.
93.
94.
95.
96.
97.
98.
99.
100.
101.
102.
103.
104.
105.
106.
107.
108.
109.
110.
111.
112.
113.
114.
115.
116.
117.
118.
119.
120.
121.
122.
123.
124.
125.
126.
127.
128.
129.
130.
131.
132.
133.
134.
135.
136.
137.
138.
139.
140.
141.
142.
143.
144.
145.
146.
147.
148.
149.
150.
151.
152.
153.
154.
155.
156.
157.
158.
159.
160.
161.
162.
163.
164.
165.
166.
167.
168.
169.
170.
171.
172.
173.
174.
175.
176.
177.
Imports System.Windows.Forms
Public Class GTMCmd
'=============================
'EVENTS
'=============================
Public Event DataArrival(ByVal bytesTotal As Long)
Private m_blnHeaderArrived As Boolean
Public Shared m_var(16) As Object
Private m_strHeader As String
Private WithEvents GTMCmd As OSWINSCK.Winsock
Property Status() As String
Get
Status = GTMCmd.Status
End Get
Set(ByVal Value As String)
GTMCmd.Status = Value
End Set
End Property
Property RemoteHost() As String
Get
RemoteHost = GTMCmd.RemoteHost
End Get
Set(ByVal Value As String)
GTMCmd.RemoteHost = Value
End Set
End Property
Property RemotePort() As String
Get
RemotePort = GTMCmd.RemotePort
End Get
Set(ByVal Value As String)
GTMCmd.RemotePort = Value
End Set
End Property
Private Sub Close()
'Classe terminate ??????
GTMCmd = Nothing
End Sub
Public Sub New()
GTMCmd = New OSWINSCK.Winsock
End Sub
Public Sub Refresh()
Reset()
End Sub
Private Sub GTMCmd_OnDataArrival(ByVal bytesTotal As Integer) _
Handles GTMCmd.OnDataArrival
Dim m_strChunk As String = ""
Dim cnt As Integer
Dim varFull() As String
On Error GoTo Error_Handler
'Try
m_blnHeaderArrived = False
Call Reset()
GTMCmd.GetData(m_strChunk)
'if header hasn't arrived pentru functii ... tot aici
m_strHeader = m_strHeader & m_strChunk
'---------------------------------------------------------------
'if header hasn't arrived. QUIT - "F" No QUIT - "R"
'---------------------------------------------------------------
If InStr(m_strHeader, Chr(157)) Then
'Selectam cati parameteri. Eroare - End
'varFull(0) e rezervat pentru a intoarce prin "Q"
'varFull(1) e rezervat pentru a intoarce Error
varFull = Split(m_strHeader, Chr(156))
If InStr(varFull(1), "<Error:>") Then
MsgBox(varFull(1))
Call Reset()
m_strHeader = ""
m_strChunk = ""
End If
'Inscriem datele primite in Array m_var
For cnt = 0 To UBound(varFull) - 1
m_var(cnt) = varFull(cnt)
Next cnt
m_strHeader = ""
m_strChunk = ""
m_blnHeaderArrived = True
End If
Exit Sub
Error_Handler:
'Catch
Reset()
m_strHeader = ""
m_strChunk = ""
MsgBox("Error: " & Err.Number & "- " & Err.Description)
'End Try
End Sub
Public Function DoRoutine(ByVal Routine As String, Optional ByRef v1 As Object = Nothing, Optional ByRef v2 As Object = Nothing, Optional ByRef v3 As Object = Nothing, _
Optional ByRef v4 As Object = Nothing, Optional ByRef v5 As Object = Nothing, Optional ByRef v6 As Object = Nothing, _
Optional ByRef v7 As Object = Nothing, Optional ByRef v8 As Object = Nothing, Optional ByRef v9 As Object = Nothing, _
Optional ByRef v10 As Object = Nothing, Optional ByRef v11 As Object = Nothing, Optional ByRef v12 As Object = Nothing, _
Optional ByRef v13 As Object = Nothing, Optional ByRef v14 As Object = Nothing, Optional ByRef v15 As Object = Nothing, _
Optional ByRef v16 As Object = Nothing) As Object
Dim Par As Integer
Dim strLen1 As Long, strLen2 As Long, strLen3 As Long, strLen4 As Long, strLen5 As Long
Dim strLen6 As Long, strLen7 As Long, strLen8 As Long, strLen9 As Long, strLen10 As Long
Dim strLen11 As Long, strLen12 As Long, strLen13 As Long, strLen14 As Long, strLen15 As Long, strLen16 As Long
Dim str As Object = ""
Dim strLenAll As Long
Dim strRes As Object
On Error Resume Next
Par = 0
strLenAll = 0
If Not IsNothing(v1) Then
Par = Par + 1 'Parameter
str = str & v1 & Chr(0) 'String
strLen1 = Len(v1) 'Len string
strLenAll = strLenAll + Len(v1) 'All Len
Else
Par = Par
strLen1 = 0
strLenAll = strLenAll
End If
.......................................
If Not IsNothing(v16) Then
Par = Par + 1
str = str & v16 & Chr(0)
strLen16 = Len(v16)
strLenAll = strLenAll + Len(v16)
Else
Par = Par
strLen16 = 0
strLenAll = strLenAll
End If
'If RetResult = True Then Ret = "Q"
'If RetResult = False Then Ret = "R"
strRes = "DO " & Routine & "~" & Par & "~" & "R" _
& "~" & strLenAll & "~" & strLen1 & "~" & strLen2 _
& "~" & strLen3 & "~" & strLen4 & "~" & strLen5 _
& "~" & strLen6 & "~" & strLen7 & "~" & strLen8 _
& "~" & strLen9 & "~" & strLen10 & "~" & strLen11 _
& "~" & strLen12 & "~" & strLen13 & "~" & strLen14 _
& "~" & strLen15 & "~" & strLen16 & Chr(0) & str & vbCrLf
GTMCmd.SendData(strRes)
'Astept cand vin toate datele si insemn evenimentul
Do Until m_blnHeaderArrived
Application.DoEvents()
Loop
'Datele primite din GTMCmd_OnDataArrival egalez cu variabilele v1..v12
'DoRoutine = m_var(0) ' Pseudo parametru ("") - nu-l folosim
v1 = m_var(1)
v2 = m_var(2)
v3 = m_var(3)
v4 = m_var(4)
v5 = m_var(5)
v6 = m_var(6)
v7 = m_var(7)
v8 = m_var(8)
v9 = m_var(9)
v10 = m_var(10)
v11 = m_var(11)
v12 = m_var(12)
v13 = m_var(13)
v14 = m_var(14)
v15 = m_var(15)
v16 = m_var(16)
Return m_var(0)
Call Reset()
End Function
Согласен что 16 переменных много, но ...
