wininet函数使用

最新推荐文章于 2023-01-05 13:48:54 发布

zywfriend

最新推荐文章于 2023-01-05 13:48:54 发布

阅读量493

点赞数

分类专栏： delphi 文章标签： internet service access null

本文链接：https://blog.csdn.net/zywfriend/article/details/5684361

版权

delphi 专栏收录该内容

4 篇文章 0 订阅

订阅专栏

DWORD FtpWriteRead(char ＊ cFtpHost,char ＊ cFile,DWORD dwLen,char ＊ buf,char cFlag)
{
    HINTERNET hInternet,hHost,hFile;
    DWORD dwLength,dwError;
    hInternet=InternetOpen(“FZYXB",LOCAL_INTERNET_ACCESS,NULL,0,0);
    hHost=InternetConnect(hInternet,cFtpHost,INTERNET_INVALID_PORT_NUMBER,
“fzxucm",“abc505",INTERNET_SERVICE_FTP,INTERNET_FLAG_PASSIVE,0);
   if ( cFlag == 0 ) // 写
   hFile=FtpOpenFile(hHost,cFile,GENERIC_WRITE,FTP_TRANSFER_TYPE_BINARY,0);
   else
    hFile=FtpOpenFile(hHost,cFile,GENERIC_READ,FTP_TRANSFER_TYPE_BINARY,0);
   if( !hFile)
   {
      if ( (dwError=GetLastError()) == 12003 )
      ShowMsg(hWin,“ 文件不存在");
      InternetCloseHandle(hHost);
      InternetCloseHandle(hInternet);return 0L;
   }
   if ( cFlag == 0 )
      InternetWriteFile(hFile,buf,dwLen, ＆dwLength);
else
      InternetReadFile(hFile,buf,dwLen, ＆dwLength);
      InternetCloseHandle(hFile);InternetCloseHandle(hHost);
      InternetCloseHandle(hInternet);
return dwLength;
}