FiveTech Software tech support forums

Code: Select all

#include "FiveTouch.ch"

function Main()

LOCAL oDlg
LOCAL oBtnCon, oBtnPar, OBtnEnd

LOCAL cFile, cDir := "",;
      xPath := HB_DIRBASE() + "SOLVING/"

cDir  := xPath + "DATI"
cFile := cDir + "/_PAR_FTP.DBF"

* --- Verifica se Non Esiste la Directory
*     viene creata 
IF !lIsDir( cDir ) 
   MakeDir( cDir )
ENDIF

* --- Crea File 
Crea_Dbf( cFile )

CLOSE ALL

DEFINE DIALOG oDlg TITLE "FTP SAMPLE" ;
       SIZE 300, 200  

@ 010, 50 BUTTON oBtnCon PROMPT "Connetti" OF oDlg ;
           ACTION Connetti( cFile, xPath )

@ 050, 50 BUTTON oBtnPar PROMPT "Parametri" OF oDlg ;
          ACTION Parametri( cFile )
 
@ 090, 50 BUTTON oBtnEnd PROMPT "Abbandona" OF oDlg ;
          ACTION oDlg:End()

ACTIVATE DIALOG oDlg CENTERED  

RETURN


// ----------------------- PARAMETRI
FUNCTION Parametri( cFile )
LOCAL oDlg
LOCAL oIp, cIp := SPACE(15) ,;
      oPorta, cPorta := SPACE(6),; 
      oUser, cUser := SPACE(25) ,;
      oPsw, cPsw := SPACE(10) ,;
      oDirD, cDirD := SPACE(30)

LOCAL oBtnEnd, oBtnOk

* --- Apre File
USE( cFile ) ALIAS Dati NEW

* --- Leggo Dati da Dbf
Dati->( DBGOTOP() )
cIp    := Dati->PAR_IP
cPorta := Dati->PAR_POR
cUser  := Dati->PAR_USR
cPsw   := Dati->PAR_PSW
cDirD  := Dati->PAR_DIRD

DEFINE DIALOG oDlg TITLE "Paramatri FTP" ;
       SIZE 300, 220

@ 180, 25 BUTTON oBtnEnd PROMPT "Abbandona" OF oDlg ;
          ACTION oDlg:End()

@ 180, 150 BUTTON oBtnOk PROMPT "Conferma" OF oDlg ;
           ACTION (Salva( cIp, cPorta, cUser, cPsw, cDirD ), oDlg:End())

@ 20, 020 SAY oSay PROMPT "Indirizzo IP" OF oDlg
@ 50, 020 SAY oSay PROMPT "Porta"        OF oDlg
@ 80, 020 SAY oSay PROMPT "User"         OF oDlg
@ 110,020 SAY oSay PROMPT "PassWord"     OF oDlg
@ 140,020 SAY oSay PROMPT "Dir DownLoad" OF oDlg

@ 15, 090 GET oIp VAR cIp OF oDlg
oIp:setFixedSize(100,25)
oIp:setInputMask("000.000.000.000") 

@ 45, 090 GET oPorta VAR cPorta OF oDlg
oPorta:setFixedSize(50,25)
oPorta:setInputMask("000000") 

@ 75, 090 GET oUser VAR cUser OF oDlg
oUser:setFixedSize(160,25)
oUser:SetMaxLength(25)

@ 105, 090 GET oPsw VAR cPsw OF oDlg
oPsw:setFixedSize(100,25)
oPsw:SetMaxLength(10)

@ 135, 090 GET oDirD VAR cDirD OF oDlg
oDirD:setFixedSize(170,25)
oDirD:SetMaxLength(30)

oIp:setFocus()

ACTIVATE DIALOG oDlg CENTERED

Dati->( DBCLOSEAREA() )

RETURN NIL

// ------------------------------- SALVA
FUNCTION Salva( cIp,cPorta,cUser,cPsw,cDirD )
Dati->( DBGOTOP() )
Dati->PAR_IP   := cIp
Dati->PAR_POR  := cPorta
Dati->PAR_USR  := cUser
Dati->PAR_PSW  := cPsw
Dati->PAR_DIRD := cDirD
Dati->( DBCOMMIT() )
RETURN NIL

// ----------------------- CREA_DBF
FUNCTION Crea_Dbf( cFile )
LOCAL aDbf := {}
IF !FILE( cFile )
   AADD(aDbf,{"PAR_IP",  "C",15,0})
   AADD(aDbf,{"PAR_POR", "C",6,0})
   AADD(aDbf,{"PAR_USR", "C",25,0})
   AADD(aDbf,{"PAR_PSW", "C",10,0})
   AADD(aDbf,{"PAR_DIRD","C",30,0})
   DBCREATE(cFile,aDbf)

   * --- Crea 1 Record
   USE( cFile ) ALIAS Dati NEW
   Dati->( dbAppend() ) 
   Dati->( DBCLOSEAREA() )
ENDIF
RETURN NIL

// ----------------------- CONNETTI
FUNCTION Connetti( cFile, xPath )
LOCAL cIp, cUser, cPsw, cPorta, cDirD
LOCAL oUrl, cUrl, oFtp
LOCAL aFiles := {}, i, c_Tx := ""

* --- Apre File
USE( cFile ) ALIAS Dati NEW

* --- Leggo Dati da Dbf
Dati->( DBGOTOP() )
cIp    := Dati->PAR_IP
cPorta := ALLTRIM( Dati->PAR_POR )
cUser  := ALLTRIM( Dati->PAR_USR )
cPsw   := ALLTRIM( Dati->PAR_PSW )
cDirD  := ALLTRIM( Dati->PAR_DIRD )

Dati->( DBCLOSEAREA() )

* --- Imposta Url
cUrl := "ftp://" + cUser + ":" + cPsw + "@" + cIp 

IF !EMPTY( cPorta )
   cUrl += ":" + cPorta
ENDIF

** MsgInfo(cUrl )

oUrl := TUrl():New( cUrl )

oFtp := TIpClientFtp():New( oUrl, .F. )
oFtp:nConnTimeout := 2000
oFtp:bUsePasv := .T.

IF oFTP:Open( cUrl )
   MsgInfo( "Collegato con FTP", cIp )
  
   * --- Test DownLoad 
   * --- Set DownLoad Path
   *IF !EMPTY( cDirD )
   *   c_Tx := cDirD + "\"
   *ENDIF 
   *MsgInfo( oFTP:DownloadFile( c_Tx + "BUFF2.OBJ", "BUFF.OBJ") )
   
   * --- Test UpLoad 
   *MsgInfo( oFTP:UploadFile( "LIST00.PRG", "LIST1.PRG") )

   * --- Test Show Files 
   aFiles := oFTP:ListFiles( "*.*")
 
   *FOR i= 1 TO LEN( aFiles )
   *    MsgInfo(aFiles[i,1])    
   *    MsgInfo(aFiles[i,2])    
   *    MsgInfo(aFiles[i,3])    
   *    MsgInfo(aFiles[i,4])
   *NEXT

   Elenco( aFiles, xPath )
  
   oFTP:Close()

ELSE
   MsgInfo( "Collegamento Non Possibile con FTP", cIp )
ENDIF

RETURN NIL

// ------------------------ ELENCO
FUNCTION Elenco( aFiles, xPath )
local oDlg := QDialog()
local oBrw := QTableView( oDlg )
local oModel := QStandardItemModel( 3, 4, oDlg )
LOCAL nNumRecord := 0, x, y, cApp, oIcon
LOCAL oBtnEnd, oBtnTp, oBtnBt

nNumRecord := LEN( aFiles )

* --- Dichiaro Button
@ 260, 25 BUTTON oBtnEnd PROMPT "Abbandona" OF oDlg ;
          ACTION oDlg:End()

@ 260, 150 BUTTON oBtnTp PROMPT "Inizio" OF oDlg ;
          ACTION Inizio( oBrw )

@ 260, 250 BUTTON oBtnBt PROMPT "Fine" OF oDlg ;
          ACTION Fine( oBrw )

* --- Imposto Icone nei Pulsanti
oBtnTp:SetIcon( QIcon(xPath + "go-top.png") ) 
oBtnBt:SetIcon( QIcon(xPath + "go-bottom.png") ) 

* --- Imposto Intestazione
oModel:SetHorizontalHeaderItem( 0, QStandardItem( "Nome" ) )
oModel:SetHorizontalHeaderItem( 1, QStandardItem( "LEN" ) )
oModel:SetHorizontalHeaderItem( 2, QStandardItem( "DATA" ) )
oModel:SetHorizontalHeaderItem( 3, QStandardItem( "ORA" ) )

* --- Carico Dati
FOR x = 1 to nNumRecord
    FOR y = 1 TO 4

        cApp := aFiles[x,y] 

        DO CASE  
           CASE VALTYPE( cApp ) == "N"
                cApp := STR( cApp )
           CASE VALTYPE( cApp ) == "D"
                cApp := DTOC( cApp )
        ENDCASE
 
        oModel:SetItem( x-1, y-1, QStandardItem( cApp ) )
    NEXT 
NEXT

* --- Imposto Form Principale
oDlg:SetWindowTitle( "Elenco" )
oDlg:Resize( 415, 300 ) 
oDlg:Center()

* --- Imposto Form Browse
oBrw:SetModel( oModel )
oBrw:Resize( 410, 240 ) 

* --- Imposto Larghezza Colonne della Browse
oBrw:setColumnWidth(0, 200)
oBrw:setColumnWidth(1, 60)
oBrw:setColumnWidth(2, 55)
oBrw:setColumnWidth(3, 40)

* --- Esecuzione
oBrw:show()
oDlg:Exec()

RETURN NIL

* --- Posizione Top del Browse
FUNCTION Inizio( oBrw )
oBrw:scrollToTop()
oBrw:setFocus()
RETURN NIL

* --- Posizione Bottom del Browse
FUNCTION Fine( oBrw )
oBrw:scrollToBottom()
oBrw:setFocus()
RETURN NIL