cls.ftp_service.openinternet.htm

FTP Services for Visual Foxpro

       <td class="CellValue">Direction</td>
       <td class="CellData">Input</td>
      </tr>
     </tbody>
    </table>
    <span class="Params_Detail">
The Site Alias or IP number of the FTP Server.
    </span>
   </dd>
   <dt class="dt_">
    <a class="DIAMP_PDM_AB_Params_ParaName" id="_26715XSUU" name="_26715XSUU">
     <span class="PDMEXPR PDMNor" ><span class='PDMVar'>lcPort</span></span>

    </a>
   </dt>
   <dd class="dd_">
    <span class="Params_Short">
     Port of FTP server
    </span>
    <table class="Params_Info">
     <colgroup>
      <col class="ColumnValue" />
      <col class="ColumnData" />
     </colgroup>
     <tbody>
      <tr>
       <td class="CellValue">Type</td>
       <td class="CellData">Character</td>
      </tr>
      <tr>
       <td class="CellValue">Direction</td>
       <td class="CellData">Input</td>
      </tr>
      <tr>
       <td class="CellValue">Optional</td>
      <td class="CellData">&nbsp;</td>
      </tr>
     </tbody>
    </table>
    <span class="Params_Detail">
The number of the Port on the Server to connect to.
    </span>
   </dd>
   <dt class="dt_">
    <a class="DIAMP_PDM_AB_Params_ParaName" id="_26715XSUV" name="_26715XSUV">
     <span class="PDMEXPR PDMNor" ><span class='PDMVar'>lnFlag</span></span>

    </a>
   </dt>
   <dd class="dd_">
    <span class="Params_Short">
     The flags that indicate various options.
    </span>
    <table class="Params_Info">
     <colgroup>
      <col class="ColumnValue" />
      <col class="ColumnData" />
     </colgroup>
     <tbody>
      <tr>
       <td class="CellValue">Type</td>
       <td class="CellData">Numeric/Array</td>
      </tr>
      <tr>
       <td class="CellValue">By reference</td>
       <td class="CellData">&nbsp;</td>
      </tr>
      <tr>
       <td class="CellValue">Direction</td>
       <td class="CellData">Input</td>
      </tr>
      <tr>
       <td class="CellValue">Optional</td>
      <td class="CellData">&nbsp;</td>
      </tr>
     </tbody>
    </table>
    <span class="Params_Detail">

The value can be single number value of array number values.
If You use single value, then passed value is equal to <span class="PDMEXPR PDMNor" ><span class='PDMVar'>dwFlags</span></span>
 parameter of API function.
This can be a combination of these values:
<table class="listvalues">
 <tr class="Head"><td>Value</td><td>Description</td></tr>
 <tr><td><span class="PDMEXPR PDMNor" ><span class='PDMVar'>INTERNET_FLAG_ASYNC</span></span>
</td><td>Only asynchronous requests.</td></tr>
 <tr><td><span class="PDMEXPR PDMNor" ><span class='PDMVar'>INTERNET_FLAG_FROM_CACHE</span></span>
</td><td>All entities are returned from the cache.</td></tr>
 <tr><td><span class="PDMEXPR PDMNor" ><span class='PDMVar'>INTERNET_FLAG_OFFLINE</span></span>
</td><td>All entities are returned from the cache.</td></tr>
</table>
<p />
If you use array of numbers, then first value (<span class="PDMEXPR PDMNor" ><span class='PDMVar'>_FTPS_FA_Default</span></span>
) is equal to <span class="PDMEXPR PDMNor" ><span class='PDMVar'>dwFlags</span></span>
 parameter of API function.
 Second value (<span class="PDMEXPR PDMNor" ><span class='PDMVar'>_FTPS_FA_AccessType</span></span>
) is equal to <span class="PDMEXPR PDMNor" ><span class='PDMVar'>dwAccessType</span></span>
 parameter of API funtion. This can be a combination of these values:
<table class="listvalues">
 <tr class="Head"><td>Value</td><td>Description</td></tr>
 <tr><td><span class="PDMEXPR PDMNor" ><span class='PDMVar'>INTERNET_OPEN_TYPE_DIRECT</span></span>
</td><td>Resolves all host names locally.</td></tr>
 <tr><td><span class="PDMEXPR PDMNor" ><span class='PDMVar'>INTERNET_OPEN_TYPE_PRECONFIG</span></span>
</td><td>Retrieves the proxy or direct configuration from the registry.</td></tr>
 <tr><td><span class="PDMEXPR PDMNor" ><span class='PDMVar'>INTERNET_OPEN_TYPE_PRECONFIG_WITH_NO_AUTOPROXY</span></span>
</td><td>Retrieves the proxy or direct configuration from the registry and prevents the use of a startup Microsoft JScript&reg; or Internet Setup (INS) file.</td></tr>
</table>
The value is ignore then you use proxy mode.
<p />
Assumed from <a href="http://msdn.microsoft.com/library/default.asp?url=/library/en-us/wininet/wininet/internetopen.asp">MSDN</a>.
    </span>
   </dd>
  </dl>
 </div><!-- Parameters End -->

 <div class="DIAMP_PDM_AB_RetVal"><!-- Returns Begin -->
  <div>
   <span class="PDM_AB_Head">
    <a id="_26715XSUQ" name="_26715XSUQ">
     Return value
    </a>
   </span> <span class="RetVal_Ttype">Boolean</span>
  </div>
  <div class="PDM_AB_Body">
<span class="PDMEXPR PDMNor" ><span class='PDMLit'>.T.</span></span>
 if the function succeded in making a connection to the internet and the FTP server.
 Returns <span class="PDMEXPR PDMNor" ><span class='PDMLit'>.F.</span></span>
 if the function was unable to connect to the internet or the FTP server.

  </div>
 </div><!-- Returns End -->

 <div class="PDM_AB_Example"><!-- Example Begin -->
  <span class="PDM_AB_Head">
   Example
  </span>
  <div class="PDM_AB_Body">

<h4>Using single value</h4>
<!-- Code Begin -->
<pre class="PDMCODE PDMNor" >
<span class='PDMResK'>LOCAL</span> <span class='PDMVar'>loFTP</span>
<span class='PDMResK'>SET</span> <span class='PDMResK'>PROCEDURE</span> <span class='PDMResK'>TO</span> <span class='PDMVar'>ftp</span><span class='PDMOper'>.</span><span class='PDMVar'>prg</span> <span class='PDMResK'>ADDITIVE</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'>"ABONNE"</span><span class='PDMOper'>,</span> <span class='PDMStr'>"PWD"</span><span class='PDMOper'>,</span> <span class='PDMStr'>"10.10.10.10"</span><span class='PDMOper'>,</span> <span class='PDMStr'>"21"</span><span class='PDMOper'>)</span>
   <span class='PDMResK'>IF</span> <span class='PDMVar'>loFTP</span><span class='PDMOper'>.</span><span class='PDMVar'>GetFTPFile</span><span class='PDMOper'>(</span><span class='PDMStr'>"any.txt"</span><span class='PDMOper'>,</span><span class='PDMStr'>"local.txt"</span><span class='PDMOper'>)</span>
      <span class='PDMOper'>?</span><span class='PDMResF'>STRTRAN</span><span class='PDMOper'>(</span><span class='PDMStr'>"File %File% downloaded"</span><span class='PDMOper'>,</span><span class='PDMStr'>"%File%"</span><span class='PDMOper'>,</span><span class='PDMStr'>"local.txt"</span><span class='PDMOper'>)</span>
   <span class='PDMResK'>ELSE</span>
   <span class='PDMOper'>?</span><span class='PDMVar'>loFTP</span><span class='PDMOper'>.</span><span class='PDMVar'>GetExtendedErrorCode</span><span class='PDMOper'>(</span><span class='PDMOper'>)</span><span class='PDMOper'>,</span><span class='PDMVar'>loFTP</span><span class='PDMOper'>.</span><span class='PDMVar'>GetExtendedErrorMsg</span><span class='PDMOper'>(</span><span class='PDMOper'>)</span>