uso de FTp desde POWER BUILDER
Publicado por ivan (31 intervenciones) el 23/06/2006 00:47:53
hola a todos buscando como poder enviar archivos a FTP, desde el power builder, encontre ese codigo que está en el portad de power builder
@rem This file will attempt to upload 1 files to the ftp server
@c:
@cd emp
@echo open ftpserveripaddress >> t
@echo userid >> t
@echo password >> t
@echo binary >> t
@echo cd uploaddirectoryname >> t
@echo mput filenametobeuploaded >> t
@echo bye >> t
@ftp -i -s:t
@del t
Luego declara en las PB external function la siguiente función
FUNCTION long ShellExecute (uint ihwnd,string lpszOp,string lpszFile,string lpszParams, string lpszDir,int wShowCmd ) LIBRARY "Shell32.dll" ALIAS FOR "ShellExecuteA"
Luego en la aplicación para poder subir el archivo se coloca este código
string ls_parm, ls_dir
uint ll_ret
ls_parm = ""
ls_dir = "c:path"
ll_ret = ShellExecute( handle ( this ) , "open" , "upload.bat" , ls_parm , ls_dir , 0 )
IF ll_ret < 32 THEN
MessageBox( "cannot load" , ll_ret )
END IF
el codigo me funciona muy bien, puedo subir mis archivos, ahora lo que me gustaria saber es como poder bajar esos archivos tambien desde Power builder, si alguien sabe como hacerlo se los agradeceré mucho
@rem This file will attempt to upload 1 files to the ftp server
@c:
@cd emp
@echo open ftpserveripaddress >> t
@echo userid >> t
@echo password >> t
@echo binary >> t
@echo cd uploaddirectoryname >> t
@echo mput filenametobeuploaded >> t
@echo bye >> t
@ftp -i -s:t
@del t
Luego declara en las PB external function la siguiente función
FUNCTION long ShellExecute (uint ihwnd,string lpszOp,string lpszFile,string lpszParams, string lpszDir,int wShowCmd ) LIBRARY "Shell32.dll" ALIAS FOR "ShellExecuteA"
Luego en la aplicación para poder subir el archivo se coloca este código
string ls_parm, ls_dir
uint ll_ret
ls_parm = ""
ls_dir = "c:path"
ll_ret = ShellExecute( handle ( this ) , "open" , "upload.bat" , ls_parm , ls_dir , 0 )
IF ll_ret < 32 THEN
MessageBox( "cannot load" , ll_ret )
END IF
el codigo me funciona muy bien, puedo subir mis archivos, ahora lo que me gustaria saber es como poder bajar esos archivos tambien desde Power builder, si alguien sabe como hacerlo se los agradeceré mucho
Valora esta pregunta
0