internetten yeni exe kontrolu

Function check_tcmb

&& baglanti testi ornegi

    Local lcTCMB

    lcTCMB=[http://www.tcmb.gov.tr/kurlar/today.xml]

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

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

        Return .T.

    Else

        Return .F.

    Endif

Endfunc

&& cmd_download kodu 

 

If Empty(This.Parent.cbo_version.Value)

    Return

Endif

 

If Not Directory(Lower('Version'))

    Mkdir Sys(5)+Curdir()+'Version'

Endif

 

Local LcCurrentdir,LcUpdateDir,LcLocalFile,LcFtpFile,lcFtAcc,lcFtpUser,;

    lcFtp,FtpPass,lcFtpRemoteDir,lcFtpLocalDir,lcFtpFilename,lcFtpFVersion

 

LcUpdateDir=Sys(5)+Curdir()+'Version'

 

External Array arrFtp

If _vfp.StartMode # 0

    Select * From Addbs(m.gcData)+'ftp' Where ftp.Sno = This.Parent.nsno Into Array arrFtp

Else

    Select * From 'data\ftp' Where ftp.Sno = This.Parent.nsno Into Array arrFtp

Endif

 

lcFtpAcc = Iif(_Tally=0,'',arrFtp[1,5])

lcFtpUser = Iif(_Tally=0,'',arrFtp[1,6])

lcFtpPass = Iif(_Tally=0,'',arrFtp[1,7])

lcFtpRemoteDir = Iif(_Tally=0,'',Alltrim(arrFtp[1,8]))

lcFtpLocalDir = Iif(_Tally=0,'',Alltrim(arrFtp[1,9]))

lcFtpFilename = Iif(_Tally=0,'',Alltrim(arrFtp[1,11]))

lcFtpFVersion = Iif(_Tally=0,'',arrFtp[1,12])

 

If arrFtp[1,1]=2 &&

    Local lcXMLFile

    lcXMLFile=Fullpath('version.xml')

    *    If File(m.lcXMLFile)

    *        Erase (m.lcXMLFile)

    *    Endif

 

    Do Prog\version_download With m.lcFtpRemoteDir,m.lcFtpLocalDir,'version.xml'

 

    Create Cursor _crsFTP_( ;

        selected L,Session C(30),HostName C(30),username C(15),Password C(15),;

        remotedir C(50),localdir C(50),filename C(20),fversion C(12))

 

    Xmltocursor(m.lcXMLFile,'_crsFtp_',512+8192)

 

    Local cFullVer,cRightVer

    Dimension aFiles[1]

    Agetfileversion(aFiles,"depomatik.EXE")

    cFullVer=aFiles[4]

    cRightVer=Right(aFiles[4],4)

 

    If Right(_crsFTP_.fversion,4) <= m.cRightVer

        Messagebox('Bu Dosyanın Güncel Sürümü Zaten Var Güncelleme Yapmanıza Gerek Yok...',16,_Screen.Caption)

        Return

    Else

        If Messagebox('Yeni Version Bulundu...Indirmek İstiyormusun ?',32,'Yeni Version')=6 &&yes

            Do Prog\version_download With m.lcFtpRemoteDir,m.lcFtpLocalDir,m.lcFtpFilename

        Endif

    Endif

Endif

 

Do Prog\version_download With m.lcFtpRemoteDir,m.lcFtpLocalDir,m.lcFtpFilename

Lparameters tcFtpRemoteDir,tcFtpLocalDir,tcFtpFilename

 

*!*    WAIT WINDOW tcFtpRemoteDir

*!*    WAIT WINDOW tcFtpFilename

*!*    WAIT WINDOW tcFtpLocalDir

 

*SET LIBRARY TO (LOCFILE("vfpconnection.fll","FLL"))

Set Library To "fll\vfpconnection.fll"

 

*HTTPGet(m.lcFtpRemoteDir + m.lcFtpFilename, m.lcFtpLocalDir +'\'+m.lcFtpFilename, Thisform.myprogress(nConnectTotalBytes,nConnectBytesSoFar)  , Thisform.mytrace(nTraceDataType,cTraceData) )

Local lcRemoteFile,lcLocalFile,lcMessageOK

lcRemoteFile = m.tcFtpRemoteDir + m.tcFtpFilename

lcLocalFile = Sys(5)+Curdir() + Addbs(m.tcFtpLocalDir) + m.tcFtpFilename

 

lcMessageOK = 'Dosya İndirme İşlemi Tamamlandı....'  + Chr(13) + Chr(13) +;

    'İndirilen Dosya : ' + Upper(m.tcFtpFilename) + Chr(13) + ;

    'İndirilen Klasör : ' + Sys(5)+Curdir() + Upper(m.tcFtpLocalDir)

 

*?HTTPGet("http://www.somedomain.com/Source.htm", "C:\Destination.htm", "MyProgress()", "MyTrace()")

 

If HTTPGet(m.lcRemoteFile,m.lcLocalFile , "MyProgress()", "MyTrace()")

    Messagebox(m.lcMessageOK,64,_Screen.Caption)

Endif

 

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

Function myprogress() && Callback from the FLL - can be used to track operation progress

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

    *!* You can create your own function, procedure or method to handle this and name it whatever you want.

    *!* The nConnectTotalBytes and nConnectBytesSoFar are private variables created on-the-fly by the FLL

    *WAIT WINDOW NOWAIT "İndiriliyor......"

    Wait Window Nowait "Downloading...." + Tran(m.nConnectTotalBytes,'999,999,999')

    *frm_download.txt_total.value = m.nConnectTotalBytes

    Wait Window Nowait "Downloading...." + Transform(m.nConnectBytesSoFar,'999,999,999')

    *frm_download.txt_sofar.value = m.nConnectBytesSoFar

    Keyboard '{TAB}' &&fake to clear ww

Endfunc

 

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

Function mytrace() && Callback from the FLL - used to provide a detailed trace of the operation

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

    *!* You can create your own function, procedure or method to handle this and name it whatever you want.

    *!* The nTraceDataType and cTraceData are private variables created on-the-fly by the FLL

    #Define TYPE_TEXT 0

    #Define TYPE_HEADER_IN 1

    #Define TYPE_HEADER_OUT 2

    #Define TYPE_DATA_IN 3

    #Define TYPE_DATA_OUT 4

    #Define TYPE_SSL_DATA_IN 5

    #Define TYPE_SSL_DATA_OUT 6

    #Define TYPE_END 7

 

    Wait Window Nowa  Icase(m.nTraceDataType = TYPE_TEXT, "STATUS:", ;

        m.nTraceDataType = TYPE_HEADER_IN, "<RECV HEADER: ", ;

        m.nTraceDataType = TYPE_HEADER_OUT, ">SEND HEADER: ", ;

        m.nTraceDataType = TYPE_DATA_IN, "<RECV DATA: ", ;

        m.nTraceDataType = TYPE_DATA_OUT, ">SEND DATA: ", ;

        m.nTraceDataType = TYPE_SSL_DATA_IN, "<RECV SSL DATA: ", ;

        m.nTraceDataType = TYPE_SSL_DATA_OUT, ">SEND SSL DATA: ", ;

        m.nTraceDataType = TYPE_END, "END: ", "UNKNOWN: ")

    && m.cTraceData

Endfunc