qa.htm

FTP Services for Visual Foxpro

<span class='PDMOper'>#</span><span class='PDMResK'>INCLUDE</span> <span class='PDMStr'>"ftp.h"</span>
<span class='PDMResK'>CLEAR</span>
<span class='PDMVar'>lcPath</span><span class='PDMOper'>=</span><span class='PDMResF'>SYS</span><span class='PDMOper'>(</span><span class='PDMLit'>16</span><span class='PDMOper'>)</span>
<span class='PDMVar'>lcPath</span><span class='PDMOper'>=</span><span class='PDMResF'>IIF</span><span class='PDMOper'>(</span><span class='PDMResF'>RAT</span><span class='PDMOper'>(</span><span class='PDMStr'>"\"</span><span class='PDMOper'>,</span><span class='PDMVar'>lcPath</span><span class='PDMOper'>)</span><span class='PDMOper'>&gt;</span><span class='PDMLit'>0</span><span class='PDMOper'>,</span><span class='PDMResF'>LEFT</span><span class='PDMOper'>(</span><span class='PDMVar'>lcPath</span><span class='PDMOper'>,</span><span class='PDMResF'>RAT</span><span class='PDMOper'>(</span><span class='PDMStr'>"\"</span><span class='PDMOper'>,</span><span class='PDMVar'>lcPath</span><span class='PDMOper'>)</span><span class='PDMOper'>)</span><span class='PDMOper'>,</span><span class='PDMVar'>lcPath</span><span class='PDMOper'>)</span>

<span class='PDMResK'>SET</span> <span class='PDMResK'>PROCEDURE</span> <span class='PDMResK'>TO</span> <span class='PDMOper'>(</span><span class='PDMVar'>lcPath</span><span class='PDMOper'>+</span><span class='PDMStr'>"ftp.fxp"</span><span class='PDMOper'>)</span>
<span class='PDMResK'>DIMENSION</span> <span class='PDMVar'>laFiles</span><span class='PDMOper'>(</span><span class='PDMLit'>1</span><span class='PDMOper'>)</span>

<span class='PDMVar'>loFTP</span> <span class='PDMOper'>=</span> <span class='PDMResF'>CREATEOBJECT</span><span class='PDMOper'>(</span><span class='PDMStr'>'ftp_service'</span><span class='PDMOper'>)</span>
<span class='PDMResK'>IF</span> <span class='PDMVar'>loFTP</span><span class='PDMOper'>.</span><span class='PDMVar'>OpenInternet</span><span class='PDMOper'>(</span><span class='PDMStr'>"anonymous"</span><span class='PDMOper'>,</span> <span class='PDMStr'>"[e-mail]"</span><span class='PDMOper'>,</span><span class='PDMStr'>"192.168.2.21"</span><span class='PDMOper'>,</span> <span class='PDMStr'>"21"</span><span class='PDMOper'>)</span>
    <span class='PDMOper'>=</span><span class='PDMVar'>loFTp</span><span class='PDMOper'>.</span><span class='PDMVar'>ChangeFTPDirectory</span><span class='PDMOper'>(</span><span class='PDMStr'>"Kubuntu704"</span><span class='PDMOper'>)</span>
    <span class='PDMVar'>loFTP</span><span class='PDMOper'>.</span><span class='PDMVar'>GetFTPDirectoryArray</span><span class='PDMOper'>(</span><span class='PDMOper'>@</span><span class='PDMVar'>laFile</span><span class='PDMOper'>,</span> <span class='PDMStr'>"test.rar"</span><span class='PDMOper'>,</span><span class='PDMLit'>0</span><span class='PDMOper'>)</span>
    <span class='PDMOper'>?</span>
    <span class='PDMOper'>?</span><span class='PDMVar'>laFile</span><span class='PDMOper'>[</span><span class='PDMLit'>1</span><span class='PDMOper'>,</span><span class='PDMLit'>1</span><span class='PDMOper'>]</span>
    <span class='PDMOper'>?</span><span class='PDMVar'>laFile</span><span class='PDMOper'>[</span><span class='PDMLit'>1</span><span class='PDMOper'>,</span> <span class='PDMLit'>2</span><span class='PDMOper'>]</span>
    <span class='PDMOper'>?</span><span class='PDMVar'>laFile</span><span class='PDMOper'>[</span><span class='PDMLit'>1</span><span class='PDMOper'>,</span> <span class='PDMLit'>3</span><span class='PDMOper'>]</span>
    <span class='PDMOper'>?</span><span class='PDMVar'>laFile</span><span class='PDMOper'>[</span><span class='PDMLit'>1</span><span class='PDMOper'>,</span> <span class='PDMLit'>4</span><span class='PDMOper'>]</span>
    <span class='PDMOper'>?</span><span class='PDMVar'>laFile</span><span class='PDMOper'>[</span><span class='PDMLit'>1</span><span class='PDMOper'>,</span> <span class='PDMLit'>5</span><span class='PDMOper'>]</span>
    <span class='PDMOper'>?</span><span class='PDMVar'>laFile</span><span class='PDMOper'>[</span><span class='PDMLit'>1</span><span class='PDMOper'>,</span> <span class='PDMLit'>6</span><span class='PDMOper'>]</span>
    <span class='PDMOper'>?</span><span class='PDMVar'>laFile</span><span class='PDMOper'>[</span><span class='PDMLit'>1</span><span class='PDMOper'>,</span> <span class='PDMLit'>7</span><span class='PDMOper'>]</span>
<span class='PDMResK'>ENDIF</span>
<span class='PDMVar'>loFTP</span><span class='PDMOper'>.</span><span class='PDMVar'>CloseInternet</span><span class='PDMOper'>(</span><span class='PDMOper'>)</span>
</pre>

<h3><a name="#Q_0000003">How to get file size</a></h3>
You can use method <a href="../code/ftp.prg/cls.ftp_service.getfilesize.htm" target="_parent">GetFileSize()</a>.
<pre class="PDMCODE PDMNor">
<span class='PDMOper'>#</span><span class='PDMResK'>INCLUDE</span> <span class='PDMStr'>"ftp.h"</span>
<span class='PDMResK'>CLEAR</span>
<span class='PDMResK'>LOCAL</span> <span class='PDMVar'>lnFileSize</span><span class='PDMOper'>,</span><span class='PDMVar'>lcPath</span><span class='PDMOper'>,</span><span class='PDMVar'>loFTP</span>
<span class='PDMVar'>lcPath</span><span class='PDMOper'>=</span><span class='PDMResF'>SYS</span><span class='PDMOper'>(</span><span class='PDMLit'>16</span><span class='PDMOper'>)</span>
<span class='PDMVar'>lcPath</span><span class='PDMOper'>=</span><span class='PDMResF'>IIF</span><span class='PDMOper'>(</span><span class='PDMResF'>RAT</span><span class='PDMOper'>(</span><span class='PDMStr'>"\"</span><span class='PDMOper'>,</span><span class='PDMVar'>lcPath</span><span class='PDMOper'>)</span><span class='PDMOper'>&gt;</span><span class='PDMLit'>0</span><span class='PDMOper'>,</span><span class='PDMResF'>LEFT</span><span class='PDMOper'>(</span><span class='PDMVar'>lcPath</span><span class='PDMOper'>,</span><span class='PDMResF'>RAT</span><span class='PDMOper'>(</span><span class='PDMStr'>"\"</span><span class='PDMOper'>,</span><span class='PDMVar'>lcPath</span><span class='PDMOper'>)</span><span class='PDMOper'>)</span><span class='PDMOper'>,</span><span class='PDMVar'>lcPath</span><span class='PDMOper'>)</span>
<span class='PDMResK'>SET</span> <span class='PDMResK'>PROCEDURE</span> <span class='PDMResK'>TO</span> <span class='PDMOper'>(</span><span class='PDMVar'>lcPath</span><span class='PDMOper'>+</span><span class='PDMStr'>"ftp.fxp"</span><span class='PDMOper'>)</span>

<span class='PDMVar'>loFTP</span> <span class='PDMOper'>=</span> <span class='PDMResF'>CREATEOBJECT</span><span class='PDMOper'>(</span><span class='PDMStr'>'ftp_service'</span><span class='PDMOper'>)</span>
<span class='PDMResK'>IF</span> <span class='PDMVar'>loFTP</span><span class='PDMOper'>.</span><span class='PDMVar'>OpenInternet</span><span class='PDMOper'>(</span><span class='PDMStr'>"anonymous"</span><span class='PDMOper'>,</span> <span class='PDMStr'>"[e-mail]"</span><span class='PDMOper'>,</span><span class='PDMStr'>"192.168.2.21"</span><span class='PDMOper'>,</span> <span class='PDMStr'>"21"</span><span class='PDMOper'>)</span>
    <span class='PDMOper'>=</span><span class='PDMVar'>loFTp</span><span class='PDMOper'>.</span><span class='PDMVar'>ChangeFTPDirectory</span><span class='PDMOper'>(</span><span class='PDMStr'>"Kubuntu704"</span><span class='PDMOper'>)</span>
    <span class='PDMResK'>IF</span> <span class='PDMVar'>loFTP</span><span class='PDMOper'>.</span><span class='PDMVar'>GetFileSize</span><span class='PDMOper'>(</span><span class='PDMStr'>"test.rar"</span><span class='PDMOper'>,</span><span class='PDMOper'>@</span><span class='PDMVar'>lnFileSize</span><span class='PDMOper'>)</span>
       <span class='PDMOper'>?</span><span class='PDMVar'>lnFileSize</span>
    <span class='PDMResK'>ENDIF</span>
<span class='PDMResK'>ENDIF</span>
<span class='PDMVar'>loFTP</span><span class='PDMOper'>.</span><span class='PDMVar'>CloseInternet</span><span class='PDMOper'>(</span><span class='PDMOper'>)</span>
</pre>

<h3><a name="#Q_0000004">How to use method NLST()</a></h3>
See to examples in methods <a href="../code/ftp.prg/cls.ftp_service.nlst.htm" target="_parent">NLST()</a> method.

<h3><a name="#Q_0000005">How to use method List()</a></h3>
See to examples in methods <a href="../code/ftp.prg/cls.ftp_service.list.htm" target="_parent">List()</a> method.

<h3><a name="Q_0000006">Why result of List() method return incorrect values?</a></h3>
The result of LIST command is depend on implementation of FTP server. FTP server can send bad file size or datetime.

<h3><a name="Q_0000007">Why if I call method List() with output to array the VFP cause error?</a></h3>
The result of LIST command is very variable tha parsing can be failed. Please use output to file or string.

<h3><a name="Q_0000008">Time at time VFP hangup at using FTP Class. Why?</a></h3>
I don't know why. I know the problem if I use Golden FTP Server on local machine.

<h3><a name="#Q_0000009">Does FTP class support FTP over SSL?</a></h3>
No.

</body>
</html>