wininet函数使用

来源：互联网发布：linux 安装yum 编辑：程序博客网时间：2024/05/16 18:43

DWORD FtpWriteRead(char ＊ cFtpHost,char ＊ cFile,DWORD dwLen,char ＊ buf,char cFlag)
{
    HINTERNET hInternet,hHost,hFile;
    DWORDdwLength,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;
}