Provjera dostupnosti servera

Dec 30, 2012 at 1:28 PM
Edited Dec 30, 2012 at 8:10 PM

Napravo sam provjeru dostupnosti servera echo metodom ali mi se to nikak ne vidi.

Prvo dugo traje a drugo, koliko sam pročitao odziv može biti netočan.

Zato ja upad u echo svaki puta mijenjam "long" (bigint) brojem.

 

    Public Function GetEcho(ByRef eMS As Long) As Boolean

        'Dim cis As Raverus.FiskalizacijaDEV.CentralniInformacijskiSustav = New CentralniInformacijskiSustav()
        'vec je deklariran na nivou modula

        Dim echoValid As Boolean = False
        Dim eWatch As New Stopwatch
        eWatch.Start()

        Dim doEcho As XmlDocument
        Dim Echostr As String = "Provjera " & DateTime.Now.Ticks.ToString
        doEcho = Raverus.FiskalizacijaDEV.PopratneFunkcije.XmlDokumenti.DohvatiPorukuEchoZahtjev(Echostr)
        doEcho = cis.PosaljiSoapPoruku(doEcho)

        'Debug.Print(doEcho.InnerXml) ' da vidim...
        If doEcho.InnerXml.Contains(Echostr) Then echoValid = True

        eWatch.Stop()
        eMS = eWatch.ElapsedMilliseconds
        Return echoValid
    End Function

 

Jel ima tko kakvu pametniju i "robustniju" ideju?

Coordinator
Dec 30, 2012 at 1:30 PM

U ovom trenutku za produkcijski server baš i nema ništa pametnije - možeš pokušati jedino sa ECHO + eventualno, kontrola da li uopće na klijentu imaš pristup Internetu