Karen mira esto espero que te oriente
VFP Connection FLL
Internamente vfpconnection.fll está utilizando la biblioteca LibCurl (aquí esta su licencia), por lo que hay toneladas de otras características que puedo, y podría, agregar como esto avance. Por ahora proveeré a los desarrolladores VFP con lo que creo que es mas fácil y sencillo, funciones de carga y descarga de archivos en Visual FoxPro (FTPGet, HTTPGet, FileGet, FTPPut, HTTPPut, FilePut, FTPToStr, y HTTPToStr). También se ofrece la posibilidad de descargar archivos de FTP y HTTP en la memoria (similar a la función FileToStr) que evita la escritura y lectura de disco, y puede resultar muy conveniente cuando un desarrollador sólo quiere leer algo de un servidor. Y ofrece una vía sumamente fácil de implementar un indicador de progreso a través de una llamada a una función o método.
Lo que viene ...
He creado un ejemplo bien bonito de lo útil de tener una FLL como ésta. En mi próxima entrada de mi blog, presentaré una aplicación VFP que he creado llamada AppUpdate, con lo que usted será capaz de usar Cargas/Descargas para sus aplicaciones Visual FoxPro como muy avanzado (aunque sea simple). Un agradecimiento especial a un cliente mío por permitirme salir antes de tiempo y compartir con mis lectores. ¡Pase lo que pase, hasta próxima … Visual FoxPro Rocks!
Código de ejemplo de VFPConnection:
SET LIBRARY TO (LOCFILE("vfpconnection.fll","FLL"))
? FTPGet("FTP://myusername:
[email protected]/mydir/myfile.zip", "C:\myfile.zip", "MyCommand()")
? HTTPGet("http://www.mysite.com/mypage.htm", "C:\mypage.htm", "MyCommand()")
? FILEGet("File://C:\MyFile.txt", "C:\MyFileCopy.txt", "MyCommand()")
? FTPPut("C:\myfile.zip", "FTP://myusername:
[email protected]/mydir/myfile.zip", "MyCommand()")
? HTTPPut("C:\mypage.htm", "http://www.mysite.com/mypage.htm", "MyCommand()")
? FilePut("C:\myfile.zip", "File://C:\myfile.zip", "MyCommand()")
m.lcString1 = FTPToStr("FTP://myusername:
[email protected]/mydir/myfile.txt", "MyCommand()")
m.lcString2 = HTTPToStr("http://www.mysite.com/mypage.htm", "MyCommand()")
SET LIBRARY TO
FUNCTION MyCommand()
? nConnectTotalBytes
? nConnectBytesSoFar
ENDFUNC
