Возник вопрос!!! Не могу от сервера послать клиенту данные!!!
Сервер у меня в виде консольного приложения идет...
Вот код как все прописано!!!
Сервер:
Select NetworkServerEvent()
Case 1
Case 2
PrintN("Client " + "ID - " + Str(EventClient()) + " IP Adress:" + IPString(GetClientIP(EventClient())))
ReceiveNetworkData(EventClient(), Buffer, 20000)
PrintN("Comand Server: " + PeekS(Buffer))
If PeekS(Buffer) = "VersionServer"
SendNetworkString(EventClient(), "Version Server")
EndIf
Case 3
Case 4
PrintN("Client " + "ID:" + Str(EventClient()) + " Closed Server Version:")
EndSelect
Клиент:
Procedure ConnectServerVersion()
ConnectionID = OpenNetworkConnection("192.168.11.227",PortVersion)
If ConnectionID
;StatusBarText(0, 0, "Клиент успешно подключен...", #PB_StatusBar_Center)
VersionConnected=1
Else
MessageRequester("Ошибка", "Сервер обновлений не доступен!", #MB_OK|#MB_ICONINFORMATION)
EndIf
If VersionConnected=1
SendNetworkString(ConnectionID,"VersionServer")
EndIf
EndProcedure
Select Event
Case #PB_Event_Gadget
Select g_event
Case #Button_0
ConnectServerVersion()
If VersionConnected=1
Select NetworkClientEvent(ConnectionID)
Case 0
Case 1
ReceiveNetworkData(ConnectionID,mem,20000)
MessageRequester("Сообщение", PeekS(mem), #MB_OK|#MB_ICONINFORMATION)
Case 2
EndSelect
EndIf
Case #Button_1
Case #Button_2
EndSelect
EndSelect
При нажатии кнопки в клиенте, он посылает данные серверу и сервер в ответ должен отослать клиенту текущую версию сервера... Но вот почему то клиент успешно отсылает данные серверу, а сервер клиенту почему то не отсылает... В чем проблема понять не могу!!!