Páginas

segunda-feira, 12 de setembro de 2016

Curso WinDev - Funções Windows/Janela - 005 - Windows - ThreadExecute










Video Youtube - Se Gostou do Video Clique Aqui para Dar Joinha



Nessa aula vou mostrar como fazer uma thread com OpenSister

In this lecture I will show how to make a thread with OpenSister

Dans cette conférence, je vais vous montrer comment faire un fil avec OuvreSoeur

http://doc.windev.com/en-US/?3077024&name=ThreadExecute

Blog - WinDev - Funções Windows/Janela - 001/... - OpenSister
Blog - WinDev - Funções Windows/Janela - 002/... - CurrentTitle
Blog - WinDev - Funções Windows/Janela - 003/... - The Splitter Control
Blog - WinDev - Funções Windows/Janela - 004/... - Windows - PopuMenu
Blog - WinDev - Funções Windows/Janela - 005/... - Windows - ThreadExecute
Blog - WinDev - Funções Windows/Janela - 006/... - WinStatus



//Inicio Backup

OpenSister(WIN_backup_mostra_imagen)
ThreadExecute("copia_dados",threadNormal,"copia_dados")

//procedure copia

PROCEDURE copia_dados()

Backup_matos is hBackupDescription
Backup_matos..Enabled=True // novo
Backup_matos..Description=EDT_backup_nome
Backup_matos..WithIndex=True // backup indice levar
Backup_matos..ProgressBar="PROGBAR_backup"
Backup_matos..Destination=EDT_backup_diretorio_destino
Backup_matos..Source=EDT_nome_base
Backup_matos..Compression=zipFormatZIP
Backup_matos..LimitNumberBackups=10
EDT_backup_informacao="Nome Backup : "+EDT_backup_nome
EDT_backup_informacao+=CR+"Diretorio Destino  : "+EDT_backup_diretorio_destino
EDT_backup_informacao+=CR+"Nome Base  : "+EDT_nome_base
HCloseConnection(Matos_hyperfil_server)
n_id is int=HBackup(Matos_hyperfil_server,Backup_matos)
HChangeConnection("*",Matos_hyperfil_server)
EDT_backup_informacao+=CR+HInfoBackup(Matos_hyperfil_server,n_id)
INIWrite("Backup","backup_nome",EDT_backup_nome,fCurrentDir()+"\erpmatos.ini")
INIWrite("Backup","backup_diretorio_destino",EDT_backup_diretorio_destino,fCurrentDir()+"\erpmatos.ini")
Close(WIN_backup_mostra_imagen)
InfoWithTimeout(600,"Finalizado Backup")
Close(WIN_Backup_backup_Dados)































Nenhum comentário:

Postar um comentário