有哪位好心的朋友，能给我一个FTP的服务器、客户端通信代码吗？

Question

HINTERNET hInternet;
HINTERNET hFtp;
BOOL bRet = FALSE; hInternet = InternetOpen( "DVDMgr Application",INTERNET_OPEN_TYPE_DIRECT, NULL/*Not use proxy*/,NULL,0); if ( NULL == hInternet ){
return INTERNET_ERROR_CANNOT_OPEN;
} hFtp = InternetConnect( hInternet, lpCnInfo->lpszServerName,INTERNET_DEFAULT_FTP_PORT,
lpCnInfo->lpszUserName, lpCnInfo->lpszPasswords, INTERNET_SERVICE_FTP,0,0 );  if ( NULL == hFtp ){
return INTERNET_ERROR_CANNOT_CONNECT;
}
 
bRet = FtpGetFile( hFtp, lpszSource, lpszTarget, FALSE/*Override*/,0,FTP_TRANSFER_TYPE_BINARY,0); if (!bRet) return INTERNET_ERROR_GET_FILE_FAILED; InternetCloseHandle( hFtp ); return INTERNET_SUCCESS;

Answer 1

D6的DEMOS里的INDY中有好几个例子，看看吧。