#--------------------#
FUNCTION TesteLFTP()
#--------------------#
DEFINE l_ind SMALLINT,
l_count SMALLINT,
l_status SMALLINT
DEFINE l_file_name CHAR(050)
DEFINE l_ftp_reference VARCHAR(10)
# Cria o componente para conexão FTP.
LET l_ftp_reference = _ADVPL_create_component(NULL,"LFTP")
# Conecta o componente ao servidor FTP. LLABEL",l_layout_reference)
LET l_status =CALL _ADVPL_getset_property(l_ftplabel_reference,"FTP_CONNECT","est1",21,"lg991933","********")
IF NOT l_status THEN TEXT","CNPJ:")
LET l_component_reference =
_ADVPL_create_component(NULL,"LTEXTFIELD",l_layout_reference)
CALL log0030_mensagem("Não foi possível conectar-se ao servidor FTP.","excl")_ADVPL_set_property(l_component_reference,"LENGTH",19)
CALL _ADVPL_set_property(l_component_reference,"PICTURE","##.###.###/####-##")
RETURN
END IF
CALL _ADVPL_set_property(l_component_reference,"TOOLTIP","CNPJ da empresa informada.")
# Carrega a lista dos arquivos de um diretório FTP.
LET l_label_reference = _ADVPL_create_component(NULL,"LLABEL",l_layout_reference)
CALL _ADVPL_set_property(l_ftplabel_reference,"FTP_LOAD_FILE_LISTTEXT","/home/lg991933/","*.*",TRUE)
# Recupera a quantidade de arquivos encontrados no diretório.
LET l_count = _ADVPL_getItem:")
LET l_panel_reference = _ADVPL_create_component(NULL,"LPANEL",l_layout_reference)
CALL _ADVPL_set_property(l_ftppanel_reference,"ALIGN","FTP_GET_FILE_LIST_COUNTCENTER")
IF LET l_count = 0 THEN
_layout_field_reference = _ADVPL_create_component(NULL,"LLAYOUTMANAGER",l_panel_reference)
CALL log0030_mensagem("Nenhum arquivo encontrado no diretório '/home/lg991933/' do servidor FTP.","excl")_ADVPL_set_property(l_layout_field_reference,"MARGIN",FALSE)
CALL _ADVPL_set_property(l_layout_field_reference,"COLUMNS_COUNT",3)
LET l_component_reference RETURN = _ADVPL_create_component(NULL,"LTEXTFIELD",l_layout_field_reference)
END IF CALL _ADVPL_set_property(l_component_reference,"LENGTH",15)
FOR l_ind = 1 TO l_count
# Exibe no console todos os arquivos encontrados no diretório.
LET l_file_name = _ADVPL_get_property(l_ftp_reference,"FTP_GET_FILE_LIST_INDEX",l_ind) CALL _ADVPL_set_property(l_component_reference,"PICTURE","@!")
CALL _ADVPL_set_property(l_component_reference,"TOOLTIP","Código do item.")
LET l_button_reference = _ADVPL_create_component(NULL,"LIMAGEBUTTON",l_layout_field_reference)
CALL _ADVPL_set_property(l_button_reference,"IMAGE","BTPESQ")
CALL _ADVPL_set_property(l_button_reference,"SIZE",24,20)
LET l_component_reference CALL conout(l_file_name CLIPPED) = _ADVPL_create_component(NULL,"LTEXTFIELD",l_layout_field_reference)
END FOR CALL _ADVPL_set_property(l_component_reference,"LENGTH",36)
# Efetua o upload de um arquivo da máquina local para o servidor FTP.
CALL _ADVPL_set_property(l_component_reference,"PICTURE","@!")
CALL _ADVPL_set_property(l_component_reference,"TOOLTIP","Descrição do item informada.")
LET l_panel_statusreference = _ADVPL_getcreate_property(l_ftp_reference,"FTP_UPLOAD_FILE","C:\\ftp\\ftp_upload.txt","\\home\\lg991933\\")component(NULL,"LPANEL",l_dialog_reference)
# Efetua o download de um arquivo do servidor FTP para a maquina local.
LET l_status = _ADVPL_getCALL _ADVPL_set_property(l_panel_reference,"ALIGN","CENTER")
LET l_layout_reference = _ADVPL_create_component(NULL,"LLAYOUTMANAGER",l_panel_reference)
CALL _ADVPL_set_property(l_ftplayout_reference,"FTPCOLUMNS_DOWNLOAD_FILE","\\home\\lg991933\\ftp_download.txt","C:\\ftp\\")
COUNT",1)
# Renomeia um arquivo do servidor FTP. CALL _ADVPL_set_property(l_layout_reference,"EXPANSIBLE",TRUE)
LET l_table_reference = _ADVPL_create_component(NULL,"LTABLEEX",l_layout_reference)
LET l_status =CALL _ADVPL_getset_property(l_ftptable_reference,"FTP_RENAME_FILEALIGN","\\home\\lg991933\\ftp_download.txt","teste.txtCENTER")
LET l_column_reference
= _ADVPL_create_component(NULL,"LTABLECOLUMNEX",l_table_reference)
# Exclui um arquivo do servidor FTP. CALL _ADVPL_set_property(l_column_reference,"HEADER","Coluna")
CALL _ADVPL_set_property(l_column_reference,"VARIABLE","coluna")
LET l_status =CALL _ADVPL_getset_property(l_ftptable_reference,"FTP_REMOVE_FILE","\\home\\lg991933\\teste.txt")
# Disconecta do servidor FTP.
SET_ROWS",ma_tela,100)
CALL _ADVPL_set_property(l_ftpdialog_reference,"FTP_DISCONNECTACTIVATE",TRUE)
END FUNCTION |