Win98 Borland C++ Builder 5

Ispoljzuju MSXML 4.0 Sp2, ustanovlinneij v direktoriju
Project |import type lib msxml4.dll viden

C:\Program Files\MSXML 4.0

V boralnd proekte Project|Options |Directories /Conditionals
Include path ..\..\..\MSXML 4.0\inc //estj MSXML4.0 headeri
Library path ..\..\..\MSXML 4.0\lib //estj MSXML4.0 libraries

No sledujashaja programma primer iz MSXML SDK ne kompiliruetsja.
Vidaet kuchu oshibok .

#include "C:\Program Files\MSXML 4.0\inc\msxml2.h"
#include <msxml2.h>
#include <vcl.h>
#include <stdio.h>
#include <iostream.h>




int main(int argc, char* argv[])
{ //new added
////#import "C:\WINDOWS\SYSTEM\msxml4.dll" raw_interfaces_only
HINSTANCE DLL = LoadLibrary("msxml4.dll");
if (DLL){
cout << "LOADED ";
} else { cout << " NOT LOADED ";}
HRESULT hr;
IXMLDOMDocument2 *pXMLDoc = NULL;
IXMLDOMParseError * pObjError = NULL;
BSTR bstr = NULL;
VARIANT_BOOL status;
VARIANT vSrc;

CoInitialize(NULL);

hr = CoCreateInstance(CLSID_DOMDocument40,
NULL,
CLSCTX_INPROC_SERVER,
IID_IXMLDOMDocument2,
(void**)&pXMLDoc);

if (FAILED(hr))
{
// printf("Failed to CoCreate an instance of an XML DOM\n");
// cout<<"Failed to CoCreate an instance of an XML DOM\n";
//printf("Error code: %x\n", hr);
// cout <<"Error code: "<< hr<<endl;
goto clean;
}

hr = pXMLDoc->put_async(VARIANT_FALSE);
if (FAILED(hr))
{
//printf("Failed to set async property\n");
goto clean;
}

hr = pXMLDoc->put_validateOnParse(VARIANT_FALSE);
if (FAILED(hr))
{
// printf("Failed to set validateOnParse\n");
goto clean;
}

hr = pXMLDoc->put_resolveExternals(VARIANT_FALSE);
if (FAILED(hr))
{
//printf("Failed to disable resolving externals.\n");
goto clean;
}

VariantInit(&vSrc);
V_BSTR(&vSrc) = SysAllocString(L"stocks.xml");
V_VT(&vSrc) = VT_BSTR;

hr = pXMLDoc->load(vSrc, &status);

if(status!=VARIANT_TRUE)
{
hr = pXMLDoc->get_parseError(&pObjError);
hr = pObjError->get_reason(&bstr);
//printf("Failed to load DOM from books.xml. %S\n",bstr);
goto clean;
}

hr = pXMLDoc->get_xml(&bstr);
//printf("stocks.xml:\n%S\n", bstr);

clean:
if (bstr)
SysFreeString(bstr);
if (&vSrc)
VariantClear(&vSrc);
if (pObjError)
pObjError->Release();
if (pXMLDoc)
pXMLDoc->Release();
CoUninitialize();
return 0;

}



//*/



V chem mozhet bitj delo ?