lResult := hb_inetInit() 	Инициализирует INET подсистему, возвращает .T. в случае успеха. Должна вызываться перед вызовами других INET функций ( в начале программы, например ). 
 hb_inetCleanup() 	Освобождает ресурсы, занятые INET подсистемой. Ее надо вызывать в конце программы, использующей INET функции.  
 

 
   if hb_inetInit() 
 hSocket := hb_inetCreate(2500) 
 hb_inetConnectIP( "192.168.0.200",13,hSocket ) 
  if hb_inetErrorCode( hSocket )==0 
 ret:=.t. 
  else 
 ret:=.f.  
  endif 
 hb_inetCleanup() 
    endif 
 

/* 
  * IT IS IMPORTANT: in my case Postgres ver. 9.5.3 for Windows systems  
  *                  was installed on local machine, port 5432 (default) 
  */ 
  
 #include "hbdyn.ch" 
  
 PROCEDURE Main() 
  
    LOCAL hLib 
    LOCAL nVersion := 0 
  
    LOCAL cConnInfo 
    LOCAL host     := "localhost" 
    LOCAL hostaddr := "127.0.0.1" 
    LOCAL port     := 5432 
    LOCAL connect_timeout := 10 
  
    ? PQlibVersion() 
    ? hb_DynCall( { "PQlibVersion", "libpq.dll", HB_DYN_CTYPE_INT } ) 
    //? hb_DynCall( { "PQlibVersion", "libpq_8.dll", HB_DYN_CTYPE_INT } ) 
  
    hLib := hb_libLoad ( "libpq.dll" ) 
    IF ! Empty( hLib ) 
       nVersion := hb_DynCall( { "PQlibVersion", hLib, HB_DYN_CTYPE_INT } ) 
       IF nVersion < 90100 
          ? "The function PQping() not supported." 
          QUIT 
       ENDIF 
       // 1) !!databases!! is not valid word for ConnInfo 
       cConnInfo := "host = localhost database = test" 
       PingTest( cConnInfo, hLib ) 
       // 2) the default port for Postgres is 5432, but we can try connect to port 3333 and see what is happen 
       cConnInfo := "host = " + host + " port = " + "3333" 
       PingTest( cConnInfo, hLib ) 
       // 3) next attempt 
       cConnInfo := hb_strFormat( "host = %1$s hostaddr = %2$s port = %3$d connect_timeout = %4$d", host, hostaddr, port, connect_timeout ) 
       PingTest( cConnInfo, hLib ) 
  
       hb_libFree( hLib ) 
    ENDIF 
  
    RETURN 
  
 /*--- 
 * 
 */ 
 STATIC PROCEDURE PingTest( c, hLib ) 
  
    ? 'cConnInfo is "' + c + '"' 
    ? "PQPing( cConnInfo ) returns ", GetPingResult( hb_DynCall( { "PQping", hLib, HB_DYN_CTYPE_INT }, c ) ) 
  
    RETURN 
  
 /*--- 
 * 
 */ 
 STATIC FUNCTION GetPingResult( n ) 
  
    LOCAL aMsg := ; 
             {                                                                     ; 
                { "PQPING_OK", "(server is accepting connections)"},               ; 
                { "PQPING_REJECT", "(server is alive but rejecting connections)"}, ; 
                { "PQPING_NO_RESPONSE", "(could not establish connection)"},       ;  
                { "PQPING_NO_ATTEMPT", "(connection not attempted (bad params))"}  ;  
             } 
    IF n >= 0 .AND. n < Len( aMsg ) 
       RETURN ( aMsg[ n + 1 ][ 1 ] + " " + aMsg[ n + 1 ][ 2 ] ) 
    ENDIF 
     
    RETURN "" 
  
 #pragma BEGINDUMP 
  
 #include "hbpgsql.h"  
  
 HB_FUNC( PQLIBVERSION )  
 {  
    hb_retni( PG_VERSION_NUM );  
 }  
  
 #pragma ENDDUMP