INFORMAZIONI: Applicazione di Visual c ++ mediante ServerXMLHTTP o XMLHTTP in modalità asincrona deve pump messaggi

hr=pXMLHTTPReq->open("POST", "http://www.server1.com/test.asp", VARIANT_TRUE);	
				

#import "msxml3.dll"
using namespace MSXML2;     // For Msxml3.dll.

#include "stdio.h"

void dump_com_error(_com_error &e)
{
	printf("Error\n");
	printf("\a\tCode = %08lx\n", e.Error());
	printf("\a\tCode meaning = %s", e.ErrorMessage());
	_bstr_t bstrSource(e.Source());
	_bstr_t bstrDescription(e.Description());
	printf("\a\tSource = %s\n", (LPCSTR) bstrSource);
	printf("\a\tDescription = %s\n", (LPCSTR) bstrDescription);
}

int main()
{
	HRESULT hr = CoInitialize(NULL);
	
	try{	
		IXMLHTTPRequestPtr pXMLHTTPReq = NULL;
		hr=pXMLHTTPReq.CreateInstance(__uuidof(XMLHTTP30));
		
		//Uncomment the following lines if you are using ServerXMLHTTPRequest. 
		//IServerXMLHTTPRequestPtr pXMLHTTPReq = NULL;
		//hr=pXMLHTTPReq.CreateInstance(__uuidof(ServerXMLHTTP30));	
		
		hr=pXMLHTTPReq->open("POST", "http://www.server1.com/test1.asp", VARIANT_TRUE);			
		
		hr = pXMLHTTPReq->setRequestHeader("charset", "UTF-8");
		hr=pXMLHTTPReq->send("<?xml version=\"1.0\" encoding=\"UTF-8\"?><REQUEST>request1</REQUEST>");
		
		long readyState = READYSTATE_UNINITIALIZED;		
		MSG msg;		
		while (readyState != READYSTATE_COMPLETE)
		{
                          //Without this message pump, readyState does not change.
			if (PeekMessage(&msg, 0, 0 ,0, PM_REMOVE))
			{
				TranslateMessage (&msg) ;
				DispatchMessage (&msg) ;
			}
			
			readyState = pXMLHTTPReq->GetreadyState();
			
		}
		MessageBox(NULL, "readyState is COMPLETE ", "readystate", MB_OK);		
		
		long status= pXMLHTTPReq->Getstatus();		
	}
	catch(_com_error &e)
	{
		dump_com_error(e);
	}
	return 0;
}

				

   	hr=pXMLHTTPReq.CreateInstance(__uuidof(ServerXMLHTTP30));
   	 		
   	hr=pXMLHTTPReq->open("POST", "http://www.server1.com/test1.asp", VARIANT_TRUE);			
   		
   	hr = pXMLHTTPReq->setRequestHeader("charset", "UTF-8");
   	hr=pXMLHTTPReq->send("<?xml version=\"1.0\" encoding=\"UTF-8\"?><REQUEST>request1</REQUEST>");

        VARIANT Timeout;
        VariantInit(&Timeout);
        Timeout.vt = VT_I4;
        Timeout.lVal = 60;  // Timeout value of 60 seconds.

	VARIANT_BOOL bSucceeded;
        //Passing vtMissing as the first parameter sets the timeout value to infinite.
            hr = pXMLHTTPReq->waitForResponse(Timeout, &bSucceeded);
            
   		long status= pXMLHTTPReq->Getstatus();