CHTTPFile::SendRequest get feedback data from server

Question

I used successfully to post a form to my webserver using MFC's function CHttpFile::SendRequest. The server respond success with return code 200.

The problem is that I want to get more data from the server like a custom process code or a custom string code. For example pFile->ReadString(str) gives me the chance to read something but what ?

How to setup my server to send back to caller such informations ? My server runs apache.

Answer 1

The Read/ReadString below returns anything you want to return. Just decode each line you receive from the server.

pFile->ReadString(str)

CString MyClass::PostWebFormActivation() {

CString             strHeaders;
CInternetSession    session;
CString             strFormData;
CHttpConnection     *pConnection;
CHttpFile           *pFile;
BOOL                result;
DWORD               dwRet;
CString             strServerResponse;
CString             strExceptionError;
INTERNET_PORT       nPort(80);
CString             strServer;
CString             strObject;
CString             strSubmitValue = _T("1");
CString             strLine;
CString             strTemp;
INT                 pos;
CUtils              util;


// URL-encoded form variables -

// serial = "xxxxxxx", systemcode = "xxxxx", username = "xxxxxxx", restoreemail = "xxxxxxx". strCAPTCHA = "Xyz!"
strFormData = _T(SUBMIT_FORM) + _T(strSubmitValue)+ _T(SERIAL_FIELD) + _T(m_strSerial) + _T(SYSTEMCODE_FIELD) + _T(m_strSystemCode) + _T(USERNAME_FIELD) + _T(m_strUsername) + _T(RESTORE_EMAIL_FIELD) + _T(m_strRestoreEmail) + _T(CAPTCHA_FIELD);

pConnection = NULL;
pFile = NULL;

//I can use the AfxParseURL instead of the following code
strServer = ((CMainFrame *)AfxGetMainWnd())->m_strWebActivateProductURL;
strTemp = strServer;
strTemp.MakeUpper();
pos = strTemp.Find(_T("HTTP://"));
if (pos != -1) {

    strServer = strServer.Mid(7); // remove http://

}

pos = strServer.Find('/',0);

strObject = strServer.Mid(pos); //the path after the domain ie /dir/index.php
strServer = strServer.Left(pos);//server is the actual domain ie www.mywebsite.gr


if (util.CheckURLFileExtension(strObject) == _T("") ) {
    //folder
    if (strObject.Find('/',strObject.GetLength()) == -1) {
        strObject += _T("/?");
    }

} else {

    //file
    strObject += _T("?");

}




try {

    pConnection = session.GetHttpConnection( strServer , nPort);


    pFile = pConnection->OpenRequest(CHttpConnection::HTTP_VERB_POST /*HTTP_VERB_GET*/,strObject /*_T("/paradox4a/activate/?") or _T("/paradox4a/activate/index.php?")*/);

    //pFile->AddRequestHeaders(szHeaders); //not needed.
    strHeaders = _T("Content-Type: application/x-www-form-urlencoded\r\n"); 

    result = pFile->SendRequest(strHeaders, (LPVOID) (LPCTSTR) strFormData, strFormData.GetLength());

    if (result > 0) {

        pFile->QueryInfoStatusCode(dwRet);
        strServerResponse.Empty();
        if (dwRet == HTTP_STATUS_OK) {
            while(pFile->ReadString(strLine)) {
                strServerResponse += strLine + "\r\n";
            }

        } else {        
            strServerResponse = _T("ERROR");
            AMLOGINFO(_T("Trying to post a form to server for activation procedure, got communication error [%d]" ), dwRet);
        }

    } else {
        strServerResponse = _T("ERROR");
        AMLOGINFO(_T("Trying to post a form to server for activation procedure, got communication error [%d]" ), result );
    }


} catch (CInternetException* pEx)   {
    TCHAR sz[1024];

    CString s = util.getInetError(pEx->m_dwError);
    strServerResponse = _T("ERROR");
    pEx->GetErrorMessage( sz,1024 );
    pEx->Delete();

    AMLOGINFO(_T("Trying to post a form to server for activation procedure, got network error [%s]" ), strExceptionError );

}


if (pFile) {
    pFile->Close();
    delete pFile;
}

if (pConnection) {
    pConnection->Close();
    delete pConnection;
}





return strServerResponse;

}