Hi,

We are developing APPEON mobile.

we try to code below code.

I want to know how can login server.

ll_retVal = lappeonfileservice.of_logonfileserver( "logisbill.cad.co.kr", 21, "username=taxuser11;password=xxxx" ) 

Now  appeonfileservice argment

ll_retVal  is  -1 :  retrund

 -1 - Failed to connect to the file server.

How can modify ?

Now our server status :

1. 21 port any open

2. 80 port any open

3. IIS server runing

As soon as possible want to solve this problums.

Jungi

//================= Function Strat ===================
String ls_servername, ls_ipaddress, ls_userid, ls_password, ls_versionpath
Long ll_open, ll_connect

// Get FTP server info
Select n_server_name, t_ipaddress, t_userid, t_password, t_version_path
Into :ls_servername, :ls_ipaddress, :ls_userid, :ls_password, :ls_versionpath
From pmtb_x_version_server001
WHERE N_SERVER_NAME = 'ecs';

ls_servername = Trim(ls_servername)
ls_ipaddress = Trim(ls_ipaddress)
ls_userid = Trim(ls_userid)
ls_password = Trim(ls_password)
ls_versionpath = Trim(ls_versionpath)

IF ISNULL(ls_ipaddress) OR ls_ipaddress = '' THEN
Return True
END IF

// File uplaod
String ls_localfile, ls_remotefile
Boolean lb_putfile

// Server file Transfer setting
ls_localfile = arg_source
ls_remotefile = ls_versionpath + "CHECK\" + arg_target

//For example:
//
appeonfileservice lappeonfileservice
Long ll_retVal,ll_port
String ls_url,ls_ip,ls_username //ls_password
string ls_import_file_name, ls_filename
int li_last_pos
//

ls_import_file_name = ls_localfile

if ls_import_file_name = '' then
Messagebox("file service", "Please select a file to upload.")
return False
end if

// upload file to server -start
lappeonfileservice = CREATE appeonfileservice

IF ( IsValid( lappeonfileservice ) ) THEN

ll_retVal = lappeonfileservice.of_logonfileserver( "logisbill.cad.co.kr", 21, "username=taxuser11;password=xxxx" ) //172.25.28.39 - mykul420

IF ( ll_retVal <> 0 ) THEN
MessageBox( 'File server error', 'Could not connect to file server !!!~r~nOperation aborted !', StopSign!, OK! )
ELSE

lappeonfileservice.of_appeonupload( ls_import_file_name, ls_remotefile, false, ll_retVal)

IF ( ll_retVal <> 0 ) THEN
MessageBox( 'File server error', 'Could not upload the attached document to file server !!!~r~nOperation Aborted !', StopSign!, OK! )
ELSE
ll_retVal = lappeonfileservice.of_logofffileserver()
IF ( ll_retVal <> 0 ) THEN
MessageBox( 'File server error', 'There was an error while disconnecting from the file server !!!~r~nOperation Aborted !', StopSign!, OK! )
END IF
END IF
END IF
END IF

DESTROY lappeonfileservice

// retrun normal
Return True

//================= Function End ===================