Чтение из сокета \ падение студии

[vvs_adm]

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

Private Declare Function m_recv Lib "ws2_32.dll" Alias "recv" (ByVal s As Long, ByRef buf As Any, ByVal buflen As Long, ByVal flags As Long) As Long

...

Dim sBufer As String * 1024
Dim nLenData As Long
           
MDebug.mPrint "Начинаем чтение данных"
nLenData = m_recv(m_nSocket, sBufer, 1024, 0)
MDebug.mPrint "nLenData=" & CStr(nLenData)


Так как студия рушится, то Debug.Print информации не дает, пришлось зделать свою функцию mPrint записи в файл, так вот в файле появляется запись "Начинаем чтение данных", после чего "VB6.exe вызвало нехорошую ошибку и срочно закрывается". А какие могут быть причины?

P.S.: для уточнения поставил останов на строку nLenData=m_recv...
По нажатию F8 студия рушится

[GSerg]

Да собственно, строку надо byval...
А массив байт пошёл бы.

[vvs_adm]

To GSerg - да это я уже переделывал после первого обрушения несколько раз, выше приведенный кусок практически содран с вот этого работающего сокета

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


Private Function GetData() As String
Dim bytes As Long
Dim RB As String * 16384
Dim Data As String
bytes = recv(aSocket, RB, 16384, 0)
  If bytes > 0 Then
   Data = Left$(RB, bytes)
   GetData = Data
  Else
   GetData = ""
  End If
End Function


Так что и без массива байт должно же идти... Причем, что мне совсем непонятно, если запускаю с нюля два сокета и кидаю на пересылку Text1, то приходит белиберда... а если 1234, то рушится.

[GSerg]

Да собственно, строку надо byval

[vvs_adm]

GSerg
Спасибо
P.S.: Блин, ну до чего ж я невнимательный... Сам же вам декларацию recv привел, а посмотреть на неё несудьба была