Изопропил99999 - невалидно для для порта...
Это я в курсе.
Вторая ф-ция это объясняет:
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.
'================коррекция диапазона RTP портов=========================
Public Sub SetRtpIpPorts(ByRef rtpIpBase As Integer, ByRef rtpIpMax As Integer)
Dim m_Base As Integer = rtpIpBase And -2 'And &HFFFE (в VB6)
Dim m_Max As Integer = rtpIpMax And -2 'And &HFFFE (в VB6)
SetPorts(m_Base, m_Max, 198, 5000)
rtpIpBase = m_Base
rtpIpMax = m_Max
End Sub
Private Sub SetPorts(ByRef newBase As Integer, ByRef newMax As Integer, _
ByVal range As Integer, ByVal dflt As Integer)
If newBase = 0 Then
newBase = dflt
newMax = dflt
If dflt > 0 Then newMax = newMax + range
Else
If newBase < 1024 Then
newBase = 1024
ElseIf newBase > 65500 Then
newBase = 65500
End If
If newMax <= newBase Then newMax = newBase + range
If newMax > 65530 Then newMax = 65530
End If
End Sub
'================коррекция диапазона RTP портов=========================
Смысл моих дублирующих ф-ций в том, что они делают
то же самое что и C++ система.
Т.е. пользователь ввел в настройки 2 порта, max и min,
мои ф-ции (VB6 или .Net не суть) их скорректировали.
Смысл в том, чтоб C++ эти скорректированные значения больше не меняла (т.е. реально устанавливаемый диапазон не плавал относительно заданного и отображаемого в настройках).
