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

return 1; // выход из функции OnButtonConnect()

}

// вывод данных о сервере

m_mes = "";

m_mes += "Server Name = ";

m_mes += (CString)strServerName; m_mes += "rn";

m_mes += "Object Name = ";

m_mes += (CString)strObject; m_mes += "rn";

m_mes += "Port = ";

itoa( nPort, temp, 10 );

m_mes += (CString)&temp[0]; m_mes += "rn";

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: */*rnUser-Agent: ANDYrn" ) );

// посылаем запрос

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 += "rn";