Sql Server'a bağlantıda timeout ayarı?

IF USED("tcpip")

    SELECT tcpip

    USE

ENDIF

 

SELECT * FROM "yed_tcpip" INTO CURSOR tcpip READWRITE

USE IN yed_tcpip

SELECT tcpip

DELETE ALL

APPEND FROM "tcpip.ini" TYPE SDF

 

 

******** BAĞLANTI AYARLARI ********

server_turu=""

sql_bag=0

databases_ad=""

databases_adi=""

ayar_sube_kodu=0

SELECT tcpip

GO TOP

LOCATE FOR AT("1#",tcpip.tcp_ip)>0

IF FOUND()

    server_turu=SUBSTR(ALLTRIM(tcpip.tcp_ip),AT("#",tcpip.tcp_ip)+1,25)

    IF EMPTY(server_turu)

        MESSAGEBOX("LÜTFEN TCPIP.INI DOSYASINI DÜZENLEYİNİZ",16,"UYARI")

                   QUIT

    ENDIF

ELSE

    MESSAGEBOX("LÜTFEN TCPIP.INI DOSYASINI DÜZENLEYİNİZ",16,"UYARI")

    QUIT

ENDIF

 

GO TOP

LOCATE FOR AT("2#",tcpip.tcp_ip)>0

IF FOUND()

    ayar_sube_kodu=VAL(SUBSTR(ALLTRIM(tcpip.tcp_ip),AT("#",tcpip.tcp_ip)+1,25))

    IF EMPTY(ayar_sube_kodu)

        MESSAGEBOX("LÜTFEN TCPIP.INI DOSYASINI DÜZENLEYİNİZ",16,"UYARI")

        QUIT

    ENDIF

ELSE

        MESSAGEBOX("LÜTFEN TCPIP.INI DOSYASINI DÜZENLEYİNİZ",16,"UYARI")

        QUIT

ENDIF

 

kullanici_adi="KULLANICI_ADI"

kullanici_sifre="ŞİFRE"

 

******************  TÜRKÇE **********************

SQLSETPROP(0, 'DispLogin', 3)

SQLSETPROP(0,'ConnectTimeOut',5)

 

PUBLIC strConString

strConString =""

 

strConString = ;

"DRIVER={SQL SERVER};SERVER=&server_turu;DATABASE=&databases_ad;UID=&kullanici_adi;PWD=&kullanici_sifre;"

*************************************************

 

sql_bag = SQLSTRINGCONNECT(strConString , .T.)

Local lcURL

lcURL=[http://www.google.com/]

 

Declare Integer InternetCheckConnection In Wininet.Dll String Url, Long dwFlags, Long Reserved

If InternetCheckConnection(lcURL, 1, 0) != 0

    Messagebox("Internet Var")

Else

    Messagebox("Internet Yok")

Endif

cIP="195.175.39.39"

cTemp=forcepath("PING.RAP",sys(2023))

 

DECLARE INTEGER ShellExecute IN Shell32.DLL AS MyShellExecute LONG nhWnd,STRING cAction,STRING cFile,STRING cParam,STRING cDirectory,INTEGER nShow

cCMD='/C ping -n 1 -w 2000 '+cIP+' > '+cTemp  && 1 defa dene  ve max. 2 saniye bekle

MyShellExecute(0,NULL,"cmd.exe",cCmd,NULL,0)

CLEAR DLLS MyShellExecute

 

WAIT WINDOW "AZCIK BEKLE" TIMEOUT 1

MODIFY FILE (cTemp)

Function internet_kontrolu

    IF DIRECTORY("c:\tmp")=.f.

        MKDIR "c:\tmp"

    ENDIF

 

    cTemp="c:\tmp\"+SYS(2015)+".pin"

    DECLARE INTEGER ShellExecute IN Shell32.DLL AS MyShellExecute ;

        LONG nhWnd, STRING cAction, STRING cFile, ;

        STRING cParam, STRING cDirectory, INTEGER nShow

 

    cCMD = '/C ping -n 1 -w 2000 ' + internet_adresi + ' > ' + cTemp  && 1 defa dene  ve max. 2 saniye bekle

    MyShellExecute(0, NULL, "cmd.exe", cCmd, NULL, 0)

 

    LOCAL ping_sayac

    local ping_sonuc

    ping_sayac=0

    ping_sonuc=""

 

    DO WHILE .T.

        ping_sayac=ping_sayac+1

        CREATE CURSOR ping_dogrulama(blg c(150))

        IF FILE((cTemp))

            SELECT ping_dogrulama

            APPEND FROM (cTemp) TYPE SDF

            GO TOP

            LOCATE FOR AT("Kaybolan",ping_dogrulama.blg)>0

            IF FOUND()

                ping_sonuc= SUBSTR(ping_dogrulama.blg, AT("Gelen",ping_dogrulama.blg)+5,4)

                ping_sonuc=alltrim(SUBSTR(ping_sonuc, AT("=",ping_sonuc)+1,5))            

                EXIT

            ENDIF

            IF ping_sayac>10000

                EXIT

            ENDIF

        ENDIF

    ENDDO

 

    IF USED("ping_dogrulama")

        USE IN "ping_dogrulama"

    ENDIF

    CLEAR DLLS MyShellExecute

    IF ping_sonuc="1"

        RETURN .T.

    ELSE

        RETURN .F.

    ENDIF

ENDFUNC