Biel EA6DD wrote:Hello Richard
The cellcore.lib is included in the VCE, you only need to add to your compilation script.
About the connection program, you can use the code posted by Pawel its run perfect. Remember to include "initguid.h" and "connmgr.h" headers.
Hi Enrico,
When trying to send archives the system is stopping! Already I verified that it connects, the archive is servant, but the size is always in ZERO, or either, no byte is sent!
You can help me?
No, sorry. As far as I know it should work fine.
EMG
vilian wrote:Hi Enrico,
When trying to send archives the system is stopping! Already I verified that it connects, the archive is servant, but the size is always in ZERO, or either, no byte is sent!
You can help me?
Hi Richard,
FUNCTION EnvArqFtp(cArq)
LOCAL hInternet, hConnect
hInternet = INTERNETOPEN( "Anystring", INTERNET_OPEN_TYPE_DIRECT, 0, 0, 0 )
hConnect = INTERNETCONNECT( hInternet, MyIpServer, INTERNET_INVALID_PORT_NUMBER, MyUser,MyPassword, INTERNET_SERVICE_FTP, 0, 0 )
nRet := FTPPUTFILE( hConnect, CurDir()+"\"+cArq, "/sav/"+cArq, 0, 0 )
INTERNETCLOSEHANDLE( hConnect )
INTERNETCLOSEHANDLE( hInternet )
RETURN NIL
vilian wrote:nRet := FTPPUTFILE( hConnect, CurDir()+""+cArq, "/sav/"+cArq, 0, 0 )
Hi Enrico,
"/sav/" this is full destination path.
Are you sure? As an example, a path to my website would be
/emagsoftware.it/subdir/test.txt
I think you can't copy a file to the main directory of a website.
EMG
Hi Enrico,
Thanks for help.
I changed the folder for a sub-folder. The program initiates the transference, the archive is created in the selected folder, but the sending is not finishes, stopping the system!
vilian wrote:Hi Enrico,
Thanks for help.
I changed the folder for a sub-folder. The program initiates the transference, the archive is created in the selected folder, but the sending is not finishes, stopping the system!
Hi Richard,
Thanks for help,
I need to send only one archive for time. As already it said before, the archive arrives to be created in the remote directory, but the complete transference not if.
I use a Pocket Dell with WIndows Mobile 2003, what you use?
Vilian,
You may use free DataReelCE library. This provide FTP and URL acces function. Don't forget to change transfer type to passive mode.
Regards
Pawel
Pawel,
You have an example of use of this DLL?
#pragma BEGINDUMP
#include <gxsftp.h>
#include <dfileb.h>
HB_FUNC (FTPDOWNLOAD)
{
const char *server = hb_parc (1);
const char *user = hb_parc (2);
const char *pass = hb_parc (3);
const char *file = hb_parc (4);
gxsFTPClient ftp;
FAU_t bytes;
BOOL ret = FALSE;
ftp.SetTimeOut (10, 0);
if (ftp.ConnectClient ((const char *) server, 21) == 0)
{
ftp.FTPPassive ();
ftp.FTPImageType ('B');
if (ftp.FTPLogin ((const char *) user, (const char *) pass) == 0)
{
DiskFileB stream ((const char *) file, DiskFileB::df_READWRITE, DiskFileB::df_CREATE);
if (!stream) ret = FALSE;
else
{
if (ftp.FTPGet ((const char *) file, stream, bytes) != 0) ret = FALSE;
else ret = TRUE;
}
ftp.FTPLogout ();
}
else ret = FALSE;
}
else ret = FALSE;
ftp.Close ();
hb_retl (ret);
}
HB_FUNC (FTPUPLOAD)
{
const char *server = hb_parc (1);
const char *user = hb_parc (2);
const char *pass = hb_parc (3);
const char *file = hb_parc (4);
gxsFTPClient ftp;
FAU_t bytes;
BOOL ret = FALSE;
ftp.SetTimeOut (10, 0);
if (ftp.ConnectClient ((const char *) server, 21) == 0)
{
ftp.FTPPassive ();
ftp.FTPImageType ('B');
if (ftp.FTPLogin ((const char *) user, (const char *) pass) == 0)
{
DiskFileB stream ((const char *) file);
if (!stream) ret = FALSE;
else
{
if (ftp.FTPPut ((const char *) file, stream, bytes) != 0) ret = FALSE;
else ret = TRUE;
}
ftp.FTPLogout ();
}
else ret = FALSE;
}
else ret = FALSE;
ftp.Close ();
hb_retl (ret);
}
#pragma ENDDUMP