Создание простого HTTP - клиента

В этой главе будет написана программа, которая может считывать файлы из Internet по HTTP протоколу и записывать их на диск.
Для связи с Internet в Visual C++ существует так называемый WinInet Class. В него входят несколько подклассов.
Далее представлены ксассы WinInet:

...

CString m_url = "mark5.dhtp.kiae.ru"; // имя URL
CString m_mes; // переменная в которой будут хранится сообщения
char temp[100]; // промежуточная переменная для перевода // данных из Int в char
CString m_path; // имя файла для записи
char strBody[1024]; // буфер из 1024 байт 
...

int CHTTP_ClientDlg::OnButtonConnect() 
{ // создаём переменную session и открываем сессию ANDY CInternetSession session( _T( "ANDY" ), PRE_CONFIG_INTERNET_ACCESS );
 // создаём переменную pServer класса CHttpConnection CHttpConnection* pServer = NULL;
 // создаём переменную pFile класса CHttpFile CHttpFile* pFile = NULL;

/*
Обратите внимание, что все запросы к функциям членам WinInet классов включены в блок программы TRY.
Это сделано так, потому что при соединении с каким либо URL есть риск неправильной ссылки,
особенно, когда Вы полагаете, что пользователь сам печатает URL. 
Другая проблема - времена ожидания, которые возникают, когда требуемый URL в настоящее время
неспособен обслужить подключение. 
Так же обработка WinInet исключений, которые представлены в классе
CInternetException, является важной частью создания Internet приложения под MFC.
*/ 
 try { CString strServerName; // имя сервера CString strObject; // имя объекта INTERNET_PORT nPort; // номер порта для связи DWORD dwServiceType; // тип сервиса
 // функция AfxParseURL получает данные с указанного URL ( у нас m_url ) об сервере, // объекте, типе сервиса и порте 
 if ( AfxParseURL( m_url, dwServiceType, strServerName, strObject, nPort ) == 0 ) { return 1; // выход из функции OnButtonConnect() } // вывод данных о сервере
 m_mes = ""; m_mes += "Server Name = "; m_mes += (CString)strServerName; m_mes += "\r\n"; m_mes += "Object Name = "; m_mes += (CString)strObject; m_mes += "\r\n"; m_mes += "Port = "; itoa( nPort, temp, 10 ); m_mes += (CString)&temp[0]; m_mes += "\r\n"; UpdateData( FALSE );
 // Устанавливаем подключение по HTTP протоклолу. pServer = session.GetHttpConnection( strServerName, nPort );
 // посылаем запрос об объекте ( strObject ) pFile = pServer->OpenRequest( CHttpConnection::HTTP_VERB_GET, strObject, NULL, 1, NULL, NULL, INTERNET_FLAG_EXISTING_CONNECT | INTERNET_FLAG_NO_AUTO_REDIRECT ); // Добавляем заголовок к HTTP запросу pFile->AddRequestHeaders( _T( "Accept: */*\r\nUser-Agent: ANDY\r\n" ) );
 // посылаем запрос pFile->SendRequest( );
 DWORD dwRet; // переменная для хранения кода состояния pFile->QueryInfoStatusCode( dwRet ); // записываем код состояния в dwRet
 // вывод данных m_mes += "The HTTP GET returned a status code of "; itoa( dwRet, temp, 10 ); m_mes += (CString)&temp[0]; m_mes += "\r\n"; CString strHeader; // переменная для хранения полученного заголовока запроса pFile->QueryInfo(HTTP_QUERY_RAW_HEADERS_CRLF, strHeader); // записываем заголовок в strHeader
 // вывод данных m_mes += "Header = "; m_mes += strHeader; UpdateData( FALSE ); // если код состояния не равен 200, то выходим из функции if( dwRet != 200 ) { m_mes += "Program terminate!"; UpdateData( FALSE ); return 1; }
// - // проверка выбора файла для записи m_mes += "Starting download the file."; m_mes += "\r\n";
 if( m_path == "" ) { m_mes += "Error! No file to save. Choese the file."; m_mes += "\r\n"; UpdateData( FALSE ); return 1; } else { m_mes += "File name to save : "; m_mes += m_path; m_mes += "\r\n"; UpdateData( FALSE ); } CFile file2; // объявляем переменную file2 класса CFile // открываем файл для записи в двоичном формате ( CFile::typeBinary ) !!! file2.Open((LPCTSTR)m_path, CFile::modeCreate|CFile::modeWrite|CFile::typeBinary);
 int allRead = 0; // переменная для хранения общего числи считанных байт int nRead = pFile->Read( strBody, 1024 ); // считываем первые 1024 байта в буфер. // переменная nRead хранит количество // считанных байт 
 allRead += nRead; // обновляем общее число считанных байт
 // вывод данных m_mes += "Loading "; itoa( nRead, temp, 10 ); m_mes += (CString)&temp[0]; m_mes += " bytes"; m_mes += "\r\n"; UpdateData( FALSE ); // записываем буфер из nRead байт в файл file2.Write( strBody, nRead ); 
 // цикл считывания, пока nRead не будет равняться нулю while ( nRead > 0 ) { nRead = pFile->Read( strBody, 1024 ); if( nRead != 0 ) { m_mes += "Loading "; itoa( nRead, temp, 10 ); m_mes += (CString)&temp[0]; m_mes += " bytes"; m_mes += "\r\n";
 file2.Write( strBody, nRead ); allRead += nRead; UpdateData( FALSE ); } }
 // вывод данных m_mes += "\r\n"; m_mes += "Total bytes = "; itoa( allRead, temp, 10 ); m_mes += &temp[0]; m_mes += "\r\n"; UpdateData( FALSE ); file2.Close(); // закрываем файл
 pFile->Close(); // закрываем Internet файл pServer->Close(); // закрываем сервер
 m_mes += "Download is complete !!!"; m_mes += "\r\n";UpdateData( FALSE ); }
 catch ( CInternetException* pEx ) { // Если произошла ошибка в WinInet
 // вывод ошибки char szErr[1024]; pEx->GetErrorMessage( szErr, 1024 );
 m_mes += "Error: ( "; itoa( int(pEx->m_dwError), temp ,10 ); m_mes += (CString)&temp[0]; m_mes += " ) "; m_mes += (CString)&szErr[0]; m_mes += "\r\n"; UpdateData( FALSE );
 pEx->Delete( ); // удаление переменной класса CInternetException if ( pFile != NULL ) delete pFile; // закрываем Internet файл if ( pServer != NULL ) delete pServer; // закрываем сервер session.Close( ); // закрываем сессию return 1; }
 if ( pFile != NULL ) delete pFile; // закрываем Internet файл if ( pServer != NULL ) delete pServer; // закрываем сервер session.Close( ); // закрываем сессию return 0;
}