¿Qué tal los archivos de lenguaje simple?
Componentes: 2 cuadros de edición, 3 botones de acceso, 3 etiquetas, 1 barra de progreso y 1 reloj.
Código:
. ¿Versión? 2
. ¿Biblioteca de soporte? descargarlib
. ¿Biblioteca de soporte? iext2
. ¿Biblioteca de soporte? Concha
. ¿Asamblea? Componente de ventana 1
. ¿Variables de montaje? ¿Descargar parámetros? Parámetros de la tarea
. ¿Variables de montaje? ¿Descargar tarea? Descargar objeto
. ¿Variables de montaje? ¿Estado de descarga? Entero
. ¿Variables de montaje? ¿Descargar información? Conjunto de bytes
. ¿Variables de montaje? ¿Tamaño del archivo? Tipo decimal de doble precisión
. ¿Subrutina? _ _Ventana de inicio_ creada
. ¿Subrutina? _Charm_Receive_Click
. ¿Variables locales? ¿Descargar dirección? Tipo de texto
¿Y si esto es cierto? (Cuadro de edición 1. ¿Contenido?=?"")
¿Cuadro de información? ("No se ingresó ninguna dirección de descarga",? 0,?,?)
¿Volver? ()
Si realmente se acabó.
¿Y si es verdad? (Cuadro de edición 2. ¿Contenido?=?"")
¿Cuadro de información? ("No se ha seleccionado ninguna ruta para guardar",?0,?,?)
¿Regresión? ()
Si realmente se acabó.
¿Descargar dirección? =? ¿Eliminar espacios iniciales y finales? (Cuadro de edición 1. Contenido)
Descargar parámetros. ¿tipo? =?#Constante de transmisión. [Cálculo] Descargar
Descargar parámetros. ¿Dirección del archivo? =?Dirección de descarga
Descargar parámetros. ¿Se agotó el tiempo de espera del hilo? =?1000
Descargar parámetros. ¿Número predeterminado de subprocesos? =?三
Descargar parámetros. ¿Ruta del archivo local? =? Cuadro de edición 2. Contenido
Descargar parámetros. ¿Se agotó el tiempo de conexión? =?5000
Descargar parámetros. ¿Enviar tiempo de espera? =?5001
Descargar parámetros. ¿Recibir tiempo de espera? =?10000
Descargar parámetros. ¿Recibir tamaño? =?10240
Descargar parámetros. ¿Función de devolución de llamada interactiva? =? amp función de devolución de llamada interactiva
Charms_receive. ¿prohibir? =?Real
Descargar tarea. ¿Agregar nueva tarea? (Descargar parámetros)
. ¿Subrutina? _Charms_Browse_Click
Cuadro de edición 2. ¿contenido? =?¿Buscar carpeta? ("Seleccionar método de guardado local",?)
. ¿Subrutina? Función de devolución de llamada interactiva, número entero
. ¿parámetro? ¿Tipo de mensaje? Entero
. ¿parámetro? ¿Información del hilo? Entero
. ¿parámetro? ¿Parámetro 3? Entero
. ¿parámetro? ¿Parámetro 4? Entero
. ¿parámetro? ¿Información del objeto? Entero
. ¿El juicio ha comenzado? (¿Tipo de mensaje?=?#Constante de transferencia. Descarga y carga iniciadas)
¿Tamaño de archivo? =?Parámetro 3
¿Juez? (¿Tipo de mensaje?=?#Constante de transferencia. Descarga y carga completadas)
¿Cuadro de mensaje? ("Descarga completada",? 0,?)
¿Fin? ()
¿Juez? (¿Tipo de mensaje?=?#Constante de transferencia. Se inicia un nuevo hilo de descarga)
¿Juez? (¿Tipo de mensaje?=?#Transferir constante. El hilo de descarga continúa descargándose)
¿Juez? (¿Tipo de mensaje?=?#Constante de transferencia. El hilo finaliza normalmente)
¿Juez? (¿Tipo de mensaje?=?#Constante de transferencia. El hilo finalizó anormalmente)
¿Juez? (¿Tipo de mensaje?=?#Constante de transferencia. Existe un archivo con el mismo nombre)
¿Juez? (¿Tipo de mensaje?=?#Transmisión constante.Recibir datos)
¿Juez? (¿Tipo de mensaje?=?#Constante de transferencia. Rango de datos de descarga)
.
Predeterminado
Fin de la prueba
¿Volver? (0)
. ¿Subrutina? _clock_periodic event
¿Y si fuera cierto? (Hyperbutton_Receive.Forbidden?=?True)
. ¿si? (¿Tamaño de archivo?=?0)
Etiqueta. ¿título? =?"Completado: 0 "
En caso contrario.
Etiqueta. ¿título? =?"Completo:"? ?Convertir valores numéricos en texto formateado? (Descargar tarea. ¿Obtener la duración de la descarga? ()?÷?Tamaño del archivo?×?100,?0,?Falso)? ?""
Si ha terminado
Barra de progreso. ¿Ubicación? =?¿Redondeo? (Descargar tarea. ¿Tomar la duración de la descarga? ()?÷?Tamaño del archivo?×?100,?0)
Si realmente ha terminado.
. ¿Subrutina? _Charm_Cancel_Click
para descargar parámetros. ¿tipo? =?#Constante de transferencia. Descarga y carga completadas
Charms_Receive. ¿prohibir? =?Incorrecta
Barra de progreso. ¿Ubicación? =?0
etiqueta. ¿título? =?"Cancelar usuario"