Проверка доступности сервера в линукс.

Поделиться126.09.2014 13:47:37

Автор: defender
Новичок
Зарегистрирован: 26.09.2014
Приглашений: 0
Сообщений: 5
Уважение: [+0/-0]
Позитив: [+0/-0]
Провел на форуме:
1 час 3 минуты
Последний визит:
30.09.2014 11:34:35

Как NetworkClient может узнать о разрыве соединения с сервером? Ведь NetworkClientEvent() не знает соответствующего события, в отличии от NetworkServerEvent(). По ссылке Как NetworkClient может узнать о разрыве соединения сервером? есть похожая тема для винды. В ней есть WSAGetLastError() - виндовая приблуда. А вот можно ли как то сделать проверку ошибки в линуксе. Или может есть какая-то возможность реализовать данную процедуру иначе? Примеры только приветсвуются. Спасибо.

0

Поделиться226.09.2014 16:44:22

Автор: Пётр
Активный участник
Зарегистрирован: 14.06.2009
Приглашений: 0
Сообщений: 2944
Уважение: [+96/-5]
Позитив: [+1/-0]
Пол: Мужской
Провел на форуме:
2 месяца 9 дней
Последний визит:
Вчера 21:40:41

defender написал(а):

Как NetworkClient может узнать о разрыве соединения с сервером? Ведь NetworkClientEvent() не знает соответствующего события

Ну почему же? У функции NetworkClientEvent() есть событие #PB_NetworkEvent_Disconnect. http://purebasic.com/documentation/netw … event.html

0

Поделиться326.09.2014 16:56:07

Автор: defender
Новичок
Зарегистрирован: 26.09.2014
Приглашений: 0
Сообщений: 5
Уважение: [+0/-0]
Позитив: [+0/-0]
Провел на форуме:
1 час 3 минуты
Последний визит:
30.09.2014 11:34:35

В том то и дело, что не работает. Или может я что-то не так сделал?. Вот код.
------------------

Код:

OpenWindow(1, 0, 0, 600, 400, "", #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget | #PB_Window_ScreenCentered)
i=0
ButtonGadget(2,20,20,300,35,"Послать серверу значение i (="+Str(i)+")")
If InitNetwork() = 0
  MessageRequester("Error", "Can't initialize the network !", 0)
  End
EndIf
;Procedure CheckServ(*t)
;	Repeat
;    ConnectionID1=OpenNetworkConnection("192.168.1.10", Port1)
;    If Not ConnectionID1
;        MessageRequester("PureBasic - Client", "Server is down...", 0)
;        CloseNetworkConnection(ConnectionID)
;        End
;    	EndIf
;	ForEver
;EndProcedure
	Port = 6832
;	Port1=6833
ConnectionID = OpenNetworkConnection("192.168.1.10", Port)
If ConnectionID
	Repeat
    
    ;PokeS(*Buffer_to, 1 , #PB_Unicode)
    ;SendNetworkData(ConnectionID,*Buffer_to,#PB_Unicode)
    ;Delay(100)
    ;ErrorCode
    Select NetworkClientEvent(ConnectionID)
    	Case #PB_NetworkEvent_Disconnect
        MessageRequester("PureBasic - Client", "Server is down...", 0)
        CloseNetworkConnection(ConnectionID)
        End
    EndSelect
        
    
    Select WaitWindowEvent()
    	Case #PB_Event_CloseWindow
        CloseNetworkConnection(ConnectionID)
        End
        Case #PB_Event_Gadget
        	Select EventGadget()
            Case 2
            	*Buffer_to = AllocateMemory(100)
            	PokeS(*Buffer_to, Str(i) , #PB_Unicode)
            	SendNetworkData(ConnectionID,*Buffer_to,#PB_Unicode)
            	FreeMemory(*Buffer_to)
            	i=i+1
            	SetGadgetText(2,"Послать серверу значение i (="+Str(i)+")")
            EndSelect
    EndSelect
	ForEver
	;MessageRequester("PureBasic - Client", "Client connected to server...", 0)
  
  	;SendNetworkString(ConnectionID, "An hello from a client !!! :-)")
    
	 ;MessageRequester("PureBasic - Client", "A string has been sent to the server, please check it before quit...", 0)
  
  	;CloseNetworkConnection(ConnectionID)
Else
  MessageRequester("PureBasic - Client", "Can't find the server (Is it launched ?).", 0)
EndIf
  
End

Версия Пурика - 5.11 х64

0