FTP客户端VC实现

VC实现的FTP客户端，界面用MFC编写，有完整的代码，适用于学习参考

/****************************************************************/
/*																*/
/*  AboutDlg.cpp												*/
/*																*/
/*  Implementation of the CAboutDlg class.						*/
/*																*/
/*  Programmed by Pablo van der Meer							*/
/*  Copyright Pablo Software Solutions 2002						*/
/*	http://www.pablovandermeer.nl								*/
/*																*/
/*  Last updated: 15 may 2002									*/
/*																*/
/****************************************************************/


#include “stdafx.h“
#include “ftpwanderer.h“
#include “AboutDlg.h“

#ifdef _DEBUG
#define new DEBUG_NEW
#undef THIS_FILE
static char THIS_FILE[] = __FILE__;
#endif


CAboutDlg::CAboutDlg（CWnd* pParent /*=NULL*/）
	: CDialog（CAboutDlg::IDD pParent）
{
	//{{AFX_DATA_INIT（CAboutDlg）
		// NOTE: the ClassWizard will add member initialization here
	//}}AFX_DATA_INIT
}


void CAboutDlg::DoDataExchange（CDataExchange* pDX）
{
	CDialog::DoDataExchange（pDX）;
	//{{AFX_DATA_MAP（CAboutDlg）
	DDX_Control（pDX IDC_STATIC_MAIL m_Maillink）;
	DDX_Control（pDX IDC_STATIC_link m_HomePagelink）;
	//}}AFX_DATA_MAP
}


BEGIN_MESSAGE_MAP（CAboutDlg CDialog）
	//{{AFX_MSG_MAP（CAboutDlg）
	//}}AFX_MSG_MAP
END_MESSAGE_MAP（）


/********************************************************************/
/*																	*/
/* Function name : OnInitDialog										*/
/* Description   : Initialize dialog.								*/
/*																	*/
/********************************************************************/
BOOL CAboutDlg::OnInitDialog（） 
{
	CDialog::OnInitDialog（）;
	
	m_Maillink.SetURL（“mailto:info@pablovandermeer.nl“）;
	m_HomePagelink.SetURL（“http://www.pablovandermeer.nl“）;

    CString strExeName = AfxGetApp（）->m_pszExeName;
    strExeName += “.exe“;

	UpdateVersionInformation（strExeName）;
	return TRUE; 
}


/********************************************************************/
/*																	*/
/* Function name : UpdateVersionInformation							*/
/* Description   : Show version information from resource.			*/
/*																	*/
/********************************************************************/
void CAboutDlg::UpdateVersionInformation（LPCTSTR lpszModuleName）
{
	BYTE		*pDataBlock = NULL;
	DWORD FAR	*translation;
	DWORD FAR	*buffer;     
	DWORD		dwHandle;
	UINT		nBytes;
	
	// WinAPI wants non-const arguments
	LPTSTR lpszExeName = const_cast（lpszModuleName）; 

	char szName[512];       // StringFileInfo data block.
	char szData[256];

	// Get the actual size of the information block.
	nBytes = （UINT）GetFileVersionInfoSize（lpszExeName &dwHandle）;

	if （nBytes）
	{
		pDataBlock = new BYTE[nBytes];

		// Get the actual block for the version information
		if （GetFileVersionInfo（lpszExeName dwHandle nBytes pDataBlock））
		{
			if （VerQueryValue（pDataBlock “\\VarFileInfo\\Translation“ （VOID FAR * FAR *）&translation （UINT FAR *）&nBytes）） 
			{
				// The File Version for t

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     文件       3441  2007-04-05 21:17  FTPWanderer\AboutDlg.cpp

     文件       1162  2002-05-14 20:07  FTPWanderer\AboutDlg.h

     文件       4345  2002-07-12 16:19  FTPWanderer\ColorListBox.cpp

     文件       1390  2002-03-29 16:55  FTPWanderer\ColorListBox.h

     文件      19225  2002-07-12 16:41  FTPWanderer\ConnectDlg.cpp

     文件       2043  2002-07-08 20:05  FTPWanderer\ConnectDlg.h

     文件       4722  2002-07-12 16:41  FTPWanderer\ConnectionOptions.cpp

     文件       1509  2002-05-12 13:42  FTPWanderer\ConnectionOptions.h

     文件      17555  2017-02-10 10:27  FTPWanderer\Debug\AboutDlg.obj

     文件      15742  2017-02-10 10:27  FTPWanderer\Debug\ColorListBox.obj

     文件      73627  2017-02-10 10:27  FTPWanderer\Debug\ConnectDlg.obj

     文件      25037  2017-02-10 10:27  FTPWanderer\Debug\ConnectionOptions.obj

     文件      50285  2017-02-10 10:27  FTPWanderer\Debug\DownloadThread.obj

     文件      81185  2017-02-10 10:27  FTPWanderer\Debug\FTPListView.obj

     文件      20256  2017-02-10 10:27  FTPWanderer\Debug\FtpSite.obj

     文件      25950  2017-02-10 10:27  FTPWanderer\Debug\FTPTreeView.obj

     文件     610416  2017-02-10 10:27  FTPWanderer\Debug\FTPWanderer.exe

     文件    1186920  2017-02-10 10:27  FTPWanderer\Debug\FTPWanderer.ilk

     文件      25049  2017-02-10 10:27  FTPWanderer\Debug\FTPWanderer.obj

     文件    6226568  2017-02-10 10:27  FTPWanderer\Debug\FTPWanderer.pch

     文件     943104  2017-02-10 10:27  FTPWanderer\Debug\FTPWanderer.pdb

     文件     203480  2017-02-10 10:26  FTPWanderer\Debug\FTPWanderer.res

     文件      18145  2017-02-10 10:27  FTPWanderer\Debug\FTPWandererDoc.obj

     文件      24687  2017-02-10 10:27  FTPWanderer\Debug\GeneralOptions.obj

     文件      22197  2017-02-10 10:27  FTPWanderer\Debug\GeneralPage.obj

     文件      15346  2017-02-10 10:27  FTPWanderer\Debug\GoToFolderDlg.obj

     文件      35594  2017-02-10 10:27  FTPWanderer\Debug\HistoryCombo.obj

     文件      19226  2017-02-10 10:27  FTPWanderer\Debug\InfobarCtrl.obj

     文件     239229  2017-02-10 10:27  FTPWanderer\Debug\MainFrm.obj

     文件      25116  2017-02-10 10:27  FTPWanderer\Debug\MyInternetSession.obj

............此处省略114个文件信息