怎样得到FTP服务器上文件大小？

[Erlin]

怎样得到FTP服务器上文件大小？MSDN上有FtpGetFileSize的帮助，但是它所注明的头文件wininet.h里打不到这个函数的原型。

[lszjt9702]

向FTP服务器发送 SIZE ＜文件名>/r/n命令。用VC 套接字编程可实现

[wistaria]

用CFtpFileFind的GetLength();

[jimconrad]

CFtpConnection *pFtpConnectionSrc = NULL; // The source ftp file
CFtpFileFind* pFinder = NULL;
// Get connection use the user name and password.
try
{
pFtpConnectionSrc = m_pInetSession->GetFtpConnection(m_strFtpServerSrc, m_strUserName, m_strPassword);
}
catch(CInternetException *pEx)
{
pEx->Delete();
pFtpConnectionSrc = NULL;
m_nFileOpResult = Failed;
str = "无法连接源服务器, 请检查网络设备和用户名、密码.";
goto QuitNoThread;
}
// Set the dir of the file.
if(!pFtpConnectionSrc->SetCurrentDirectory(m_strRemoteDirSrc)) {
m_nFileOpResult = Failed;
str = "无法访问服务器的源文件夹.";
goto QuitNoThread;
}
// Use the CFtpFileFind to get the file length.
pFinder = new CFtpFileFind(pFtpConnectionSrc);
if(pFinder->FindFile((LPCTSTR)m_strRemoteFileSrc))
{
// We use the parameter m_dwLocalFileSize to describt the source file size.
pFinder->FindNextFile();
m_dwLocalFileSize = pFinder->GetLength();
if(0 == m_dwLocalFileSize)
{
m_nFileOpResult = Failed;
str = "源文件为空, 操作取消.";
}
else
{
goto StartThrd;
}
}
else
{
m_nFileOpResult = Failed;
str = "无法找到源文件.";
// Now the parameter m_dwLocalFileSize is still zero.
}


QuitNoThread:
if(pFtpConnectionSrc != NULL)
{
pFtpConnectionSrc->Close();
delete pFtpConnectionSrc;
pFtpConnectionSrc = NULL;
}
if(pFinder)
{
pFinder->Close();
delete pFinder;
pFinder = NULL;
}
if(!str.IsEmpty()) {
::AfxMessageBox(str);
}
return;