http клиент

[123321]

Помогите чайнику в сетевом программировании.
Необходимо написать функцию которая скачивает web страницу с сайта в CString

[MaTBeu]

Друг писал класс такой. Исходный код страницы записывается в файл.
CHTTP.h

#include <WinInet.h>
#pragma comment(lib,"wininet")

class CHTTP
{
public:
	CHTTP(LPCTSTR lpszServerName, LPCTSTR lpszTarget, int Method, LPCTSTR lpszFileName);
	CHTTP();
	~CHTTP();

public:
	// инициализация WinInet
	bool OpenInet(LPCTSTR lpszAgent);
	// создаёт подключение к серверу lpszServerName - имя сервера (ukr.net)
	bool Connection(LPCTSTR lpszServerName);

	void CloseOpenedInet();
	void CloseConection();
	// проверка на ошибку
	bool ChekError(bool bTest);
	DWORD m_dwLastError;
	HINTERNET m_hInternet;
	HINTERNET m_hConnection;
	HINTERNET m_hRequest;
	// уничтожить запрос
	void CloseRequest();
	// создание и отправка запроса
	bool SendRequest(LPCTSTR lpszVerb, LPCTSTR lpszTarget);
	// передача данных методом Get
	bool Get(LPCTSTR lpszTarget);
	// передача данных методом Post
	bool Post(LPCTSTR lpszTarget);
	// записать ответ на запрос в файл
	bool WriteRespToFile(LPCTSTR FileName);
	CFile *m_lpFile;
};

CHTTP.cpp

#include "HTTPWorck.h"

CHTTP::CHTTP(LPCTSTR lpszServerName, LPCTSTR lpszTarget, int Method, LPCTSTR lpszFileName)
: m_dwLastError(0)
, m_hInternet(NULL)
, m_hConnection(NULL)
, m_hRequest(NULL)
, m_lpFile(NULL)
{
	OpenInet(TEXT(""));
	Connection(lpszServerName);
	if (Method == 1)
	{
		Post(lpszTarget);
		WriteRespToFile(lpszFileName);
	}
	else
	{
		Get(lpszTarget);
		WriteRespToFile(lpszFileName);
	}
}

CHTTP::CHTTP()
: m_dwLastError(0)
, m_hInternet(NULL)
, m_hConnection(NULL)
, m_hRequest(NULL)
, m_lpFile(NULL)
{
}

CHTTP::~CHTTP()
{
	CloseRequest();
	CloseConection();
	CloseOpenedInet();
}

// проверка на ошибку
bool CHTTP::ChekError(bool bTest)
{
	if (bTest==false)
	{
		m_dwLastError = ::GetLastError();
	}
	return bTest;
}

// инициализация WinInet
bool CHTTP::OpenInet(LPCTSTR lpszAgent)
{
	if (m_hInternet == NULL)
	{
		m_hInternet = ::InternetOpen(lpszAgent,INTERNET_OPEN_TYPE_PRECONFIG,NULL,NULL,0);
	}
	return ChekError(m_hInternet != NULL);
}

// создаёт подключение к серверу lpszServerName - имя сервера, например (ukr.net)
bool CHTTP::Connection(LPCTSTR lpszServerName)
{
	CloseConection();
	if (m_hConnection == NULL)
	{
		m_hConnection = ::InternetConnect(m_hInternet,lpszServerName,INTERNET_DEFAULT_HTTP_PORT,NULL,NULL,INTERNET_SERVICE_HTTP,0,1);
	}
	return ChekError(m_hConnection != NULL);
}

// закрывает соединение с интернет
void CHTTP::CloseOpenedInet()
{
	if (m_hInternet)
	{
		::InternetCloseHandle(m_hInternet);
	}
	m_hInternet = NULL;
}

// закрывает подключение к определённому серверу, но не заканчивает работу с интернет
void CHTTP::CloseConection()
{
	if (m_hConnection)
	{
		::InternetCloseHandle(m_hConnection);
	}
	m_hConnection = NULL;
}
// уничтожить запрос
void CHTTP::CloseRequest()
{
	if (m_hRequest)
	{
		::InternetCloseHandle(m_hRequest);
	}
	m_hRequest = NULL;
}

// создание и отправка запроса
bool CHTTP::SendRequest(LPCTSTR lpszVerb, LPCTSTR lpszTarget)
{
	if (m_hConnection)
	{
		CloseRequest();
		m_hRequest = ::HttpOpenRequest(m_hConnection,lpszVerb,lpszTarget,NULL,NULL,NULL,INTERNET_FLAG_KEEP_CONNECTION,1);
	}

	if (m_hRequest)
	{
		BOOL bSendRequest = ::HttpSendRequest(m_hRequest,NULL,0,NULL,0);
		if (!bSendRequest)
		{
			CloseRequest();
			CloseConection();
			CloseOpenedInet();
		}
	}
	return ChekError(m_hRequest != NULL);
}

// передача данных методом Get
bool CHTTP::Get(LPCTSTR lpszTarget)
{
	return SendRequest(TEXT("GET"),lpszTarget);
}

// передача данных методом Post
bool CHTTP::Post(LPCTSTR lpszTarget)
{
	return SendRequest(TEXT("POST"),lpszTarget);
}

// записать ответ на запрос в файл
bool CHTTP::WriteRespToFile(LPCTSTR FileName)
{
	if (m_hRequest)
	{
		char Data[2048];
		DWORD dwBytesRead = 0;
		
		BOOL bReadResponse = ::InternetReadFile(m_hRequest,Data,sizeof(Data)-1,&dwBytesRead);
		if (bReadResponse)
		{
			m_lpFile = new CFile();
			m_lpFile->Open(FileName,CFile::modeCreate | CFile::modeWrite);
			while (dwBytesRead!=0)
			{
				m_lpFile->Write(Data,dwBytesRead);
				bReadResponse = ::InternetReadFile(m_hRequest,Data,sizeof(Data)-1,&dwBytesRead);
			}
			m_lpFile->Close();
			delete m_lpFile;
		}
		else
		{
			return false;
		}
	}
	return ChekError(m_hRequest != NULL);
}

Все откоментировано, так что должны разобраться.

[123321]

Спасибо, завтра попробую