COMO UTILIZAR EL FTP

COMO UTILIZAR EL FTP

Postby prm_pedro » Wed Nov 22, 2006 3:46 pm

:o HOLA A TODOS...



ALGUIEN ME PODRIA AYUDAR PARA CONECTARME UN SERVIDOR POR FTP Y ENVIAR UN ARCHIVO. TOME EL EJEMPLO DE BIENE DE FTP PERO ME MARCA UN ERROR SIEMPRE... SERA POR QUE NO UTILIZO PROXY
O A QUE SE DEBE EL ERROR.



:oops: EPERO Y ME PUEDAN AYUDAR....
prm_pedro
 
Posts: 46
Joined: Tue Oct 10, 2006 6:16 pm

Postby luis.santeliz » Wed Nov 22, 2006 8:13 pm

si nos dices el error que te marca te podemos ayudar mejor ... :o
Luis Santeliz
Móvil SoftWare, C.A.
---------------------------------------------
MySQL DBA,
MySQL Server Performance Tunning,
DPxBase, FiveWin, Java,
Linux Redhat, Windows

Caracas Venezuela
luissanteliz@cantv.net
User avatar
luis.santeliz
 
Posts: 47
Joined: Mon May 29, 2006 9:04 pm

Postby prm_pedro » Thu Nov 23, 2006 2:34 pm

EN ESTE FRAGMENTO DE CODIGO, ES DONDE SE VA AL ERROR, ADEMAS NO SE COMO SABER CUANDO SE CONECTA AL SERVICIO DE FTP O QUE VALOR ME DA...

FUNCTION Enviar()
LOCAL nRet
LOCAL hInternet, hConnect
hInternet = INTERNETOPEN( "Anystring", INTERNET_OPEN_TYPE_DIRECT, 0, 0, 0 )
hConnect = INTERNETCONNECT(hInternet, rtrim(server), INTERNET_INVALID_PORT_NUMBER, rtrim(user), rtrim(pass), INTERNET_SERVICE_FTP, 0, 0 )
//hConnect = INTERNETCONNECT(0, rtrim(server), INTERNET_INVALID_PORT_NUMBER, rtrim(user), rtrim(pass), INTERNET_SERVICE_FTP, 0, 0 )
msginfo(hConnect )
IF FTPPUTFILE( hConnect, rtrim(loc_archivo), rtrim(rem_archivo),iif(lBinary,INTERNET_FLAG_TRANSFER_BINARY,INTERNET_FLAG_TRANSFER_ASCII), 0 )
nRet:=0
msgalert("enviado")
:oops: ELSE
nRet:=GetLAstError() //AQUIE ES EN DONDE ENTRA
msgalert("error")
ENDIF
INTERNETCLOSEHANDLE( hConnect )
INTERNETCLOSEHANDLE( hInternet )
RETURN nRet
prm_pedro
 
Posts: 46
Joined: Tue Oct 10, 2006 6:16 pm

Postby Elias Torres » Fri Nov 24, 2006 9:12 am

Has colocado la ip del servidor al que te vas a conectar, el nombre de usuario, la contraseña, el directorio local (de donde vas a coger el archivo para enviar) y el directorio remoto (donde vas a colocar el archivo en el servidor)???


Saludos...

Elías Torres.
Elias Torres
 
Posts: 233
Joined: Wed Aug 09, 2006 3:07 pm

Postby prm_pedro » Sat Nov 25, 2006 2:13 pm

SI EFECTIVAMENTE COLOQUE YA ESTOS DATOS PREVIAMENTE...


PERO NO SE QUE VALOR ME DA CUANDO SE CONECTA...


LOCAL oWnd
PUBLIC server:="128.50.1.179"+space(15)
PUBLIC user:="pedro"+space(15)
PUBLIC pass:="pedro"+space(15)
PUBLIC loc_archivo:= "c:\FWPPC\SAMPLES\BASES" +"\ticket.dbf"+space(15)
PUBLIC rem_archivo:="/sistemas/pedro/ticket.dbf"+space(40)



Y DESPUES ESTO



FUNCTION Enviar()
LOCAL nRet
LOCAL hInternet, hConnect
hInternet = INTERNETOPEN( "Anystring", INTERNET_OPEN_TYPE_DIRECT, 0, 0, 0 )
hConnect = INTERNETCONNECT(hInternet, rtrim(server), INTERNET_INVALID_PORT_NUMBER, rtrim(user), rtrim(pass), INTERNET_SERVICE_FTP, 0, 0 )
msginfo(hConnect )
IF FTPPUTFILE( hConnect, rtrim(loc_archivo), rtrim(rem_archivo),iif(lBinary,INTERNET_FLAG_TRANSFER_BINARY,INTERNET_FLAG_TRANSFER_ASCII), 0 )
nRet:=0
msgalert("enviado")
ELSE
nRet:=GetLAstError()
msgalert("error")
ENDIF
INTERNETCLOSEHANDLE( hConnect )
INTERNETCLOSEHANDLE( hInternet )
RETURN nRet
prm_pedro
 
Posts: 46
Joined: Tue Oct 10, 2006 6:16 pm

Postby luis.santeliz » Wed Nov 29, 2006 9:29 pm

hazlo mejor asi:

PUBLIC loc_archivo:= curdir()+"\ticket.dbf"+space(15)
PUBLIC rem_archivo:="ticket.dbf"+space(40)


acuerdate que tu sistema LOCAL es el pda y no puede tener el formato "c:\dir\" la raiz de un sistema de archivos PDA es "\" y todos los directorios cuelgan de alli. la barra "/" no existe para ninguno de los dos sistemas de archivo (Windows y pocket pc). ese podria ser la razon por la cual se cuelga el programa.
Luis Santeliz
Móvil SoftWare, C.A.
---------------------------------------------
MySQL DBA,
MySQL Server Performance Tunning,
DPxBase, FiveWin, Java,
Linux Redhat, Windows

Caracas Venezuela
luissanteliz@cantv.net
User avatar
luis.santeliz
 
Posts: 47
Joined: Mon May 29, 2006 9:04 pm


Return to FiveWin para Pocket PC

Who is online

Users browsing this forum: No registered users and 6 guests