Validar direccion ip y puerto remoto via vfp

[Martin Paredes]

Buen dia comunidad, feliz año para todos mis mejores deseos, alguien me puede orientar o compartir un ejemplo de como validar via vfp. si :

existe xxx.xxx.xxx direccion ip. con xxxx puerto.

si existe saber el estatus, online y/o offline.

el asunto es el envio de las transacciones de las tiendas locales a un servidor virtual, pero antes deseo validar que el destino final este en online.

Gracias y buen dia.

Slds...

Mapasac

[Martin Paredes]

buen dia, para los interesados, esta fue la solucion.

verifico que la base de datos remota (postgresql) este online.

?chk_port("mapasac.dyndns.tv",5432)

 

FUNCTION chk_port

   PARAMETERS P_cIP,P_nPORT

   PRIVATE P_FLG, I, LNLAST

   P_FLG=.F.

   IF TYPE('GETOBJECT("","MSWINSOCK.WINSOCK")') <> "O" THEN

      RETURN .T.  &&1000609C

   ENDIF

   OWINSOCK = CREATEOBJECT("MSWINSOCK.WINSOCK")

   IF TYPE("OWINSOCK") # "O" THEN

      RETURN .F.

   ENDIF

   WITH OWINSOCK

      .REMOTEHOST = P_cIP

      .REMOTEPORT = P_nPORT

      .CONNECT()

      I=0

      LNLAST=-1

      DO WHILE .T.

         I=I+1

         IF LNLAST <> .STATE  THEN

            LNLAST = .STATE 

         ELSE

            INKEY(0.2) &&20150415-11:16chilin

         ENDIF

         IF LNLAST>=7 OR I>10 THEN

            IF LNLAST=7 THEN

               P_FLG=.T.

            ENDIF

            EXIT

         ENDIF

      ENDDO

      .CLOSE()

   ENDWITH

   RELEASE OWINSOCK, I, LNLAST

   RETURN P_FLG

ENDFUNC

***** fuente :http://70tw.spotlight.net.tw/?tag=vfp

Slds....

Mapasac

General Escobedo, N.L. Mexico