-
Shin Jungi
- PowerServer Mobile (Obsolete)
- Wednesday, 25 March 2020 08:50 AM UTC
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 ===================
Find Questions by Tag
Helpful?
If a reply or comment is helpful for you, please don’t hesitate to click the Helpful button. This action is further confirmation of their invaluable contribution to the Appeon Community.