셈말짓기 RSS FEED

 

void CSoapClient_XXXXXDlg::OnButton1() 
{
	// TODO: Add your control notification handler code here
	if (FAILED(CoInitializeEx(NULL,COINIT_MULTITHREADED)))
		return;
	InvokeWebSvc  (GetDlgItem (IDC_LIST1)->GetSafeHwnd ());
	CoUninitialize();	
}

       

       

// COM 관련 클래스를 사용하기 위해 해더 파일을 인클루드합니다.
#include <comdef.h>
#include <atlbase.h>

// MSXML과 MSSoap30 COM의 스마트 포인터를 위해 임포트 시킵니다.
#import "C:\Windows\System32\msxml3.dll"
#import "C:\Program Files\Common Files\MSSoap\Binaries\mssoap30.dll" \
         named_guids exclude("IStream", "IErrorInfo", "ISequentialStream", \
         "_LARGE_INTEGER", "_ULARGE_INTEGER", "tagSTATSTG", "_FILETIME")

// 네임스페이스를 무시합니다.
using namespace MSXML2;
using namespace MSSOAPLib30;

void InvokeWebSvc (HWND hWnd)
{
	BSTR    bstrWsdl   = SysAllocString (L"http://XXX.XXX.XXX.XXX/asp.net/svc/MyWebSvc/MyWebSvc.asmx?WSDL");
	                     // WSDL파일 URL경로를 지정
	BSTR    bstrMethod = SysAllocString (L"Test");       // 웹서비스 메소드 이름
	BSTR    bstrParam  = SysAllocString (L"From Win32"); // 웹서비스 메소드 파라메터
	VARIANT varResult;                                   // 웹서비스 메소드의 리턴값

	CComPtr<ISoapClient> pSoapClient; // MSSoap30 객체의 스마트 포인터

	HRESULT    hr;
	DISPPARAMS dispparams;   // IDispatch::Invoke() 함수를 부르기 위한 파라메터들
	EXCEPINFO  excepinfo;
	DISPID     dispid;
	UINT       uArgErr;

	UINT uDim        = 0;    // 결과값 문자열 배열의 차원 정보
	long lLBound     = 0l;   // 결과값 문자열 배열의 낮은 인덱스
	long lUBound     = 0l;   // 결과값 문자열 배열의 높은 인덱스
	long nBoundIndex = 0l;   // 결과값 문자열 배열 인덱스로 값을 읽어올때 사용합니다.
	BSTR bstrElement = NULL; // 결과값 문자열 배열의 하나의 값을 읽어올때 사용합니다.


#if !(defined(_UNICODE) || defined(OLE2ANSI)) // UNICODE / MBCS 설정에 관계없이 사용하기 위해서 추가했습니다.
	USES_CONVERSION;
#endif

	// IDispatch::Invoke() 파라메터/리턴값 초기화
	VariantInit(&varResult);
	ZeroMemory (&excepinfo,  sizeof(EXCEPINFO));
	ZeroMemory (&dispparams, sizeof(DISPPARAMS));

	try
	{
		hr = pSoapClient.CoCreateInstance (__uuidof(SoapClient30)); // MSSoap30 객체를 생성합니다.

		hr = pSoapClient->MSSoapInit (bstrWsdl, L"", L"", L"");     // WSDL파일 URL경로를 이용하여
		                                                            // MSSoap30 객체를 초기화합니다.

		dispparams.rgvarg             = new VARIANTARG[1];          // IDispatch::Invoke()의 파라메터
		dispparams.cArgs              = 1;                          // 값을 설정합니다.
		dispparams.cNamedArgs         = 0;
		dispparams.rgdispidNamedArgs  = NULL;	 
		dispparams.rgvarg[0].vt       = VT_BYREF|VT_BSTR;
		dispparams.rgvarg[0].pbstrVal = &bstrParam;                 // L"From Win32" 값을 설정합니다.

		// Test()의 이름으로 메소드 아이디를 얻습니다.
		hr = pSoapClient->GetIDsOfNames (IID_NULL, &bstrMethod, 1, LOCALE_SYSTEM_DEFAULT, &dispid);
		// Test() 메소드를 수행합니다.
		hr = pSoapClient->Invoke(dispid, IID_NULL, LOCALE_USER_DEFAULT, DISPATCH_METHOD,
                                 &dispparams, &varResult, &excepinfo, &uArgErr);

		// 결과값이 문자열 배열인지 확인합니다.
		if ((VT_BSTR|VT_ARRAY)==varResult.vt)
		{		
			uDim = SafeArrayGetDim    (varResult.parray);                 // 몇 차원배열인지 확인합니다.
			hr   = SafeArrayGetLBound (varResult.parray, uDim, &lLBound); // 배열의 낮은 인덱스를 구합니다.
			hr   = SafeArrayGetUBound (varResult.parray, uDim, &lUBound); // 배열의 높은 인덱스를 구합니다.

			// 1차원 배열임을 보증합니다.
			ASSERT (uDim == 1);

			// 배열의 갯수 만큼 반복
			for (nBoundIndex=lLBound; nBoundIndex<=lUBound; nBoundIndex++)
			{
				// 배열로 부터 인덱스에 해당하는 문자열을 읽어옵니다.
				hr = SafeArrayGetElement(varResult.parray, &nBoundIndex, &bstrElement);

				// 문자열을 리스트박스 컨트롤에 추가합니다.
#if !(defined(_UNICODE) || defined(OLE2ANSI))
				SendMessage (hWnd, LB_ADDSTRING, 0, (LPARAM)W2A(bstrElement));
#else
				SendMessage (hWnd, LB_ADDSTRING, 0, (LPARAM)bstrElement);
#endif
				SysFreeString (bstrElement);
				bstrElement = NULL;
			}
		}
	}
	catch (CException* pE)
	{
		// 오류가 발생할 경우 에러메세지를 출력합니다.
		TCHAR szErrMessage[512];

		ZeroMemory (szErrMessage, sizeof(TCHAR[512]));
		pE->GetErrorMessage(szErrMessage, sizeof(TCHAR[512]), NULL);
		AfxMessageBox (szErrMessage);
		delete pE;
	}
	catch (...)
	{
		AfxMessageBox (TEXT("Unknown Exception!"));
	}

	// 사용된 리소스를 해제 합니다.
	VariantClear (&varResult);		
	if (bstrElement)       SysFreeString (bstrElement);
	if (bstrParam)         SysFreeString (bstrElement);
	if (bstrMethod)        SysFreeString (bstrElement);
	if (bstrWsdl)          SysFreeString (bstrElement);
	if (pSoapClient)       pSoapClient.Release();
	if (dispparams.rgvarg) delete [] dispparams.rgvarg;
}

       

  

// COM 관련 클래스를 사용하기 위해 해더 파일을 인클루드합니다.
#include <Atlbase.h>
#include <ComDef.h>
#include <Mssoap.h>
#include <Msxml2.h>

void InvokeWebSvc(HWND hWnd)
{
	CComVariant varWsdl         (L"http://XXX.XXX.XXX.XXX/asp.net/svc/MyWebSvc/MyWebSvc.asmx?WSDL");
	                            // WSDL파일 URL경로를 지정
	CComVariant varSoapAction   (L"http://tempuri.org/Test"); // SoapAction 지정
	CComBSTR    bstrUri         (L"http://tempuri.org/");     // uri 지정
	CComBSTR    bstrMethod      (L"Test");          // 웹서비스 메소드 이름
	CComBSTR    bstrReqParamName(L"message");       // 파라메터 이름
	CComBSTR    bstrReqParamVal (L"From WinCE420"); // 파라메터 값

	CComPtr<ISoapSerializer> pSerializer   = NULL; // Soap 직렬 객체
	CComPtr<ISoapConnector>  pConnector    = NULL; // Soap 연결 객체
	CComPtr<ISoapReader>     pReader       = NULL; // Soap 읽기 객체
	CComPtr<IStream>         pIStream      = NULL; // Soap 입력 스트림
	CComPtr<IStream>         pOStream      = NULL; // Soap 출력 스트림
	CComPtr<IXMLDOMDocument> pDOMDocument  = NULL; // xml 결과 문서 객체
	CComPtr<IXMLDOMElement>  pDOMElement   = NULL; // xml 결과 부분의 항목
	CComPtr<IXMLDOMNodeList> pDOMChildNodes= NULL; // xml 결과 부분의 노드리스트
	CComPtr<IXMLDOMNode>     pDOMChildNode = NULL; // xml 결과 부분의 노드
	
	HRESULT      hr;
	VARIANT_BOOL vbSuccess;
	CComVariant  varTemp;
	CComBSTR     bstrResult;

	BSTR bstrElement=NULL;
	long lCount     =0l;
	long lIndex     =0l;


	// Soap 관련 COM 객체를 생성합니다.
	hr = pConnector .CoCreateInstance(__uuidof(HttpConnector));
	hr = pSerializer.CoCreateInstance(__uuidof(SoapSerializer));
	hr = pReader    .CoCreateInstance(__uuidof(SoapReader));
	

	// Soap 객체의 초기화를 합니다.
	hr = pConnector ->Reset();
	hr = pSerializer->reset();
	

	// Soap 객체의 속성을 지정합니다.
	hr = pConnector->put_Property(CComBSTR(L"EndPointURL"), varWsdl);
	hr = pConnector->put_Property(CComBSTR(L"SoapAction"),  varSoapAction);
	
	
	// Soap 연결 객체를 초기화하고 전송할 SOAP 메세지를 작성합니다.
	hr = pConnector->Connect();
	hr = pConnector->BeginMessage();
	
	hr = pConnector->get_InputStream(&pIStream);
	varTemp = pIStream;
	hr = pSerializer->Init(varTemp);
	
	hr = pSerializer->startEnvelope(NULL, NULL, NULL);
	hr = pSerializer->startBody    (NULL);
	hr = pSerializer->startElement (bstrMethod, NULL, NULL, NULL);
	hr = pSerializer->SoapAttribute(CComBSTR(L"xmlns"),NULL,  bstrUri, NULL);
	hr = pSerializer->startElement (bstrReqParamName, NULL, NULL, NULL);
	hr = pSerializer->writeString  (bstrReqParamVal);
	hr = pSerializer->endElement   ();
	hr = pSerializer->endElement   ();
	hr = pSerializer->endBody      ();
	hr = pSerializer->endEnvelope  ();
	
	hr = pConnector->EndMessage();
	

	// SOAP 읽기 객체로 부터 응답 메세지를 받습니다.
	hr      = pConnector->get_OutputStream(&pOStream);
	varTemp = pOStream;
	
	hr = pReader->load(varTemp, CComBSTR(L""), &vbSuccess);


	// 디버깅 창에 받은 메세지를 출력합니다.
	hr = pReader     ->get_DOM (&pDOMDocument);	
	hr = pDOMDocument->get_xml (&bstrResult);
	TRACE (L"\n# Response\n{\n%s\n}\n\n", bstrResult);


	hr = pReader       ->get_RPCResult (&pDOMElement);    // xml 결과 부분의 항목을 가져옵니다.
	hr = pDOMElement   ->get_childNodes(&pDOMChildNodes); // xml 결과 부분의 노드리스트를 가져옵니다.
	hr = pDOMChildNodes->get_length    (&lCount);
	for (lIndex=0; lIndex<lCount; lIndex++)
	{
		// xml 결과 데이터를 하나씩 읽습니다.
		hr = pDOMChildNodes->nextNode (&pDOMChildNode);
		hr = pDOMChildNode ->get_text (&bstrElement);
		
		// 리스트 박스에 결과 데이터를 추가합니다.
		SendMessage (hWnd, LB_ADDSTRING, 0, (LPARAM)bstrElement);

		SysFreeString (bstrElement);
		bstrElement = NULL;

		pDOMChildNode.Release ();
	}
}

       

 
  
// COM 관련 클래스를 사용하기 위해 해더 파일을 인클루드합니다.
#include <atlbase.h>

// 제가 분리해놓은 파일중 이 파일 하나만 인클루드 하면됩니다.
#include "PocketSOAP\pSOAP.h"

void InvokeWebSvc (HWND hWnd)
{
	CComBSTR    bstrWsdl        (L"http://XXX.XXX.XXX.XXX/asp.net/svc/MyWebSvc/MyWebSvc.asmx?WSDL");
	                            // WSDL파일 URL경로를 지정
	CComBSTR    bstrUri         (L"http://tempuri.org/");      // uri 지정
	CComBSTR    bstrSoapAction  (L"http://tempuri.org/Test");  // SoapAction 지정
	CComBSTR    bstrMethod      (L"Test");        // 웹서비스 메소드 이름
	CComBSTR    bstrReqParamName(L"message");     // 파라메터 이름
	CComVariant varReqParamVal  (L"From PPC2K3"); // 파라메터 값

	CComPtr<ISOAPEnvelope>     pEnvelope;   // PocketSoap 객체
	CComPtr<IHTTPTransportAdv> pHttpTrans;  // Http 전송 객체
	CComPtr<ISOAPNodes>        pReqParams;  // Request 노드 리스트
	CComPtr<ISOAPNode>         pReqParam;   // Request 노드
	CComPtr<ISOAPNodes>        pResParams;  // Response 노드 리스트
	CComPtr<ISOAPNode>         pResParam;   // Response 노드 리스트
	CComPtr<ISOAPNodes>        pChildNodes; // 결과값 노드 리스트
	CComPtr<ISOAPNode>         pChildNode;  // 결과값 노드

	HRESULT     hr;
	CComBSTR    bstrReqXMLData; // Request  xml 문자열
	CComBSTR    bstrResXMLData; // Response xml 문자열
	CComVariant varValue;

	long        lChildNodeCount = 0;
	long        lIndex          = 0;


	// Soap 관련 COM 객체를 생성합니다.
	hr = pEnvelope .CoCreateInstance(__uuidof(CoEnvelope));
	hr = pHttpTrans.CoCreateInstance(__uuidof(HTTPTransport));

	// Soap 객체에 속성을 지정합니다.
	hr = pEnvelope->put_EncodingStyle (CComBSTR(L""utf-8"));
	hr = pEnvelope->SetMethod (bstrMethod, bstrUri);

	hr = pEnvelope ->get_Parameters(&pReqParams); // Soap 객체에 파라메터를 지정합니다.
	hr = pReqParams->Create(bstrReqParamName, varReqParamVal, bstrUri, NULL, NULL, NULL);

	hr = pHttpTrans->put_SOAPAction(bstrSoapAction);


	// Soap 보낼 xml 데이터를 작성합니다.
	hr = pEnvelope ->Serialize (&bstrReqXMLData);
	TRACE (L"# Request\n{\n%s\n}\n\n", bstrReqXMLData); // 보낼 xml 데이터 디버깅 창에 출력합니다.

	// xml 데이터를 보냅니다.
	hr = pHttpTrans->Send (bstrWsdl, bstrReqXMLData);


	// xml 데이터를 받습니다.
	hr = pEnvelope ->Parse(CComVariant(pHttpTrans), NULL);

	hr = pEnvelope ->get_Parameters(&pResParams);
	hr = pResParams->get_Item      (0, &pResParam);


	hr = pEnvelope ->Serialize (&bstrResXMLData);
	TRACE (L"# Response\n{\n%s\n}\n\n", bstrResXMLData); // 받은 xml 데이터 디버깅 창에 출력합니다.


	hr = pResParam  ->get_Nodes (&pChildNodes);
	hr = pChildNodes->get_Count (&lChildNodeCount);
	for (lIndex=0; lIndex<lChildNodeCount; lIndex++)
	{
		// 데이터를 하나씩 읽습니다.
		hr = pChildNodes->get_Item  (lIndex, &pChildNode);
		hr = pChildNode ->get_Value (&varValue);

		// 리스트 박스에 결과 데이터를 추가합니다.
		SendMessage (hWnd, LB_ADDSTRING, 0, (LPARAM)varValue.bstrVal);

		pChildNode.Release ();
		varValue  .Clear   ();
	}
}