Gracias Rui Pinto (Rapinto)
COBOL Foro
Foro dedicado a COBOL, a la Programación y a la Informática.
Retroceder   COBOL Foro > Programación e Informática > Otros lenguajes de programación > WinDev
WinDev Entorno RAD cada vez más popular.
Noticias y Avisos
Otros temas que te pueden interesar
Tema Autor Foro Respuestas Último post
[Aporte] Ocx, Dll y ejemplo envío Mail desde PWC Josber Cocina PowerCOBOL 0 21 de septiembre de 2017 11:21
[Componente] Subir archivo a un FTP Fito PowerCOBOL (ActiveX, v4 - v11) 5 17 de enero de 2017 12:32
[Sintaxis] Ejemplo MFSort en Linux Kuk MicroFocus COBOL 0 11 de enero de 2017 13:32
[Herramienta] Ejemplo Agenda Dasije WinDev 0 23 de agosto de 2016 09:17
[Herramienta] Ejemplo controles Windev Dasije WinDev 4 25 de julio de 2016 11:32
Respuesta
 
Herramientas

  #1
Antiguo 29 de agosto de 2016, 22:45
IDENTIFICATION DIVISION
Fito
Novato Senior
ENVIRONMENT DIVISION
Avatar de Fito
DATA DIVISION
Forero desde (Registrado)febrero 2015
Argentina
UbicaciónCórdoba, Villa María
Edad48 años
Última Actividad20.09.2019 23:45
PROCEDURE DIVISION
PostsPosts: 190
Ha dicho GraciasEnviado: 72
Ha recibido agradecimientosRecibido: 54
Mejores respuestasSoluiones: 9
ReputaciónReputación: 10
Fito is on a distinguished road Fito is on a distinguished road Fito is on a distinguished road Fito is on a distinguished road Fito is on a distinguished road Fito is on a distinguished road
Carpeta Ejemplo de envío FTP

Hola Amigos:

En foro de powercobol, hice un post para saber cómo transmitir un archivo a un ftp. Como el proceso lo tenia que hacer fuera de mi sistema, decidí hacerlo en windev.

Para eso hice un proyecto con un formulario para cargar el ftp, el usuario, etc., y en el código para enviar usé las funciones que ya trae windev para manejo de ftp.

Código WinDev:
  1. nConexion is int
  2.  
  3. nConexion = FTPConnect("Servidor FTP","Usuario","Contraseña")
  4. IF nConexion < 0 THEN
  5.     Trace("Error de Conexión")
  6. ELSE
  7.     IF FTPSend(nConexion,"archivo a enviar","carpeta donde recibir en el FTP") = True THEN
  8.         Trace("Transmisión Completa")
  9.     ELSE
  10.         Trace("Error en la Transmisión")
  11.     END
  12.     FTPDisconnect(nConexion)
  13. END
  14.  
  15. Close()

Saludos.

Fito...
Fito no ha iniciado sesión   Responder Con Cita
Respuesta


Usuarios activos actualmente viendo este tema: 1 (0 miembros y 1 visitantes)
 
Herramientas

Derechos de Publicación
No puedes publicar nuevos temas
No puedes publicar posts/responder
No puedes adjuntar archivos
No puedes editar tus posts

BB code is habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado



La franja horaria es GMT +1. Ahora son las 04:59.
Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2019, Jelsoft Enterprises Ltd.