100分~那里有bcb实现的ftp类？不想用indy来写，每次维护起来都很麻烦，都要重新安装indy

[CppFile]

indy不太喜欢，想自己写一个ftp上传的类，不知道那里有相关的资料呢？

[CppFile]

补充一下，用socket 写

[yuanreid]

今天刚收藏的FTP代码，共享出来：

class CFtp
{
private:
HINTERNET m_hInetSession;
HINTERNET m_hFtpSession;
public:
LPTSTR Username;
LPTSTR Password;
LPTSTR Host;
public:
CFtp(void);
~CFtp(void);

BOOL Connect(void);
BOOL Disconnect(void);
BOOL ChangeDir(LPCSTR lpszDir);
BOOL Get(LPCSTR lpszSourceFile, LPCSTR lpszDestFile, const BOOL bOverwrite = FALSE, BOOL bResume = FALSE);
BOOL Put(LPCSTR ASourceFile, LPCSTR ADestFile = "", const BOOL bAppend = FALSE);
};
CFtp::CFtp(void)
{
m_hInetSession = InternetOpen(NULL,
INTERNET_OPEN_TYPE_PRECONFIG,
NULL,
NULL,
INTERNET_FLAG_ASYNC);
Username = NULL;
Password = NULL;
Host = NULL;
m_hFtpSession = NULL;
}
CFtp::~CFtp(void)
{
InternetCloseHandle(m_hInetSession);

}
BOOL CFtp::Connect(void)
{
if (m_hInetSession == NULL) {
return FALSE;
}
m_hFtpSession = InternetConnect(m_hInetSession,
Host,
INTERNET_DEFAULT_FTP_PORT,
Username,
Password,
INTERNET_SERVICE_FTP,
INTERNET_FLAG_PASSIVE,
0);

return m_hFtpSession != NULL;
}
BOOL CFtp::Disconnect(void)
{
return InternetCloseHandle(m_hFtpSession);
}
BOOL CFtp::ChangeDir(LPCSTR lpszDir)
{
return FtpSetCurrentDirectory(m_hFtpSession, lpszDir);
}
BOOL CFtp::Get(LPCSTR lpszSourceFile, LPCSTR lpszDestFile,
const BOOL bOverwrite, BOOL bResume )
{
return FtpGetFile(m_hFtpSession,
lpszSourceFile,
lpszDestFile,
!bOverwrite,
FILE_ATTRIBUTE_NORMAL,
FTP_TRANSFER_TYPE_BINARY | INTERNET_FLAG_RELOAD,
0);

}
BOOL CFtp::Put(LPCSTR lpszSourceFile, LPCSTR lpszDestFile, const BOOL bAppend)
{
return FtpPutFile(m_hFtpSession,
lpszSourceFile,
lpszDestFile,
INTERNET_FLAG_TRANSFER_BINARY,
0);
}

[jaffy]

你是想写客户端还是服务端啊，我觉得INDY挺好的，我的报表上传都是用他的，两年了，都没什么问题

[yeah920]

学习了。帮你顶

[cczlp]

呵呵, 用socket到www.vckbase.com找, 有源码的

[___NULL]

那就用 socket ，非常直接的操作方式

[laowang2]

http://www.vckbase.com

[痞子酷]

直接SOCKET API 写一个ftp类不就有了吗