C++ Builder 做的https和http下载程序

//--------------------------------------------------------------------------- #include <vcl.h> #pragma hdrstop #include "Unit1.h" #include <string> //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource "*.dfm" TForm1 *Form1; //--------------------------------------------------------------------------- using namespace std; __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { } //--------------------------------------------------------------------------- void __fastcall TForm1::Button1Click(TObject *Sender) { HINTERNET hSession = NULL; HINTERNET hConnection = NULL; HINTERNET hRequest = NULL; LPCTSTR sAcceptTypes = NULL; string sHeaders; string sHostName = "download.bank.ecitic.com"; string sPort = "443"; string sRequest = "https://download.bank.ecitic.com/helpmate/test.txt"; string sResponse=""; int nRet = -1; int nLen = 0; char szRet[512]; DWORD dwRetLen = 0; int nCount = 0; DWORD dwReadLen = 0; char szBuf[8192]; string sLog; DWORD dwFlags = INTERNET_FLAG_RELOAD | INTERNET_FLAG_NO_CACHE_WRITE | INTERNET_FLAG_KEEP_CONNECTION; hSession = ::InternetOpen("RookIE/1.0", INTERNET_OPEN_TYPE_PRECONFIG, NULL, NULL, 0); if (hSession == NULL) { goto LERROR; } dwFlags |= INTERNET_FLAG_SECURE | INTERNET_FLAG_IGNORE_CERT_CN_INVALID | INTERNET_FLAG_IGNORE_CERT_DATE_INVALID; //建立连接 hConnection = ::InternetConnect(hSession, sHostName.c_str(), atoi(sPort.c_str()), NULL, NULL , INTERNET_SERVICE_HTTP, 0, 0); if (hConnection == NULL) { goto LERROR; } //建立请求 sAcceptTypes = "text/*"; hRequest = ::HttpOpenRequest(hConnection, "POST", "/helpmate/test.txt", HTTP_VERSION, NULL, &sAcceptTypes, dwFlags, 0); if (hRequest == NULL) { goto LERROR; } //添加请求 sHeaders = "Accept: \r\nContent-Type:text/xml;charset=gb2312"; nRet = ::HttpAddRequestHeaders(hRequest, sHeaders.c_str(), -1, HTTP_ADDREQ_FLAG_ADD | HTTP_ADDREQ_FLAG_REPLACE); if (nRet == 0) { goto LERROR; } //发送请求 if(nLen == 0) { nLen = sRequest.length(); } int nErrorCount; //发送请求的次数 nErrorCount = 0; nRet = ::HttpSendRequest(hRequest, NULL, -1, (void*)sRequest.c_str(), nLen); while( 0 == nRet && nErrorCount < 3 ) { nErrorCount++; DWORD dwError = GetLastError() ; if ( dwError == ERROR_INTERNET_CLIENT_AUTH_CERT_NEEDED) { LPVOID dwCert = NULL; InternetErrorDlg( (HWND)GetDesktopWindow(), hRequest, ERROR_INTERNET_CLIENT_AUTH_CERT_NEEDED, FLAGS_ERROR_UI_FILTER_FOR_ERRORS | FLAGS_ERROR_UI_FLAGS_GENERATE_DATA | FLAGS_ERROR_UI_FLAGS_CHANGE_OPTIONS, &dwCert) ; InternetSetOption(hRequest, INTERNET_OPTION_SECURITY_SELECT_CLIENT_CERT, dwCert, sizeof(dwCert)); } else if (dwError == ERROR_INTERNET_INVALID_CA) { DWORD dwBuffLen = sizeof(dwFlags); InternetQueryOption(hRequest, INTERNET_OPTION_SECURITY_FLAGS, (LPVOID)&dwFlags, &dwBuffLen); dwFlags |= SECURITY_FLAG_IGNORE_UNKNOWN_CA; InternetSetOption(hRequest, INTERNET_OPTION_SECURITY_FLAGS, &dwFlags, sizeof(dwFlags)); } else { break; } } if(0 == nRet) { nRet = ::HttpSendRequest(hRequest, NULL, -1, (void*)sRequest.c_str(), nLen); } if (nRet == 0) { goto LERROR; } //查询返回信息 dwRetLen = 1024; memset(szRet, 0x0, sizeof(szRet)); nRet = ::HttpQueryInfo(hRequest, HTTP_QUERY_STATUS_CODE, szRet, &dwRetLen, NULL); if(nRet == 0) { goto LERROR; } nRet = atoi(szRet); if(HTTP_STATUS_PROXY_AUTH_REQ == nRet) { InternetSetOption(hRequest, INTERNET_OPTION_PROXY_USERNAME, "User-001", strlen("User-001")); InternetSetOption(hRequest, INTERNET_OPTION_PROXY_PASSWORD, "111111", strlen("111111")); nRet = ::HttpSendRequest(hRequest, NULL, -1, (void*)sRequest.c_str(), nLen); if (nRet == 0) { goto LERROR; } dwRetLen = 1024; memset(szRet, 0x0, sizeof(szRet)); nRet = ::HttpQueryInfo(hRequest, HTTP_QUERY_STATUS_CODE, szRet, &dwRetLen, NULL); if(nRet == 0) { goto LERROR; } nRet = atoi(szRet); } if(nRet != HTTP_STATUS_OK) { goto LERROR; } //读取文件 nCount = 0; dwReadLen = 0; sResponse.clear(); do { memset(szBuf, 0x0, sizeof(szBuf)); ::InternetReadFile(hRequest, szBuf, sizeof(szBuf), &dwReadLen); sResponse += szBuf; nCount++; }while (dwReadLen != 0); Edit1->Text = sResponse.c_str(); LERROR: ::InternetCloseHandle(hRequest); ::InternetCloseHandle(hConnection); ::InternetCloseHandle(hSession); } //---------------------------------------------------------------------------