Search

'MSXML'에 해당되는 글 3건

  1. 2007.06.01 겨우 찾아낸 제대로 된 XML 파싱 (3)
  2. 2007.05.05 MSXML 사용법 요약
  3. 2007.05.05 Microsoft XML Core Service(MSXML)

겨우 찾아낸 제대로 된 XML 파싱

Projects/CoVNC 2007.06.01 16:19 Posted by soulfree >동네청년<

================================================
안준철님 정말 감사합니다.
================================================
 출처 : 블로그 > Jon's 블로그
 http://blog.naver.com/junechol/140022015860

xml에 있는 데이터를 액셀 파일로 저장하려고 한다.

화면에 액셀이 뜨지는 않고 조용히 xls 파일이 만들어져야 한다.

이를 위해서는 excel automation을 써야 한다.

또한 xml을 읽어들이는 작업은 msxml 컴포넌트를 쓴다.


비주얼 스투디오에서 끌어오기 하는 방식으로 automation을 하기도 한다.

숱한 참조문서에서 그렇게들 한다.

나도 그렇게 했었다.

왜 되는지는 모르고 되니까 좋아했다.


여기서는 #import로 automation하는 방법을 쓴다.

이게 이해하기도 쉽고, 소스파일 갯수와 크기가 줄어든다.

샘플 프로그램은 window console 기반 api 프로그램이다.

(뭐 MFC가 싫지는 않지만, 프로그래머를 바보로 만든다.)


두가지 컴포넌트를 쓴다.

1. excel.exe (액셀을 깔아야 한다. 당연히...)

2. msxml2.dll (msxml 2.6 이상의 버전을 깔면 된다. ms에서 다운가능)


완전한 소스를 올리기는 그러니 요약해서 커멘트하겠다.


------------------------------------------------------


// printf 와 strxxx 함수들을 쓰려면 이것들은 써야한다.

#include <stdio.h>
#include <tchar.h>


// #import 가 뭐하는 거냐하면...

// 아무것도 안하고 #import "msxml2.dll" 만 한다음에 컴파일해 보라.

// msxml.tlh 와 msxml.thi 가 debug 디렉토리에 생긴다.

// 이 파일들이 automation의 마술을 한다.


#import "msxml2.dll"
using namespace MSXML2;
// 뒤에 보면 여전히 MSXML2::xxx 라고 쓰고 있다. ambiguity가 발생하기 때문이다.


// excel은 절대경로로 import 할 수밖에 없을게다.

#import "C:\Program Files\Common Files\Microsoft Shared\OFFICE11\MSO.DLL" \
   rename("RGB", "MsoRGBType")
#import "C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6EXT.OLB"
#import "C:\\Program Files\\Microsoft Office\\OFFICE11\\excel.exe"\
   rename("DialogBox", "ExcelDialogBox") \
   rename("RGB", "MsoRGBType") \
   rename("CopyFile", "ExcelCopyFile") \
   no_dual_interfaces
using namespace Excel;


// ---------소스 생략----------

// main 과 doTranslate만 보면 된다.


int main(int argc, char* argv[])
{
  char excelFilename[1024];


// 실행시 파라미터 까보기 생략


// CoInitialize는 automation (COM interface 사용) 에는 필수다.

  HRESULT hr;
  hr = CoInitialize(NULL);


  printf("opening %s using MSXML2\n", argv[1]);



// xxxPtr 은 신비한 타입이다.

// xxxPtr.func() 도 있고 xxxPtr->func() 도 된다. (두가지는 다른 용도로 쓰인다.)

// smart pointer라는 것인데, _COM_SMARTPTR_TYPEDEF() 매크로를 볼 것.

  IXMLDOMDocument2Ptr pXMLDoc;


// IXMLDOMDocument2Ptr::CreateInstance 는 _com_ptr_t 템플릿 클래스의 멤버함수다.

// (comip.h 참조)

// 이건 CoCreateInstance를 불러서 COM object instance를 만든다.


// "Msxml2.DOMDocument" 가 어디서 나온건지 궁금하면...

// regedit.exe를 실행해서 HKEY_CLASSES_ROOT 아래에서 찾아보라.

// 이 스트링으로부터 CLSID 값을 받아낼 수 있다.

// 나중에 나오는 "Excel.Application"도 마찬가지

  hr = pXMLDoc.CreateInstance(L"Msxml2.DOMDocument");


// 여기서 리턴된 값이 S_OK 가 아니면 CoCreateInstance가 실패한 것이다.
  if (hr == S_OK)
  {

// _variant_t 는 VARIANT 타입의 불편함을 덜어주는 클래스다. (comutil.h 참조)

// #import 하면 이런 comxxx.h 헤더들이 다 include 된 것이다.
    _variant_t vFilename;
    vFilename.SetString(argv[1]);


// 이번에는 xxxPtr->func() 을 사용했다.

// 이건 xxx 의 함수다. 즉, 이 경우 IXMLDOMDocument2의 함수다.

// msxml2.tlh 에 사용할 수 있는 함수들이 뭐가 있는지 볼 수 있다.

// 문제는 함수 프로토타입만 있지, 뭐에 쓰는 함수인지는 없다는 건데...

// 이건 해당 컴포넌트의 매뉴얼을 (있다면) 참조하는 수밖에 없다.

// 다행히 msxml 이나 excel 은 그나마 msdn 문서가 좀 있다.


// IXMLDOMDocument2::load 는 xml 파일을 읽는 함수다.

// xml 파일이 조금만 잘못되어 있어도 에러가 난다.

// 아래쪽 else 의  GetparseError()->get_reason() 해서 어지간한 이유는 알 수 있다.

    if (pXMLDoc->load(vFilename))
    {
      doTranslate(pXMLDoc, excelFilename);
    }
    else
    {

// _bstr_t는 BSTR을 쓰기 편하게 만든 클래스임.(comutil.h 참조)
      _bstr_t bsReason;
      pXMLDoc->GetparseError()->get_reason(bsReason.GetAddress());

// printf 의 %S는 wchar 스트링을 찍는다.(%s 아님)
      printf("%S\n", bsReason);
    }

// CreateInstance() 했다면 반드시 Release() 또는 Detach() 해야한다.
    pXMLDoc.Release();
  }
  else
  {
    printf("Cannot create DOMDocument instance.\nDid ");
  }

// CoInitialize()를 부른 프로그램은 끝내기 전에 반드시 CoUninitialize() 해야 한다.

  CoUninitialize();
  return 0;
}


void doTranslate(IXMLDOMDocument2Ptr pXMLDoc, const char *excelFilename)
{
  HRESULT hr;
  int i, j;


// 왜 하필 _ApplicationPtr 로 CreateInstance를 하는 걸까?

// 물론 문서에서 그렇게 하라고 하기 때문이다.

// 다음과 같은 짓을 해보면 hr == E_NOINTERFACE 가 된다.

//     _WorksheetPtr sheet;
//     hr = sheet.CreateInstance(L"Excel.Application");


// 이게 뭘 뜻하느냐 하면, _Worksheet 인터페이스는 Excel.Application COM object의

// IUnknown 인터페이스에 물어보면 모르는 인터페이스란 얘기.

// 즉, 다른 인터페이스를 통해 간접적으로 액세스하는 인터페이스라는 말이다.


  _ApplicationPtr app;
  hr = app.CreateInstance(L"Excel.Application");

  if (hr == S_OK)
  {

// excel 버전 보기
    _variant_t var;
    var = app->GetVersion();

// 문서에 sheet 하나만 달랑 있게 하기

    app->PutSheetsInNewWorkbook(1);


// _Worksheet 인터페이스 얻기 (3단계, 다른 수도 있다. 찾아보라.)

    WorkbooksPtr books = app->GetWorkbooks();
    _WorkbookPtr  book = books->Add();
    _WorksheetPtr sheet = book->GetActiveSheet();


// 다시 xml로 돌아가자.

// IXMLDOMNode 는 msxml의 모든 구성요소들이 지원하는 인터페이스다.

// 심지어 IXMLDOMDocument2도 이걸 상속받았다.

// 별로 지원하는 함수가 많지 않다. 주로 parent/child/sibling 뒤지기만 한다.

// 혹시 노드의 attribute값을 보려면, 즉 <TAG type="dummy"> 에서 dummy를 읽으려면

// IXMLDOMElement를 써야 한다.


    _bstr_t bsGimml("GIMML");

// selectSingleNode() 는 name 이 맞는 첫번째 child 노드를 리턴한다. 유용함
    MSXML2::IXMLDOMNodePtr nodeGimml = pXMLDoc->selectSingleNode(bsGimml); 
    _bstr_t bsElements("Elements");
    MSXML2::IXMLDOMNodePtr nodeElements = nodeGimml->selectSingleNode(bsElements);


// selectSingleNode()에서 에러가 나면 리턴값이 NULL 이다.
    if (nodeElements)
    {
      bool error = false;

// 차일드 노드 루프돌기

// GetchildNodes() 함수는 IXMLDOMNodeList 인터페이스를 리턴하는데

// 여기다 대고 nextNode()를 하면 차일드를 다 뒤질 수 있다.
      MSXML2::IXMLDOMNodeListPtr elementlist = nodeElements->GetchildNodes();

// 리스트 갯수를 알아야 루프돌기 편할 것이다.
      int elementCount = elementlist->Getlength();

      /* scan for ALPHA_STRING elements */
      for (i=0; i<elementCount; i++)
      {

// nextNode()는 첫번째 차일드 노드부터 리턴한다.

// 그러니 루프내에서 무조건 부르고 본다.
        MSXML2::IXMLDOMElementPtr anElement = elementlist->nextNode();

        /* node name check (shoud be "Element") */

// 노드명 받기 <TAG type="dummy"> 에서는 TAG가 노드명
        _bstr_t bsNodename = anElement->GetnodeName();
        _bstr_t bsElement("Element");
        if (bsNodename != bsElement) // _bstr_t 비교는 연산자로 가능
        {
          printf("node name is %S. <Element> expected\n", bsNodename);
          error = true;
          break;
        }
               
        /* get id string */
        _bstr_t bsId("id");

// attribute 보기
        _variant_t varElementId = anElement->getAttribute(bsId);
        printf("%S\n", varElementId.bstrVal);

        /* format check (only "AG_FORMAT_ALPHA_STRING" will be processed) */
        _bstr_t bsAlphaString("AG_FORMAT_ALPHA_STRING");
        _bstr_t bsFormat("format");
        _variant_t varFormat = anElement->getAttribute(bsFormat);
        _bstr_t bsFormatValue(varFormat.bstrVal, true);
        if (bsFormatValue != bsAlphaString)
        {
          printf(" Skip: element %S is %S format.\n", varElementId.bstrVal, varFormat.bstrVal);
          continue;
        }


        /* get data */
        MSXML2::IXMLDOMNodeListPtr dataList = anElement->GetchildNodes();
        int dataCount = dataList->Getlength();

        if (dataCount == 0) continue;

        WCHAR wzData[10][1024] = {0,};

        for (j=0; j<dataCount; j++)
        {
          MSXML2::IXMLDOMElementPtr dataElement = dataList->nextNode();

          /* get id value */
          int id = j;
          _bstr_t bsDataId("id");
          _variant_t varDataId = dataElement->getAttribute(bsDataId);
          if (varDataId.vt == VT_BSTR)
          {

// atoi 의 wchar 버전
            id = _wtoi(varDataId.bstrVal);
            if (id < 0 || id >= 10)
            {
              error = true; break;
            }
          }


// 이 함수 내부는 생략했다.

// wzData 에 wchar 스트링을 채워 넣는 함수다.

         if (ucs2StringFromData(dataElement, wzData[id]) == false)
         {
            error = true; break;
         }
        }
               
        /* error in getting data string... stop. */
        if (error) break;


// 다시 액셀로 돌아가자.

// 아까 _Worksheet 까지는 준비해두었다.

// 액셀에 데이터를 넣을 때는 Range로 하나의 셀을 지정한 후에 값을 넣는다.

        /* write a element to excel sheet */
        char colAlphabet;
        int  rowInt;
        char cellString[20]; /* cell id like "Z11" */
        RangePtr cell;
   
        rowInt = i + 2; /* excel cell begins with 1. and added one more for header */
        colAlphabet = 'B';

// cell을 지정하기 위해서 "E13" 형태의 스트링을 만든다.
        sprintf(cellString, "%c%d", colAlphabet, rowInt);


// cell 하나를 선택하고, 값을 넣는다.   
        cell = sheet->GetRange(cellString);
        cell->PutValue2(varElementId.bstrVal);

        for (j=0; j<10; j++)
        {
          colAlphabet = 'C' + j;
          sprintf(cellString, "%c%d", colAlphabet, rowInt);
          cell = sheet->GetRange(cellString);
          cell->PutValue2(wzData[j]);
        }
  
      }

      if (!error)
      {
        /* save if no error */
        char fullpath[1024];
        sprintf(fullpath, "%s\\%s", curDir, excelFilename);

// SaveAs()를 통해 xls 저장.

// Save()를 부르면 파일 다이얼로그가 뜬다. 짜증날 것임.
        sheet->SaveAs(fullpath);
      }
    }
    else
    {
      _bstr_t bsReason;
      pXMLDoc->GetparseError()->get_reason(bsReason.GetAddress());
      printf("%S\n", bsReason);
   }

// 액셀 프로그램을 닫는다.

// 액셀이 안보이지만 프로그램이 떠 있다. 그러므로 Quit()을 해야 한다.
    app->Quit();

// 아까 말했듯이 CreateInstance 한놈은 반드시 Release() 해야 한다.
    app.Release();
  }
  else
  {
    printf("Cannot create Excel application instance.\n");
  }

}


------------------------------------------------


p.s.

혹시 excel 에 "="로 시작하는 스트링을 넣고 싶다면, 앞에 ' 를 붙여넣어라.

' 는 저장되지 않는다.

저장되기는 하는데... GetText() 해보면 '는 빠져 있다.

즉, 액셀이 특수문자로 간주하여 셀 value에서는 제외된다.

신고

'Projects > CoVNC' 카테고리의 다른 글

RTF를 사용하기 위하여  (0) 2007.07.23
소스코드 검색 사이트  (0) 2007.06.09
겨우 찾아낸 제대로 된 XML 파싱  (3) 2007.06.01
BSTR  (0) 2007.05.31
[Win32 API] DialogBoxParam  (0) 2007.05.20
MSXML 사용법 요약  (0) 2007.05.05

MSXML 사용법 요약

Projects/CoVNC 2007.05.05 21:21 Posted by soulfree >동네청년<
Summary
This sample application shows how to use MSXML 4.0 to create an XML document using DOM. This application illustrates the following DOM APIs: createProcessingInstruction, insertBefore, createNode, appendChild, createElement, createAttribute, setNamedItem, createComment, createCDATASection, createDocumentFragment, setAttribute, and save.

Our objective is to use MSXML 4.0 DOM and create the XML document that looks like as below:
<?xml version="1.0" encoding="UTF-8"?>
<f:Feedback xmlns:f='www.PerfectXML.com/Feedback'>
	<f:Record f:RecID="231">
		
		<!-- The Feedback Text -->
		<![CDATA[
	PerfectXML is now by far the best source on the Web 
	for up-to-date news on Web services and XML. Congrats!]]>

		<f:Recd>
			Thu Jul 11 2002
		</f:Recd>
		
		<f:Time>
			09:01:40
		</f:Time>

		<f:From>
			Roger
		</f:From>

		<f:Client f:Browser='IE' f:IP='123.123.123.123'/>

	</f:Record>
</f:Feedback>

Steps
Steps that we followed to create this application:
1. Start Visual C++ 6.0 and create a new Win32 Console Application project.
2. Add the following lines in the stdafx.h:
#include <TCHAR.H>
#include <stdio.h>
#include <time.h>

#import "msxml4.dll"
//      ^^^^^^^^^^^^
// If this import statement fails, you need to install MSXML 4.0 SP1 from:
//
// http://msdn.microsoft.com/downloads/sample.asp?url=/MSDN-FILES/027/001/766/msdncompositedoc.xml

#include <msxml2.h>
//       ^^^^^^^^^^
// If this include statement fails, you need to install MSXML 4.0 SP1 SDK from:
//
// http://msdn.microsoft.com/downloads/sample.asp?url=/MSDN-FILES/027/001/766/msdncompositedoc.xml
//
// You also need to add the include file and library search path
// to Visual C++'s list of directories (Tools > Options... > Directories).

using namespace MSXML2;

inline void EVAL_HR( HRESULT _hr ) 
   { if FAILED(_hr) throw(_hr); }

#define TEMP_SIZE  _MAX_PATH       // size of short buffer
static _TCHAR   szTemp[TEMP_SIZE]; // multipurpose buffer on stack
static DWORD    dwLen;
3. The above lines import the MSXML 4 type library, include the MSXML header file, defines a tiny utility function to check the HRESULT value, and declares some global variables.
4. The main function looks like as below:
int main(int argc, char* argv[])
{
	try
	{
		EVAL_HR(CoInitialize(NULL));

		//	Make sure that MSXML 4.0 is installed
		if (!isMSXMLInstalled())
			return -1;

		CreateAndSaveXMLDocument();
	}
	catch(...)
	{//exception handling
	}
	
	_ftprintf(stdout, "\n\nPress Enter to continue...");
	getchar();
	CoUninitialize();
	return 0;
}
5. The main function begins by calling the utility function isMSXMLInstalled to make sure MSXML 4.0 is installed. This function is discussed in previous two samples, so we'll not repeat the explaination here.

Next, the main function calls CreateAndSaveXMLDocument function which actually creates and saves the XML document. This function is saved in utils.h file. Let's look at this function:
6. The function begins by creating an instance of MSXML DOMDocument object:
void CreateAndSaveXMLDocument()
{
	try
	{
		IXMLDOMDocument2Ptr pXMLDoc = NULL;
		
		//	Create MSXML DOM object
		EVAL_HR(pXMLDoc.CreateInstance("Msxml2.DOMDocument.4.0"));
The first thing we do in this function is create the XML declaration line (<?xml version="1.0" encoding="UTF-8"?>)
		//	---------------------------------------------
		//	Step 6.1: Creating the Processing Instruction
		IXMLDOMProcessingInstructionPtr pPI = NULL;

		pPI = pXMLDoc->createProcessingInstruction
			("xml", "version='1.0' encoding='UTF-8'");

		_variant_t vNullVal;
		vNullVal.vt = VT_NULL;
		pXMLDoc->insertBefore(pPI, vNullVal);
The second parameter to the insertBefore function call above is passed as NULL, which instructs new node to be inserted at the end of the child list. Since we do not have any nodes in the tree yet, the XML declaration statement becomes the very first child.

Next, we create the document root element:
		//	---------------------------------------------
		//	Step 6.2: Creating the Root Element
		IXMLDOMNodePtr pRootNode= NULL; 
		_variant_t varNodeType((short)MSXML2::NODE_ELEMENT);

		pRootNode= pXMLDoc->createNode(varNodeType, 
			_T("f:Feedback"), _T("www.PerfectXML.com/Feedback"));

		pXMLDoc->appendChild(pRootNode);


The first child under the root Feedback node is the Record element:
		//	---------------------------------------------
		//	Step 6.3a: Creating Record Child Element
		IXMLDOMNodePtr pRecNode= NULL; 
		pRecNode = pRootNode->appendChild(pXMLDoc->createElement(_T("f:Record")));

		//	Step 6.3b: Creating RecID attribute for the Record element
		IXMLDOMAttributePtr pRecIdAttr = NULL;
		pRecIdAttr = pXMLDoc->createAttribute(_T("f:RecID"));
		pRecIdAttr->nodeTypedValue = _T("231");
		pRecNode->attributes->setNamedItem(pRecIdAttr);
The above lines of code create the Record element and an attribute named RecID.

The following lines of code create the comments and CDATA section:
		//	---------------------------------------------
		//	Step 6.4: Creating the Comments node
		_bstr_t bstrCommentText = _T(" The Feedback Text ");
		pRecNode->appendChild(pXMLDoc->createComment(bstrCommentText));


		//	---------------------------------------------
		//	Step 6.5: Creating the CDATA section
		_bstr_t bstrCDATAText = 
			_T("\n\tPerfectXML is now by far the best source on the Web"
				" \n\tfor up-to-date news on Web services and XML. Congrats!\n");

		pRecNode->appendChild(pXMLDoc->createCDATASection(bstrCDATAText));
The following lines of code illustrate an important concept of document fragments. Many times it is required to create and append a set of nodes at various places in the document. Instead of creating and appending each node every time, we can create a document fragment; and then just append that in the tree wherever the set of nodes is required.
		//	---------------------------------------------
		//	Step 6.6: Addding the Recd, Time, and From nodes
		//	Illustrating the document fragment feature (IXMLDOMDocumentFragment)
		IXMLDOMDocumentFragmentPtr pFragment = NULL;
		IXMLDOMElementPtr pTempNode = NULL;
		pFragment = pXMLDoc->createDocumentFragment();

		pTempNode = pXMLDoc->createElement(_T("f:Recd"));
		pTempNode->nodeTypedValue = _T("Thu Jul 11 2002");
		pFragment->appendChild(pTempNode );
		
		pTempNode = pXMLDoc->createElement(_T("f:Time"));
		pTempNode->nodeTypedValue = _T("09:01:40");
		pFragment->appendChild(pTempNode );

		pTempNode = pXMLDoc->createElement(_T("f:From"));
		pTempNode->nodeTypedValue = _T("Roger");
		pFragment->appendChild(pTempNode );

		//	Attach the fragment to the DOM tree
		pRecNode->appendChild(pFragment);
Here we are creating three nodes as part of the fragment. We can now use this fragment anywhere else also in the code to add these three nodes in the tree.

Finally, we create the Client child element and its two attributes, and then save the document:
		//	Step 6.7: Creating "Client" element and its two attributes
		IXMLDOMElementPtr pClientElem= NULL; 
		pClientElem = pXMLDoc->createElement(_T("f:Client"));
		pClientElem->setAttribute(_T("f:Browser"), _T("IE"));
		pClientElem->setAttribute(_T("f:IP"), _T("123.123.123.123"));

		pRecNode->appendChild(pClientElem);

		//	Done, now save the document

		pXMLDoc->save(_T("c:\\Feedback.xml"));
	}
	catch(...)
	{//Exception handling
	}
	
}
Here is the text from the ReadMe.TXT file included with the code download for this sample application:
==================================================
       CONSOLE APPLICATION : DOM_CreateXMLDoc
==================================================

	Sample code to illustrate using MSXML 4.0 (SP1) DOM 
	to create an XML document. This application illustrates 
	the following DOM methods: 
	createProcessingInstruction, insertBefore, createNode, appendChild,
	createElement, createAttribute, setNamedItem, createComment, 
	createCDATASection, createDocumentFragment, setAttribute, and save.

	The created document is saved as c:\Feedback.xml

--------------------------------------------------
	Copyright (C) 2002 http://www.PerfectXML.com

	Created: July 12, 2002

	Author: PerfectXML.com Team (msxml@PerfectXML.com)
---------------------------------------------------

///////////////////////////////////////////////////


More Information
신고

'Projects > CoVNC' 카테고리의 다른 글

BSTR  (0) 2007.05.31
[Win32 API] DialogBoxParam  (0) 2007.05.20
MSXML 사용법 요약  (0) 2007.05.05
Microsoft XML Core Service(MSXML)  (0) 2007.05.05
C++을 사용해 바이트 배열에 저장된 DIB정보를 DIB메모리 블럭 만들기  (2) 2007.03.31
DIB/DDB 구조  (0) 2007.03.30
TAG MSXML

Microsoft XML Core Service(MSXML)

Projects/CoVNC 2007.05.05 21:13 Posted by soulfree >동네청년<
DOM or Document Object Model is a W3C specification that defines a standard programming API to build, navigate, update and transform XML documents. MSXML supports DOM Level 2.

With DOM, the parser reads the input XML document and builds the hierarchical tree representation of this document in the memory. Once the complete document is loaded into the memory, the parser DOM methods allow to navigate and edit the document. This method is well-suited if you need random access to the document or need to update the document. However, DOM is not a viable choice for huge XML documents. Refer to the parser SDK documentation for more help on how to use MSXML DOM.       Tip: Chapter 2 (Document Object Model in MSXML) in the book XML Application Development with MSXML 4.0 covers MSXML DOM features in great details.

Let's now look at how to use MSXML 4.0 DOM in JavaScript, VBScript (ASP Pages), Visual Basic, Visual C++, C# (.NET) and VB.NET (early binding and late binding).

The following example(s) simply load a local XML document using DOM and spits out the document's contents.

JavaScript

<script language="JScript">
<!--
	try
	{
		var objDOMDoc = new ActiveXObject("Msxml2.DOMDocument.4.0");
		objDOMDoc.async = false;
		if (objDOMDoc.load("c:\\po.xml"))
		{
			alert(objDOMDoc.xml);
		}
		else
		{
			alert("Error: " + objDOMDoc.parseError.reason);
		}
	}
	catch(e)
	{
		alert("Error: " + e);
	}
//-->
</script>
			

VBScript (ASP Pages)

<%
	Option Explicit
	Response.CacheControl = "no-cache"
	Response.AddHeader "Pragma", "no-cache"
	Response.Expires = -1
	Response.Buffer = TRUE

	Dim objDOMDoc
	On Error Resume Next

	Set objDOMDoc = Server.CreateObject("Msxml2.DOMDocument.4.0")
	If Err Then
		Response.ContentType = "text/html"
		Response.Write "Error: " & Err.Description
		Err.Clear()
		Response.End
	End If
	objDOMDoc.async = False
	If objDOMDoc.load (Server.MapPath("po.xml")) Then
		Response.ContentType = "text/xml"
		Response.write objDOMDoc.xml
	Else
		Response.ContentType = "text/html"
		Response.write "Error: " & objDOMDoc.parseError.reason
	End If	
	
%>

Visual Basic

Start Visual Basic 6.0 and create a new Standard EXE project. Add reference (Project | Reference) to Microsoft XML v4.0, double click on the form and write following code under the Form_Load() method:
    Dim objDOMDoc As New MSXML2.DOMDocument40
    
    objDOMDoc.async = False
    If objDOMDoc.Load("c:\po.xml") Then
        MsgBox objDOMDoc.xml
    Else
        MsgBox "Error: " & objDOMDoc.parseError.reason
    End If
    
    Set objDOMDoc = Nothing

Visual C++

Start Visual C++ 6.0, create a new project of type Win32 Console Application and name the project as MSXMLDOMTest. Click OK and select A Simple Application from the next screen and then click on Finish button and then OK. Open MSXMLDOMTest.cpp file and update the file with following code:
#include "stdafx.h"
#include "stdio.h"
#import "msxml4.dll"
using namespace MSXML2;

inline void EVAL_HR( HRESULT _hr ) 
   { if FAILED(_hr) throw(_hr); }

int main(int argc, char* argv[])
{
   try 
   {
		IXMLDOMDocumentPtr objDOMDoc;

		EVAL_HR(CoInitialize(NULL)); 
		EVAL_HR(objDOMDoc.CreateInstance("Msxml2.DOMDocument.4.0"));

		_variant_t varXml("C:\\po.xml");
		_variant_t varOut((bool)TRUE);

		objDOMDoc->async = false;
		varOut = objDOMDoc->load(varXml);
		
		if ((bool)varOut == FALSE)
		 throw(0);
		
		printf(_bstr_t(objDOMDoc->xml)) ;
		printf("\n\nPress ENTER to continue...\n");
		getchar();
		return 0;
	}
	
	catch(...)
	{
		printf("Exception occurred");
		printf("\n\nPress ENTER to continue...\n");
		getchar();
		return -1;
	}

	CoUninitialize();   
}

C# .NET

Note that the .NET framework contains a namespace called System.Xml that contains various classes to work with XML. The following method (using MSXML in .NET applications using COM Interop) should only be used if it is required to quickly migrate (or reuse) the existing code.

The following code is written using .NET Framework Beta 2.


It's really easy to use MSXML with Visual Studio .NET. Simply by Adding Reference to Microsoft XML, v4.0 from the COM tab, creates a runtime callable wrapper that we can use to import the MSXML classes into our .NET application and use then as any other .NET class.

Let's do the same thing using the command prompt tools:

Start the DOS Command prompt (or better, Visual Studio .NET Command Prompt by clicking on Start | Programs | Microsoft Visual Studio .NET | Visual Studio .NET Tools) and type the following command at the prompt:

    >tlbimp msxml4.dll /out:MSXML4DotNet.dll

The type library importer (tlbimp) command line tool builds a proxy class that contains the necessary information used to create the runtime callable wrapper. You might see some warnings and can safely ignore them for now. The above command creates a file named MSXML4DotNet.dll. Start notepad and write the following C# code:
using System;
using MSXML4DotNet;

public class CSharpMSXML
{
	public static void Main()
	{
		try
		{
			DOMDocument40 objDOMDoc = new DOMDocument40();

			objDOMDoc.async = false;

			if (objDOMDoc.load(@"c:\po.xml"))
			{
				Console.WriteLine(objDOMDoc.xml);
			}

			else
			{
				Console.WriteLine("Parse Error: " 
					+ objDOMDoc.parseError.reason 
					+ objDOMDoc.parseError.srcText);
			}
			
		}
		catch(Exception e)
		{
			Console.WriteLine("Error: " + e.Message);
		}
		Console.ReadLine();
	}
}


Save the above file as msxmlcsharp.cs and complile it using the following command on the DOS Command Prompt:

    >csc.exe msxmlcsharp.cs /r:MSXML4DotNet.dll

Run msxmlcsharp.exe. This example illustrated using unmanaged COM code from within .NET C# application using early binding, let's see an example of using COM component through late binding.With the following approach (late binding), it is not required to run tlbimp.exe (or add a reference) to create a proxy class:
using System;
using System.Reflection;

public class CSharpMSXML2
{
	public static void Main()
	{
		try
		{
			Type typDOM = Type.GetTypeFromProgID("Msxml2.DOMDocument.4.0");

			object objDOMDocDisp = Activator.CreateInstance(typDOM);

			object [] param = new object[1];
			param[0] = false;

			typDOM.InvokeMember("async", BindingFlags.SetProperty, 
						null, objDOMDocDisp, param); 

			param[0] = @"c:\po.xml";

			object loadResult = null;

			loadResult = typDOM.InvokeMember("load", BindingFlags.InvokeMethod, 
						null, objDOMDocDisp, param);
			if ((bool)loadResult == true)
			{
				String s = (String)typDOM.InvokeMember("xml", 
							BindingFlags.GetProperty, 
							null, objDOMDocDisp, new object[]{});
				Console.WriteLine(s);
			}
			else
			{
				object pe = typDOM.InvokeMember("parseError", 
						BindingFlags.GetProperty, 
						null, objDOMDocDisp, new object[]{});

				String s = (String)typDOM.InvokeMember("reason", 
						BindingFlags.GetProperty, 
						null, pe, new object[]{});

				Console.WriteLine("Parse Error: " + s);
			}
		}
		catch(Exception e)
		{
			Console.WriteLine("Error: " + e.Message);
		}
		Console.ReadLine();
	}
}


Save the above file as latebinding.cs and run following command on the command prompt to complie the above C# code:

    >csc.exe latebinding.cs

Run latebinding.exe.

VB .NET

Assuming that you have already created the MSXML 4.0 Runtime Callable Wrapper DLL using tlbimp (as described above), here is the VB .NET code equivalent to above C# code:
Option Explicit On
Option Strict On

Imports System
Imports MSXML4DotNet

Public Class VBNETMSXML
	Shared Sub Main
		Try
			Dim objDOMDoc as DOMDocument40 = New DOMDocument40()
			With objDOMDoc
				.async = False
			
				If (.load ("c:\po.xml")) Then
					Console.WriteLine (.xml)
				Else
					Console.WriteLine ("Parse Error: " & _
						.parseError.reason & _
						.parseError.srcText)
				End If
			End With
		Catch e as Exception
			Console.WriteLine ("Error: " & e.Message)
		End Try
		Console.ReadLine()
	End Sub
End Class

Save the above file as vbnetmsxml.vb and complile it using the following command on the DOS Command Prompt:

    >vbc.exe vbnetmsxml.vb /r:MSXML4DotNet.dll

Run vbnetmsxml.exe.


Let's look at another small example to load an XML document and search for a specific node.

Here is the source XML document (c:\1.xml):
<?xml version="1.0"?>
<customers>

 <row ID="1">
  <CustomerID>ALFKI</CustomerID>
  <CompanyName>Alfreds Futterkiste</CompanyName>
  <ContactName>Maria Anders</ContactName>
 </row>

 <row ID="2">
  <CustomerID>ANATR</CustomerID>
  <CompanyName>Ana Trujillo Emparedados y helados</CompanyName>
  <ContactName>Ana Trujillo</ContactName>
 </row>

</customers>
Let's now look at Visual Basic code to load the above XML document using MSXML DOM and then search for an element based on the CustomerID.

Start Visual Basic 6.0, create a Standard EXE Project, add reference (Project | References) to Microsoft XML, v4.0 (MSXML4.DLL), double click on the form and write following code inside the Form_Load method:
Dim objDOMDoc As New MSXML2.DOMDocument40
Dim ResultNode As MSXML2.IXMLDOMNode

objDOMDoc.async = False

If objDOMDoc.Load("c:\1.xml") Then
    Set ResultNode = objDOMDoc.selectSingleNode("/customers/row/CustomerID[.='ANATR']")
    
    'Uncomment the following line to try out unmatching element
    'Set ResultNode = objDOMDoc.selectSingleNode("/customers/row/CustomerID[.='PPPPP']")
    If ResultNode Is Nothing Then
        MsgBox "Not found!"
    Else
        MsgBox "Found: " & vbNewLine & ResultNode.parentNode.xml
    End If
    
    'Searching based on Attribute
    Set ResultNode = objDOMDoc.selectSingleNode("/customers/row[@ID='1']")
    
    'Uncomment the following line to try out unmatching element
    'Set ResultNode = objDOMDoc.selectSingleNode("/customers/row[@ID='99']")
    If ResultNode Is Nothing Then
        MsgBox "Not found!"
    Else
        MsgBox "Found: " & vbNewLine & ResultNode.xml
    End If

Else
    MsgBox "Error: " & objDOMDoc.parseError.reason
End If
The above code loads the XML document (c:\1.xml). If the load succeeds, we use the selectSingleNode method to search for an element by passing the XPath expression as its parameter. We then use the Visual Basic Is Nothing clause to check if the matching node was found or not.

MSXML DOM Resources Around The Web

신고

'Projects > CoVNC' 카테고리의 다른 글

[Win32 API] DialogBoxParam  (0) 2007.05.20
MSXML 사용법 요약  (0) 2007.05.05
Microsoft XML Core Service(MSXML)  (0) 2007.05.05
C++을 사용해 바이트 배열에 저장된 DIB정보를 DIB메모리 블럭 만들기  (2) 2007.03.31
DIB/DDB 구조  (0) 2007.03.30
CListBox  (0) 2007.02.21