cls.ftp_service.loadapifuncs.htm

FTP Services for Visual Foxpro

      <span class='PDMResK'>DECLARE</span> <span class='PDMResK'>Integer</span> <span class='PDMVar'><a href="http://www.news2news.com/vfp/?search=InternetGoOnline&x=7&y=5" target="blank">InternetGoOnline</a></span> <span class='PDMResK'>IN</span> <span class='PDMVar'>WinInet</span> <span class='PDMOper'>;</span>
              <span class='PDMResK'>String</span> <span class='PDMOper'>@</span><span class='PDMVar'>lpcURL</span><span class='PDMOper'>,</span> <span class='PDMResK'>Integer</span> <span class='PDMVar'>nHandle</span><span class='PDMOper'>,</span> <span class='PDMResK'>Integer</span> <span class='PDMVar'>nFlags</span>

      <span class='PDMResK'>DECLARE</span> <span class='PDMResK'>Integer</span> <span class='PDMVar'><a href="http://www.news2news.com/vfp/?search=InternetOpen&x=7&y=5" target="blank">InternetOpen</a></span> <span class='PDMResK'>IN</span> <span class='PDMVar'>WinInet</span> <span class='PDMOper'>;</span>
              <span class='PDMResK'>String</span> <span class='PDMOper'>@</span><span class='PDMVar'>lpcAgent</span><span class='PDMOper'>,</span> <span class='PDMResK'>Integer</span> <span class='PDMVar'>nAccessType</span><span class='PDMOper'>,</span> <span class='PDMResK'>String</span> <span class='PDMOper'>@</span><span class='PDMVar'>lpcProxyName</span><span class='PDMOper'>,</span> <span class='PDMOper'>;</span>
              <span class='PDMResK'>String</span> <span class='PDMOper'>@</span><span class='PDMVar'>lpcProxyBypass</span><span class='PDMOper'>,</span> <span class='PDMResK'>Integer</span> <span class='PDMVar'>nFlags</span>

      <span class='PDMResK'>DECLARE</span> <span class='PDMResK'>Integer</span> <span class='PDMVar'><a href="http://www.news2news.com/vfp/?search=InternetConnect&x=7&y=5" target="blank">InternetConnect</a></span> <span class='PDMResK'>IN</span> <span class='PDMVar'>WinInet</span> <span class='PDMOper'>;</span>
              <span class='PDMResK'>Integer</span> <span class='PDMVar'>nInet_Handle</span><span class='PDMOper'>,</span> <span class='PDMResK'>String</span> <span class='PDMOper'>@</span><span class='PDMVar'>lpcServer</span><span class='PDMOper'>,</span> <span class='PDMResK'>Short</span> <span class='PDMVar'>nPort</span><span class='PDMOper'>,</span> <span class='PDMResK'>String</span> <span class='PDMOper'>@</span><span class='PDMVar'>lpcUserName</span><span class='PDMOper'>,</span> <span class='PDMOper'>;</span>
              <span class='PDMResK'>String</span> <span class='PDMOper'>@</span><span class='PDMVar'>lpcPassword</span><span class='PDMOper'>,</span> <span class='PDMResK'>Integer</span> <span class='PDMVar'>nService</span><span class='PDMOper'>,</span> <span class='PDMResK'>Integer</span> <span class='PDMVar'>nFlags</span><span class='PDMOper'>,</span> <span class='PDMResK'>Integer</span> <span class='PDMVar'>nContext</span>

      <span class='PDMResK'>DECLARE</span> <span class='PDMResK'>Integer</span> <span class='PDMVar'><a href="http://www.news2news.com/vfp/?search=InternetCloseHandle&x=7&y=5" target="blank">InternetCloseHandle</a></span> <span class='PDMResK'>IN</span> <span class='PDMVar'>WinInet</span> <span class='PDMOper'>;</span>
              <span class='PDMResK'>Integer</span> <span class='PDMVar'>nConnect_Handle</span>

      <span class='PDMOper'>*</span> <span class='PDMVar'>FTP</span> <span class='PDMVar'>Functions</span>
      <span class='PDMResK'>DECLARE</span> <span class='PDMResK'>Integer</span> <span class='PDMVar'><a href="http://www.news2news.com/vfp/?search=FtpCreateDirectory&x=7&y=5" target="blank">FtpCreateDirectory</a></span> <span class='PDMResK'>IN</span> <span class='PDMVar'>WinInet</span> <span class='PDMOper'>;</span>
              <span class='PDMResK'>Integer</span> <span class='PDMVar'>nConnect_Handle</span><span class='PDMOper'>,</span> <span class='PDMResK'>String</span> <span class='PDMOper'>@</span><span class='PDMVar'>lpcDirectory</span>

      <span class='PDMResK'>DECLARE</span> <span class='PDMResK'>Integer</span> <span class='PDMVar'><a href="http://www.news2news.com/vfp/?search=FtpDeleteFile&x=7&y=5" target="blank">FtpDeleteFile</a></span> <span class='PDMResK'>IN</span> <span class='PDMVar'>WinInet</span> <span class='PDMOper'>;</span>
              <span class='PDMResK'>Integer</span> <span class='PDMVar'>nConnect_Handle</span><span class='PDMOper'>,</span> <span class='PDMResK'>String</span> <span class='PDMOper'>@</span><span class='PDMVar'>lpcFileName</span>

      <span class='PDMResK'>DECLARE</span> <span class='PDMResK'>Integer</span> <span class='PDMVar'><a href="http://www.news2news.com/vfp/?search=FtpFindFirstFile&x=7&y=5" target="blank">FtpFindFirstFile</a></span> <span class='PDMResK'>IN</span> <span class='PDMVar'>WinInet</span> <span class='PDMOper'>;</span>
              <span class='PDMResK'>Integer</span> <span class='PDMVar'>nConnect_Handle</span><span class='PDMOper'>,</span> <span class='PDMResK'>String</span> <span class='PDMOper'>@</span><span class='PDMVar'>lpcSearchStr</span><span class='PDMOper'>,</span> <span class='PDMResK'>String</span> <span class='PDMOper'>@</span><span class='PDMVar'>lpcWIN32_FIND_DATA</span><span class='PDMOper'>,</span> <span class='PDMOper'>;</span>
              <span class='PDMResK'>Integer</span> <span class='PDMVar'>nFlags</span><span class='PDMOper'>,</span> <span class='PDMResK'>Integer</span> <span class='PDMVar'>nContext</span>

      <span class='PDMResK'>DECLARE</span> <span class='PDMResK'>Integer</span> <span class='PDMVar'><a href="http://www.news2news.com/vfp/?search=InternetFindNextFile&x=7&y=5" target="blank">InternetFindNextFile</a></span> <span class='PDMResK'>IN</span> <span class='PDMVar'>WinInet</span> <span class='PDMOper'>;</span>
              <span class='PDMResK'>Integer</span> <span class='PDMVar'>nConnect_Handle</span><span class='PDMOper'>,</span> <span class='PDMResK'>String</span> <span class='PDMOper'>@</span><span class='PDMVar'>lpcWIN32_FIND_DATA</span>

      <span class='PDMResK'>DECLARE</span> <span class='PDMResK'>Integer</span> <span class='PDMVar'><a href="http://www.news2news.com/vfp/?search=FtpGetCurrentDirectory&x=7&y=5" target="blank">FtpGetCurrentDirectory</a></span> <span class='PDMResK'>IN</span> <span class='PDMVar'>WinInet</span> <span class='PDMOper'>;</span>
              <span class='PDMResK'>Integer</span> <span class='PDMVar'>nConnect_Handle</span><span class='PDMOper'>,</span> <span class='PDMResK'>String</span> <span class='PDMOper'>@</span><span class='PDMVar'>lpcDirectory</span><span class='PDMOper'>,</span> <span class='PDMResK'>Integer</span> <span class='PDMOper'>@</span><span class='PDMVar'>nMax_Path</span>

      <span class='PDMResK'>DECLARE</span> <span class='PDMResK'>Integer</span> <span class='PDMVar'><a href="http://www.news2news.com/vfp/?search=FtpGetFile&x=7&y=5" target="blank">FtpGetFile</a></span> <span class='PDMResK'>IN</span> <span class='PDMVar'>WinInet</span> <span class='PDMOper'>;</span>
              <span class='PDMResK'>Integer</span> <span class='PDMVar'>nConnect_Handle</span><span class='PDMOper'>,</span> <span class='PDMResK'>String</span> <span class='PDMOper'>@</span><span class='PDMVar'>lpcRemoteFile</span><span class='PDMOper'>,</span> <span class='PDMResK'>String</span> <span class='PDMOper'>@</span><span class='PDMVar'>lpcNewFile</span><span class='PDMOper'>,</span> <span class='PDMOper'>;</span>
              <span class='PDMResK'>Integer</span> <span class='PDMVar'>nFailIfExists</span><span class='PDMOper'>,</span> <span class='PDMResK'>Integer</span> <span class='PDMVar'>nAttributes</span><span class='PDMOper'>,</span> <span class='PDMResK'>Integer</span> <span class='PDMVar'>nFlags</span><span class='PDMOper'>,</span> <span class='PDMOper'>;</span>
              <span class='PDMResK'>Integer</span> <span class='PDMVar'>nContext</span>

      <span class='PDMResK'>DECLARE</span> <span class='PDMResK'>Integer</span> <span class='PDMVar'><a href="http://www.news2news.com/vfp/?search=FtpOpenFile&x=7&y=5" target="blank">FtpOpenFile</a></span> <span class='PDMResK'>IN</span> <span class='PDMVar'>WinInet</span> <span class='PDMOper'>;</span>
              <span class='PDMResK'>Integer</span> <span class='PDMVar'>nConnect_Handle</span><span class='PDMOper'>,</span> <span class='PDMResK'>String</span> <span class='PDMOper'>@</span><span class='PDMVar'>lpcRemoteFile</span><span class='PDMOper'>,</span> <span class='PDMResK'>Integer</span> <span class='PDMVar'>nAccessType</span><span class='PDMOper'>,</span> <span class='PDMOper'>;</span>
              <span class='PDMResK'>Integer</span> <span class='PDMVar'>nFlags</span><span class='PDMOper'>,</span> <span class='PDMResK'>Integer</span> <span class='PDMVar'>nContext</span>

      <span class='PDMResK'>DECLARE</span> <span class='PDMResK'>Integer</span> <span class='PDMVar'><a href="http://www.news2news.com/vfp/?search=FtpPutFile&x=7&y=5" target="blank">FtpPutFile</a></span> <span class='PDMResK'>IN</span> <span class='PDMVar'>WinInet</span> <span class='PDMOper'>;</span>
              <span class='PDMResK'>Integer</span> <span class='PDMVar'>nConnect_Handle</span><span class='PDMOper'>,</span> <span class='PDMResK'>String</span> <span class='PDMOper'>@</span><span class='PDMVar'>lpcNewFile</span><span class='PDMOper'>,</span> <span class='PDMResK'>String</span> <span class='PDMOper'>@</span><span class='PDMVar'>lpcRemoteFile</span><span class='PDMOper'>,</span> <span class='PDMOper'>;</span>
              <span class='PDMResK'>Integer</span> <span class='PDMVar'>nFlags</span><span class='PDMOper'>,</span> <span class='PDMResK'>Integer</span> <span class='PDMVar'>nContext</span>

      <span class='PDMResK'>DECLARE</span> <span class='PDMResK'>Integer</span> <span class='PDMVar'><a href="http://www.news2news.com/vfp/?search=FtpRemoveDirectory&x=7&y=5" target="blank">FtpRemoveDirectory</a></span> <span class='PDMResK'>IN</span> <span class='PDMVar'>WinInet</span> <span class='PDMOper'>;</span>
              <span class='PDMResK'>Integer</span> <span class='PDMVar'>nConnect_Handle</span><span class='PDMOper'>,</span> <span class='PDMResK'>String</span> <span class='PDMOper'>@</span><span class='PDMVar'>lpcDirectory</span>

      <span class='PDMResK'>DECLARE</span> <span class='PDMResK'>Integer</span> <span class='PDMVar'><a href="http://www.news2news.com/vfp/?search=FtpRenameFile&x=7&y=5" target="blank">FtpRenameFile</a></span> <span class='PDMResK'>IN</span> <span class='PDMVar'>WinInet</span> <span class='PDMOper'>;</span>
              <span class='PDMResK'>Integer</span> <span class='PDMVar'>nConnect_Handle</span><span class='PDMOper'>,</span> <span class='PDMResK'>String</span> <span class='PDMOper'>@</span><span class='PDMVar'>lpcRemoteFile</span><span class='PDMOper'>,</span> <span class='PDMResK'>String</span> <span class='PDMOper'>@</span><span class='PDMVar'>lpcNewFile</span>

      <span class='PDMResK'>DECLARE</span> <span class='PDMResK'>Integer</span> <span class='PDMVar'><a href="http://www.news2news.com/vfp/?search=FtpSetCurrentDirectory&x=7&y=5" target="blank">FtpSetCurrentDirectory</a></span> <span class='PDMResK'>IN</span> <span class='PDMVar'>WinInet</span> <span class='PDMOper'>;</span>
              <span class='PDMResK'>Integer</span> <span class='PDMVar'>nConnect_Handle</span><span class='PDMOper'>,</span> <span class='PDMResK'>String</span> <span class='PDMOper'>@</span><span class='PDMVar'>lpcDirectory</span>


      <span class='PDMResK'>DECLARE</span> <span class='PDMResK'>Integer</span> <span class='PDMVar'><a href="http://www.news2news.com/vfp/?search=FtpCommand&x=7&y=5" target="blank">FtpCommand</a></span> <span class='PDMResK'>IN</span> <span class='PDMVar'>WinInet</span> <span class='PDMOper'>;</span>
              <span class='PDMResK'>Integer</span> <span class='PDMVar'>hConnect</span><span class='PDMOper'>,</span> <span class='PDMResK'>Integer</span> <span class='PDMVar'>fExpectResponse</span><span class='PDMOper'>,</span><span class='PDMOper'>;</span>
              <span class='PDMResK'>Integer</span> <span class='PDMVar'>dwFlags</span><span class='PDMOper'>,</span> <span class='PDMResK'>STRING</span> <span class='PDMOper'>@</span> <span class='PDMVar'>lpszCommand</span><span class='PDMOper'>,</span><span class='PDMOper'>;</span>
              <span class='PDMResK'>Integer</span> <span class='PDMVar'>dwContext</span><span class='PDMOper'>,</span> <span class='PDMResK'>Integer</span> <span class='PDMOper'>@</span> <span class='PDMVar'>phFtpCommand</span>


      <span class='PDMResK'>DECLARE</span> <span class='PDMResK'>Integer</span> <span class='PDMVar'><a href="http://www.news2news.com/vfp/?search=InternetGetLastResponseInfo&x=7&y=5" target="blank">InternetGetLastResponseInfo</a></span> <span class='PDMResK'>IN</span> <span class='PDMVar'>WinInet</span> <span class='PDMOper'>;</span>
              <span class='PDMResK'>Integer</span> <span class='PDMOper'>@</span><span class='PDMVar'>nError</span><span class='PDMOper'>,</span> <span class='PDMResK'>String</span> <span class='PDMOper'>@</span><span class='PDMVar'>lpcBuffer</span><span class='PDMOper'>,</span> <span class='PDMResK'>Integer</span> <span class='PDMOper'>@</span><span class='PDMVar'>nMax_Path</span>


      <span class='PDMResK'>DECLARE</span> <span class='PDMResK'>INTEGER</span> <span class='PDMVar'><a href="http://www.news2news.com/vfp/?search=InternetWriteFile&x=7&y=5" target="blank">InternetWriteFile</a></span> <span class='PDMResK'>IN</span> <span class='PDMVar'>WinInet</span> <span class='PDMOper'>;</span>
              <span class='PDMResK'>INTEGER</span> <span class='PDMVar'>hFile</span><span class='PDMOper'>,</span> <span class='PDMResK'>STRING</span> <span class='PDMOper'>@</span> <span class='PDMVar'>lpBuffer</span><span class='PDMOper'>,</span><span class='PDMOper'>;</span>
              <span class='PDMResK'>INTEGER</span> <span class='PDMVar'>dwNumberOfBytesToWrite</span><span class='PDMOper'>,</span> <span class='PDMResK'>INTEGER</span> <span class='PDMOper'>@</span> <span class='PDMVar'>lpdwNumberOfBytesWritten</span>

      <span class='PDMResK'>DECLARE</span> <span class='PDMResK'>INTEGER</span> <span class='PDMVar'><a href="http://www.news2news.com/vfp/?search=InternetReadFile&x=7&y=5" target="blank">InternetReadFile</a></span> <span class='PDMResK'>IN</span> <span class='PDMVar'>WinInet</span> <span class='PDMOper'>;</span>
              <span class='PDMResK'>INTEGER</span> <span class='PDMVar'>hFile</span><span class='PDMOper'>,</span> <span class='PDMResK'>STRING</span> <span class='PDMOper'>@</span> <span class='PDMVar'>lpBuffer</span><span class='PDMOper'>,</span><span class='PDMOper'>;</span>
              <span class='PDMResK'>INTEGER</span> <span class='PDMVar'>dwNumberOfBytesToWrite</span><span class='PDMOper'>,</span> <span class='PDMResK'>INTEGER</span> <span class='PDMOper'>@</span> <span class='PDMVar'>lpdwNumberOfBytesWritten</span>


      <span class='PDMResK'>DECLARE</span> <span class='PDMVar'><a href="http://www.news2news.com/vfp/?search=InternetQueryOption&x=7&y=5" target="blank">InternetQueryOption</a></span>  <span class='PDMResK'>IN</span> <span class='PDMVar'>WinInet</span> <span class='PDMOper'>;</span>
              <span class='PDMResK'>INTEGER</span> <span class='PDMVar'>hInternet</span><span class='PDMOper'>,</span><span class='PDMOper'>;</span>
              <span class='PDMResK'>INTEGER</span> <span class='PDMVar'>dwOption</span><span class='PDMOper'>,</span><span class='PDMOper'>;</span>
              <span class='PDMResK'>INTEGER</span> <span class='PDMOper'>@</span> <span class='PDMVar'>lpBuffer</span><span class='PDMOper'>,</span><span class='PDMOper'>;</span>
              <span class='PDMResK'>INTEGER</span> <span class='PDMOper'>@</span> <span class='PDMVar'>lpdwBufferLength</span>


      <span class='PDMResK'>This</span><span class='PDMOper'>.</span><span class='PDMVar'>lDLL_Loaded</span> <span class='PDMOper'>=</span> <span class='PDMLit'>.T.</span>

      <span class='PDMResK'>RETURN</span> <span class='PDMVar'>ERROR_SUCCESS</span>    
</pre>
 <!-- Code End -->
  </div>
 </div>
</div>
<div class="diaxp_mfoot"> <div class="PDM_AB_CopyRight"><!-- Footer Begin -->
  <hr />
  <div class="PDM_AB_Body">
&copy; 2004-03-23 Robert Abram, &copy; 24.11.2005 Martina Jindr&uacute;
  </div><!-- Body End -->
 </div><!-- Footer End -->
</div>
<script language="JavaScript" type="text/javascript">
lo=document.getElementById("TX_SP_1");
lo.XType="SourceCode";
lo.Dir="../../imgs/";


</script>
</body>
</html>