谁能把这个VC程序例子翻译成delphi的? 还可加分(下载自微软MSDN) 100分 (100分)

这是源程序压缩包地址:
http://www.efile.com.cn/eFile/z109/walkall.exe

http://www.efile.com.cn/eFile/z109/walkall.rar

[]

WINSINK.H中
// ===========================================================================
// File: W I N S I N K . H
//
// THIS CODE AND INFORMATION IS PROVIDED "AS IS" WITHOUT WARRANTY OF
// ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING BUT NOT LIMITED TO
// THE IMPLIED WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A
// PARTICULAR PURPOSE.
//
// Copyright 1995-2002 Microsoft Corporation. All Rights Reserved.

#ifndef _WinSink_h_
#define _WinSink_h_

class CWinSink : public IDispatch
{
public:
CWinSink() : m_pWin(NULL), m_dwRef(1),
m_hrConnected(CONNECT_E_CANNOTCONNECT),
m_dwCookie(0), m_pCP(NULL)
{
}

~CWinSink()
{
}

HRESULT Init(IHTMLWindow2* pWin);
HRESULT Passivate()
{
HRESULT hr = NOERROR;
if (m_pCP)
{
if (m_dwCookie)
{
hr = m_pCP->Unadvise(m_dwCookie);
m_dwCookie = 0;
}

m_pCP->Release();
m_pCP = NULL;
}

if (m_pWin)
{
m_pWin->Release();
m_pWin = NULL;
}

return NOERROR;
}

// IUnknown methods
STDMETHOD(QueryInterface)(REFIID riid, LPVOID* ppv);
STDMETHOD_(ULONG, AddRef)();
STDMETHOD_(ULONG, Release)();

// IDispatch method
STDMETHOD(GetTypeInfoCount)(UINT* pctinfo)
{ ODS("GetTypeInfoCount/n"); return E_NOTIMPL; }

STDMETHOD(GetTypeInfo)(UINT iTInfo,
LCID lcid,
ITypeInfo** ppTInfo)
{ ODS("GetTypeInfo/n"); return E_NOTIMPL; }

STDMETHOD(GetIDsOfNames)(REFIID riid,
LPOLESTR* rgszNames,
UINT cNames,
LCID lcid,
DISPID* rgDispId)
{ ODS("GetIDsOfNames/n"); return E_NOTIMPL; }

STDMETHOD(Invoke)(DISPID dispIdMember,
REFIID riid,
LCID lcid,
WORD wFlags,
DISPPARAMS __RPC_FAR *pDispParams,
VARIANT __RPC_FAR *pVarResult,
EXCEPINFO __RPC_FAR *pExcepInfo,
UINT __RPC_FAR *puArgErr);

protected:
IHTMLWindow2* m_pWin;
DWORD m_dwRef;

LPCONNECTIONPOINT m_pCP;
HRESULT m_hrConnected;
DWORD m_dwCookie;

};

#endif

COMMAND.H中
// ===========================================================================
// File: C O M M O N . H
//
// THIS CODE AND INFORMATION IS PROVIDED "AS IS" WITHOUT WARRANTY OF
// ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING BUT NOT LIMITED TO
// THE IMPLIED WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A
// PARTICULAR PURPOSE.
//
// Copyright 1995-2002 Microsoft Corporation. All Rights Reserved.

#ifndef _common_h_
#define _common_h_

#define ODS(x) OutputDebugString(x)

#endif

WALKALL.CPP中
// ===========================================================================
// File: W A L K A L L . C P P
//
// THIS CODE AND INFORMATION IS PROVIDED "AS IS" WITHOUT WARRANTY OF
// ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING BUT NOT LIMITED TO
// THE IMPLIED WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A
// PARTICULAR PURPOSE.
//
// Description:
//
// This sample demonstrates the use of MSHTML as a UI-less HTML parser.
// To successfully walk the HTML Scripting Object Model that the parser
// exposes after loading the specified document, the host application must
// wait until MSHTML has finished loading the document. To track MSHTML's
// READYSTATE, the host implements a simple COM object that exposes
// IPropertyNotifySink. The host application connects to MSHTML using the
// standard connection point interfaces. As MSHTML loads the document
// it's readiness state changes. To notify the host of these changes,
// it executes IPropertyNotifySink::OnChanged passing along the DISPID
// of the property that has changed (DISPID_READYSTATE). The host uses MSHTML's
// automation interface obtained at creation time to retrieve the current value
// of this property. When the value equals READYSTATE_COMPLETE,
// MSHTML has finished loading the document.

// If the loaded document is an HTML page which contains scripts, Java Applets and/or
// ActiveX controls, and those scripts are coded for immediate execution, MSHTML will
// execute them by default. To disable this feature, the host must implement two
// additional interfaces: IOleClientSite and IDispatch. At initialization time, after
// MSHTML is instantiated, the host should query MSHTML for its IOleObject interface,
// pass MSHTML a reference to its IOleClientSite interface, query MSHTML for its IOleControl
// interface, and call OnAmbientPropertyChange(DISPID_AMBIENT_DLCONTROL). MSHTML will in
// turn query the host's IOleClientSite interface for IDispatch and then request the value
// of this property from the host. This is the hosts opportunity to control MSHTML, disabling
// the execution of scripts, etc. A full list of control flags are available in <mshtmdid.h>.

// Requirements:
// * Internet Explorer version 4.0 or later.
// * Microsoft Visual C++ 6.0. The code uses types (_bstr_t) introduced with VC5.
// * Be sure that the INETSDK include and lib directories are in your INCLUDE and LIB
// environment variables respectively.

// Instructions:
//
// To use this sample:
// * build it using the NMAKE command. NMAKE will create WALKALL.EXE.
// * run WALKALL.EXE specifying the resource to download by passing an
// URL on the command-line. use no command-line argument to default to
// "http://www.microsoft.com".
// * The program prints all HTML tags to the console. If an IMG tag is encountered
// the SRC attribute is displayed.
//
// Modification History
// 30 May 1997 - MDO - created
// 12 Jun 1997 - MDO - added minimal support for IOleClientSite and IDispatch
// 22 Sep 1998 - MDO - added CApp::GetUA() to demo how to get to the window object (IHTMLWindow2) from the document (IHTMLDOcument2)
// 18 Oct 1999 - MDO - added CWinSink to sink MSHTML window object events (essentially window:nload).
// Copyright 1995-2002 Microsoft Corporation. All Rights Reserved.
// ===========================================================================

#include <windows.h>
#include <tchar.h>
#include <wininet.h>
#include <urlmon.h>
#include <mshtml.h>
#include <iostream.h>
#include <comdef.h>
#include <assert.h>
#include "common.h"
#include "winsink.h"

#include <servprov.h>

#include <mshtmdid.h>

// CODE REVIEW: Safe String Functions.
// Include safe string functions.
#include <strsafe.h>

#define C_USAGE _T("Usage: walkall <URL>")

#define WM_USER_STARTWALKING ((WM_USER) + 1)

const TCHAR c_szDefaultUrl[] = _T("http://example.microsoft.com/");

INTERNET_SCHEME GetScheme(LPCTSTR szURL);

void PrintDISPID(DISPID dispidMember);
void PrintBSTR(BSTR bstr);
void PrintBSTR(_bstr_t _bstr);

class CApp : public IPropertyNotifySink, IOleClientSite, IDispatch
{
public:
CApp() : m_pMSHTML(NULL), m_dwRef(1),
m_hrConnected(CONNECT_E_CANNOTCONNECT),
m_dwCookie(0), m_pCP(NULL), m_szURL(NULL), m_nScheme(INTERNET_SCHEME_UNKNOWN),
m_lReadyState(READYSTATE_UNINITIALIZED)
{}
~CApp()
{
}

HRESULT Passivate()
{
HRESULT hr = NOERROR;

// Disconnect from property change notifications
if (m_pCP)
{
if (m_dwCookie)
{
hr = m_pCP->Unadvise(m_dwCookie);
m_dwCookie = 0;
}

// Release the connection point
m_pCP->Release();
m_pCP = NULL;
}

if (m_pWinSink)
{
m_pWinSink->Passivate();
m_pWinSink->Release();
m_pWinSink = NULL;
}

if (m_pMSHTML)
{
m_pMSHTML->Release();
m_pMSHTML = NULL;
}

return NOERROR;
}


// IUnknown methods
STDMETHOD(QueryInterface)(REFIID riid, LPVOID* ppv);
STDMETHOD_(ULONG, AddRef)();
STDMETHOD_(ULONG, Release)();

// IPropertyNotifySink methods
STDMETHOD(OnChanged)(DISPID dispID);
STDMETHOD(OnRequestEdit)(DISPID dispID);

// IOleClientSite methods
STDMETHOD(SaveObject)(void) { ODS("SaveObject/n"); return E_NOTIMPL; }

STDMETHOD(GetMoniker)(DWORD dwAssign,
DWORD dwWhichMoniker,
IMoniker** ppmk)
{ ODS("GetMoniker/n"); return E_NOTIMPL; }

STDMETHOD(GetContainer)(IOleContainer** ppContainer)
{ ODS("GetContainer/n"); return E_NOTIMPL; }

STDMETHOD(ShowObject)(void)
{ ODS("ShowObject/n"); return E_NOTIMPL; }

STDMETHOD(OnShowWindow)(BOOL fShow)
{ ODS("OnShowWindow/n"); return E_NOTIMPL; }

STDMETHOD(RequestNewObjectLayout)(void)
{ ODS("RequestNewObjectLayout/n"); return E_NOTIMPL; }

// IDispatch method
STDMETHOD(GetTypeInfoCount)(UINT* pctinfo)
{ ODS("GetTypeInfoCount/n"); return E_NOTIMPL; }

STDMETHOD(GetTypeInfo)(UINT iTInfo,
LCID lcid,
ITypeInfo** ppTInfo)
{ ODS("GetTypeInfo/n"); return E_NOTIMPL; }

STDMETHOD(GetIDsOfNames)(REFIID riid,
LPOLESTR* rgszNames,
UINT cNames,
LCID lcid,
DISPID* rgDispId)
{ ODS("GetIDsOfNames/n"); return E_NOTIMPL; }

STDMETHOD(Invoke)(DISPID dispIdMember,
REFIID riid,
LCID lcid,
WORD wFlags,
DISPPARAMS __RPC_FAR *pDispParams,
VARIANT __RPC_FAR *pVarResult,
EXCEPINFO __RPC_FAR *pExcepInfo,
UINT __RPC_FAR *puArgErr);

// Additional class methods
HRESULT Init(int argc, char* argv[]);
HRESULT Run();
HRESULT Term();
HRESULT Walk();
HRESULT GetUA(BSTR* pbstrUA);

protected:
// Persistence helpers
HRESULT LoadURLFromFile();
HRESULT LoadURLFromMoniker();

IHTMLDocument2* m_pMSHTML;
DWORD m_dwRef;
DWORD m_dwCookie;
LPCONNECTIONPOINT m_pCP;
HRESULT m_hrConnected;
LPTSTR m_szURL;
INTERNET_SCHEME m_nScheme;
READYSTATE m_lReadyState;

CWinSink* m_pWinSink;
};

STDMETHODIMP CApp::QueryInterface(REFIID riid, LPVOID* ppv)
{
*ppv = NULL;

if (IID_IUnknown == riid || IID_IPropertyNotifySink == riid)
{
*ppv = (LPUNKNOWN)(IPropertyNotifySink*)this;
AddRef();
return NOERROR;
}
else if (IID_IOleClientSite == riid)
{
*ppv = (IOleClientSite*)this;
AddRef();
return NOERROR;
}
else if (IID_IDispatch == riid)
{
*ppv = (IDispatch*)this;
AddRef();
return NOERROR;
}
else
{
OLECHAR wszBuff[39];
int i = StringFromGUID2(riid, wszBuff, 39);
TCHAR szBuff[39];
// CODE REVIEW: Dangerous API. Ensure proper output buff size. OK.
i = WideCharToMultiByte(CP_ACP, 0, wszBuff, -1, szBuff, 39, NULL, NULL);

ODS("CApp QI: "); ODS(szBuff); ODS("/n");
return E_NOTIMPL;
}
}

STDMETHODIMP_(ULONG) CApp::AddRef()
{
TCHAR szBuff[255];
// CODE REVIEW: Replace Banned API.
// wsprintf(szBuff, "CApp refcount increased to %d/n", m_dwRef+1);
StringCchPrintf(szBuff, 255, "CApp refcount increased to %d/n", m_dwRef+1);
ODS(szBuff);
return ++m_dwRef;
}

STDMETHODIMP_(ULONG) CApp::Release()
{
TCHAR szBuff[255];

if (--m_dwRef == 0)
{
ODS("Deleting CApp/n");
delete this;
return 0;
}

// CODE REVIEW: Replace Banned API.
// wsprintf(szBuff, "CApp refcount reduced to %d/n", m_dwRef);
StringCchPrintf(szBuff, 255, "CApp refcount reduced to %d/n", m_dwRef);
ODS(szBuff);
return m_dwRef;
}

// Fired on change of the value of a 'bindable' property
STDMETHODIMP CApp::OnChanged(DISPID dispID)
{
HRESULT hr;
TCHAR szBuff[255];

if (DISPID_READYSTATE == dispID)
{
// check the value of the readystate property
assert(m_pMSHTML);

VARIANT vResult = {0};
EXCEPINFO excepInfo;
UINT uArgErr;

DISPPARAMS dp = {NULL, NULL, 0, 0};
if (SUCCEEDED(hr = m_pMSHTML->Invoke(DISPID_READYSTATE, IID_NULL, LOCALE_SYSTEM_DEFAULT,
DISPATCH_PROPERTYGET, &dp, &vResult, &excepInfo, &uArgErr)))
{
// CODE REVIEW: Recode to replace banned lstrcpy API in several cases below.
#define RSLENGTH 20
TCHAR szReadyState[RSLENGTH];
assert(VT_I4 == V_VT(&vResult));
m_lReadyState = (READYSTATE)V_I4(&vResult);
switch (m_lReadyState)
{
case READYSTATE_UNINITIALIZED: //= 0,
// CODE REVIEW: Replace banned lstrcpy API.
// lstrcpy(szReadyState, _T("Uninitialized"));
StringCchCopy(szReadyState, RSLENGTH, _T("Uninitialized"));
break;
case READYSTATE_LOADING: // = 1,
// CODE REVIEW: Replace banned lstrcpy API.
// lstrcpy(szReadyState, _T("Loading"));
StringCchCopy(szReadyState, RSLENGTH, _T("Loading"));
break;
case READYSTATE_LOADED: // = 2,
// CODE REVIEW: Replace banned lstrcpy API.
// lstrcpy(szReadyState, _T("Loaded"));
StringCchCopy(szReadyState, RSLENGTH, _T("Loaded"));
break;
case READYSTATE_INTERACTIVE: // = 3,
// CODE REVIEW: Replace banned lstrcpy API.
// lstrcpy(szReadyState, _T("Interactive"));
StringCchCopy(szReadyState, RSLENGTH, _T("Interactive"));
break;
case READYSTATE_COMPLETE: // = 4
// CODE REVIEW: Replace banned lstrcpy API.
// lstrcpy(szReadyState, _T("Complete"));
StringCchCopy(szReadyState, RSLENGTH, _T("Complete"));
BOOL fRet = PostThreadMessage(GetCurrentThreadId(),
WM_USER_STARTWALKING,
(WPARAM)0,
(LPARAM)0);
break;
}

// CODE REVIEW: Replace Banned API.
// wsprintf(szBuff, _T("OnChanged: readyState = %s/n"), szReadyState);
StringCchPrintf(szBuff, 255, _T("OnChanged: readyState = %s/n"), szReadyState);
VariantClear(&vResult);
}
else
{
// CODE REVIEW: Replace banned lstrcpy API.
// lstrcpy(szBuff, _T("Unable to obtain readyState value/n"));
StringCchCopy(szBuff, 255, _T("Unable to obtain readyState value/n"));
}
}
else
{
// CODE REVIEW: Replace Banned API.
// wsprintf(szBuff, _T("OnChanged: %d/n"), dispID);
StringCchPrintf(szBuff, 255, _T("OnChanged: %d/n"), dispID);
}

ODS(szBuff);
cout << szBuff;

return NOERROR;
}

STDMETHODIMP CApp::OnRequestEdit(DISPID dispID)
{
// Property changes are OK any time as far as this app is concerned
TCHAR szBuff[255];
// CODE REVIEW: Replace Banned API.
// wsprintf(szBuff, _T("OnRequestEdit: %d/n"), dispID);
StringCchPrintf(szBuff, 255, _T("OnRequestEdit: %d/n"), dispID);
ODS(szBuff);

return NOERROR;
}

typedef CApp* LPAPP;

LPAPP g_pApp;

int main(int argc, char* argv[])
{
HRESULT hr = NOERROR;

g_pApp = new CApp;
if (!g_pApp)
{
return -1;
}

if (FAILED(hr = CoInitialize(NULL)))
{
return -1;
}

if (FAILED(g_pApp->Init(argc, argv)))
{
goto Error;
}

g_pApp->Run();

g_pApp->Term();

Error:
if (g_pApp) g_pApp->Release();

CoUninitialize();

if (FAILED(hr))
{
return -1;
}
else
{
return 0;
}
}

// Return the protocol associated with the specified URL
INTERNET_SCHEME GetScheme(LPCTSTR szURL)
{
URL_COMPONENTS urlComponents;
DWORD dwFlags = 0;
INTERNET_SCHEME nScheme = INTERNET_SCHEME_UNKNOWN;

// CODE REVIEW: Dangerous API. Ensure zeroed buffer size in bytes. It is.
ZeroMemory((PVOID)&urlComponents, sizeof(URL_COMPONENTS));
urlComponents.dwStructSize = sizeof(URL_COMPONENTS);

if (szURL)
{
if (InternetCrackUrl(szURL, 0, dwFlags, &urlComponents))
{
nScheme = urlComponents.nScheme;
}
}

return nScheme;
}

// Initialize the app. Load MSHTML, hook up property notification sink, etc
HRESULT CApp::Init(int argc, char* argv[])
{
HRESULT hr;
LPCONNECTIONPOINTCONTAINER pCPC = NULL;
LPOLEOBJECT pOleObject = NULL;
LPOLECONTROL pOleControl = NULL;

BSTR bstrUA = NULL;
_bstr_t _bstrUA;

if (argc < 2)
{
// If no arguments were passed, load a default URL
m_szURL = (LPTSTR)c_szDefaultUrl;
m_nScheme = INTERNET_SCHEME_HTTP;
}
else
{
// otherwise, check the scheme (protocol)
// to determine which persistence interface to use
// see the Run method for where the scheme is used
m_szURL = argv[1];
m_nScheme = GetScheme(m_szURL);
}

// Create an instance of an dynamic HTML document
if (FAILED(hr = CoCreateInstance( CLSID_HTMLDocument, NULL,
CLSCTX_INPROC_SERVER, IID_IHTMLDocument2,
(LPVOID*)&g_pApp->m_pMSHTML )))
{
goto Error;
}

// Print user-agent information
hr = GetUA(&bstrUA);
if (bstrUA)
{
_bstrUA = bstrUA;
PrintBSTR(_bstrUA);
SysFreeString(bstrUA);
}

IHTMLWindow2* pWin;
if (SUCCEEDED(hr = m_pMSHTML->get_parentWindow(&pWin)))
{
m_pWinSink = new CWinSink();
if (!m_pWinSink)
{
goto Error;
}
if (FAILED(m_pWinSink->Init(pWin)))
{
pWin->Release();
goto Error;
}
}

if (FAILED(hr = m_pMSHTML->QueryInterface(IID_IOleObject, (LPVOID*)&pOleObject)))
{
goto Error;
}
hr = pOleObject->SetClientSite((IOleClientSite*)this);
pOleObject->Release();

if (FAILED(hr = m_pMSHTML->QueryInterface(IID_IOleControl, (LPVOID*)&pOleControl)))
{
goto Error;
}

hr = pOleControl->OnAmbientPropertyChange(DISPID_AMBIENT_USERMODE);

hr = pOleControl->OnAmbientPropertyChange(DISPID_AMBIENT_DLCONTROL);

pOleControl->Release();

// Hook up sink to catch ready state property change
if (FAILED(hr = m_pMSHTML->QueryInterface(IID_IConnectionPointContainer, (LPVOID*)&pCPC)))
{
goto Error;
}

if (FAILED(hr = pCPC->FindConnectionPoint(IID_IPropertyNotifySink, &m_pCP)))
{
goto Error;
}

m_hrConnected = m_pCP->Advise((LPUNKNOWN)(IPropertyNotifySink*)this, &m_dwCookie);

Error:
if (pCPC) pCPC->Release();

return hr;
}

// Clean up connection point
HRESULT CApp::Term()
{
return Passivate();
}

// Load the specified document and start pumping messages
HRESULT CApp::Run()
{
HRESULT hr;
MSG msg;

switch(m_nScheme)
{
case INTERNET_SCHEME_HTTP:
case INTERNET_SCHEME_FTP:
case INTERNET_SCHEME_GOPHER:
case INTERNET_SCHEME_HTTPS:
case INTERNET_SCHEME_FILE:
// load URL using IPersistMoniker
hr = LoadURLFromMoniker();
break;
case INTERNET_SCHEME_NEWS:
case INTERNET_SCHEME_MAILTO:
case INTERNET_SCHEME_SOCKS:
// we don't handle these
return E_FAIL;
break;
//case INTERNET_SCHEME_DEFAULT:
//case INTERNET_SCHEME_PARTIAL = -2,
//case INTERNET_SCHEME_UNKNOWN = -1,
default:
// try loading URL using IPersistFile
hr = LoadURLFromFile();
break;
}

if (SUCCEEDED(hr) || E_PENDING == hr)
{

while (GetMessage(&msg, NULL, 0, 0))
{
if (WM_USER_STARTWALKING == msg.message && NULL == msg.hwnd)
{
g_pApp->Walk();
}
else
{
DispatchMessage(&msg);
}
}
}

return hr;
}

// Use an asynchronous Moniker to load the specified resource
HRESULT CApp::LoadURLFromMoniker()
{
HRESULT hr;
OLECHAR wszURL[MAX_PATH*sizeof(OLECHAR)];
// CODE REVIEW: Dangerous API. Protect for input string not null terminated.
// if (0 == MultiByteToWideChar(CP_ACP, 0, m_szURL, -1, wszURL, MAX_PATH*sizeof(OLECHAR)))
UINT nLen = 0;
if (FAILED(StringCchLength(m_szURL, MAX_PATH, &nLen)))
return E_FAIL;
if (0 == MultiByteToWideChar(CP_ACP, 0, m_szURL, nLen, wszURL, MAX_PATH*sizeof(OLECHAR)))
return E_FAIL;

// Ask the system for a URL Moniker
LPMONIKER pMk = NULL;
LPBINDCTX pBCtx = NULL;
LPPERSISTMONIKER pPMk = NULL;

if (FAILED(hr = CreateURLMoniker(NULL, wszURL, &pMk)))
{
return hr;
}

if (FAILED(hr = CreateBindCtx(0, &pBCtx)))
{
goto Error;
}

// Use MSHTML moniker services to load the specified document
if (SUCCEEDED(hr = m_pMSHTML->QueryInterface(IID_IPersistMoniker,
(LPVOID*)&pPMk)))
{
// Call Load on the IPersistMoniker
// This may return immediately, but the document isn't loaded until
// MSHTML reports READYSTATE_COMPLETE. See the implementation of
// IPropertyNotifySink::OnChanged above and see how the app waits
// for this state change before walking the document's object model.
TCHAR szBuff[MAX_PATH];

// CODE REVIEW: Replace Banned API.
// wsprintf(szBuff, "Loading %s.../n", m_szURL);
StringCchPrintf(szBuff, MAX_PATH, "Loading %s.../n", m_szURL);

ODS(szBuff);
cout << szBuff;
hr = pPMk->Load(FALSE, pMk, pBCtx, STGM_READ);
}

Error:
if (pMk) pMk->Release();
if (pBCtx) pBCtx->Release();
if (pPMk) pPMk->Release();
return hr;
}

// A more traditional form of persistence.
// MSHTML performs this asynchronously as well.
HRESULT CApp::LoadURLFromFile()
{
HRESULT hr;
OLECHAR wszURL[MAX_PATH*sizeof(OLECHAR)];
// CODE REVIEW: Dangerous API. Protect for input string not null terminated.
// if (0 == MultiByteToWideChar(CP_ACP, 0, m_szURL, -1, wszURL, MAX_PATH*sizeof(OLECHAR)))
UINT nLen = 0;
if (FAILED(StringCchLength(m_szURL, MAX_PATH, &nLen)))
return E_FAIL;
if (0 == MultiByteToWideChar(CP_ACP, 0, m_szURL, nLen, wszURL, MAX_PATH*sizeof(OLECHAR)))
return E_FAIL;

LPPERSISTFILE pPF;
// MSHTML supports file persistence for ordinary files.
if ( SUCCEEDED(hr = m_pMSHTML->QueryInterface(IID_IPersistFile, (LPVOID*) &pPF)))
{
TCHAR szBuff[MAX_PATH];

// CODE REVIEW: Replace Banned API.
// wsprintf(szBuff, "Loading %s.../n", m_szURL);
StringCchPrintf(szBuff, MAX_PATH, "Loading %s.../n", m_szURL);

ODS(szBuff);
cout << szBuff;
hr = pPF->Load(wszURL, 0);
pPF->Release();
}

return hr;
}

// Walk the object model.
HRESULT CApp::Walk()
{
HRESULT hr;
IHTMLElementCollection* pColl = NULL;

assert(m_pMSHTML);
if (!m_pMSHTML)
{
return E_UNEXPECTED;
}

if (READYSTATE_COMPLETE != m_lReadyState)
{
ODS("Shouldn't get here 'til MSHTML changes readyState to READYSTATE_COMPLETE/n");
DebugBreak();
return E_UNEXPECTED;
}

// retrieve a reference to the ALL collection
if (SUCCEEDED(hr = m_pMSHTML->get_all( &pColl )))
{
long cElems;

assert(pColl);

// retrieve the count of elements in the collection
if (SUCCEEDED(hr = pColl->get_length( &cElems )))
{
// for each element retrieve properties such as TAGNAME and HREF
for ( int i=0; i<cElems; i++ )
{
VARIANT vIndex;
vIndex.vt = VT_UINT;
vIndex.lVal = i;
VARIANT var2 = { 0 };
LPDISPATCH pDisp;

if (SUCCEEDED(hr = pColl->item( vIndex, var2, &pDisp )))
{
IHTMLElement* pElem = NULL;
if (SUCCEEDED(hr = pDisp->QueryInterface( IID_IHTMLElement, (LPVOID*)&pElem )))
{
_bstr_t bstrTag;
BSTR bstr;

assert(pElem);

hr = pElem->get_tagName(&bstr);
if (bstr)
{
bstrTag = bstr;
SysFreeString(bstr);
}

// if the element is an <IMG> get its SRC attribute
IHTMLImgElement* pImage = NULL;
if (SUCCEEDED(hr = pDisp->QueryInterface( IID_IHTMLImgElement, (LPVOID*)&pImage )))
{
assert(pImage);

pImage->get_src(&bstr);
if (bstr)
{
bstrTag += " - ";
bstrTag += bstr;
SysFreeString(bstr);
}
pImage->Release();
}

PrintBSTR(bstrTag);

pElem->Release();
} // QI(IHTMLElement)
pDisp->Release();
} // item
} // for
} // get_length

pColl->Release();
} // get_all

// We're done so post ourselves a quit to terminate the message pump.
PostQuitMessage(0);

return hr;
}

// MSHTML Queries for the IDispatch interface of the host through the IOleClientSite
// interface that MSHTML is passed through its implementation of IOleObject::SetClientSite()
STDMETHODIMP CApp::Invoke(DISPID dispIdMember,
REFIID riid,
LCID lcid,
WORD wFlags,
DISPPARAMS __RPC_FAR *pDispParams,
VARIANT __RPC_FAR *pVarResult,
EXCEPINFO __RPC_FAR *pExcepInfo,
UINT __RPC_FAR *puArgErr)
{
if (!pVarResult)
{
return E_POINTER;
}

PrintDISPID(dispIdMember);

switch(dispIdMember)
{
case DISPID_AMBIENT_DLCONTROL:
// respond to this ambient to indicate that we only want to
// download the page, but we don't want to run scripts,
// Java applets, or ActiveX controls
V_VT(pVarResult) = VT_I4;
V_I4(pVarResult) = DLCTL_DOWNLOADONLY |
DLCTL_NO_SCRIPTS |
DLCTL_NO_JAVA |
DLCTL_NO_DLACTIVEXCTLS |
DLCTL_NO_RUNACTIVEXCTLS;
break;
case DISPID_AMBIENT_USERMODE:
// put MSHTML into design mode
V_VT(pVarResult) = VT_BOOL;
V_BOOL(pVarResult) = VARIANT_FALSE;
break;
default:
return DISP_E_MEMBERNOTFOUND;
}

return NOERROR;
}

// Diagnostic helper to discover what ambient properties MSHTML
// asks of the host
void PrintDISPID(DISPID dispidMember)
{
#define ALEN(x) (sizeof(x)/(sizeof(x[0])))

typedef struct {
DISPID dispid;
LPCTSTR szDesc;
} DISPIDDESC;

static DISPIDDESC aDISPIDS[] = {
{DISPID_AMBIENT_DLCONTROL, _T("DISPID_AMBIENT_DLCONTROL")}, // (-5512)
{DISPID_AMBIENT_USERAGENT, _T("DISPID_AMBIENT_USERAGENT")}, // (-5513)
{DISPID_AMBIENT_BACKCOLOR, _T("DISPID_AMBIENT_BACKCOLOR")}, // (-701)
{DISPID_AMBIENT_DISPLAYNAME, _T("DISPID_AMBIENT_DISPLAYNAME")}, // (-702)
{DISPID_AMBIENT_FONT, _T("DISPID_AMBIENT_FONT")}, // (-703)
{DISPID_AMBIENT_FORECOLOR, _T("DISPID_AMBIENT_FORECOLOR")}, // (-704)
{DISPID_AMBIENT_LOCALEID, _T("DISPID_AMBIENT_LOCALEID")}, // (-705)
{DISPID_AMBIENT_MESSAGEREFLECT, _T("DISPID_AMBIENT_MESSAGEREFLECT")}, // (-706)
{DISPID_AMBIENT_SCALEUNITS, _T("DISPID_AMBIENT_SCALEUNITS")}, // (-707)
{DISPID_AMBIENT_TEXTALIGN, _T("DISPID_AMBIENT_TEXTALIGN")}, // (-708)
{DISPID_AMBIENT_USERMODE, _T("DISPID_AMBIENT_USERMODE")}, // (-709)
{DISPID_AMBIENT_UIDEAD, _T("DISPID_AMBIENT_UIDEAD")}, // (-710)
{DISPID_AMBIENT_SHOWGRABHANDLES, _T("DISPID_AMBIENT_SHOWGRABHANDLES")}, // (-711)
{DISPID_AMBIENT_SHOWHATCHING, _T("DISPID_AMBIENT_SHOWHATCHING")}, // (-712)
{DISPID_AMBIENT_DISPLAYASDEFAULT, _T("DISPID_AMBIENT_DISPLAYASDEFAULT")}, // (-713)
{DISPID_AMBIENT_SUPPORTSMNEMONICS, _T("DISPID_AMBIENT_SUPPORTSMNEMONICS")}, // (-714)
{DISPID_AMBIENT_AUTOCLIP, _T("DISPID_AMBIENT_AUTOCLIP")}, // (-715)
{DISPID_AMBIENT_APPEARANCE, _T("DISPID_AMBIENT_APPEARANCE")}, // (-716)
{DISPID_AMBIENT_PALETTE, _T("DISPID_AMBIENT_PALETTE")}, // (-726)
{DISPID_AMBIENT_TRANSFERPRIORITY, _T("DISPID_AMBIENT_TRANSFERPRIORITY")}, // (-728)
{DISPID_AMBIENT_RIGHTTOLEFT, _T("DISPID_AMBIENT_RIGHTTOLEFT")}, // (-732)
{DISPID_AMBIENT_TOPTOBOTTOM, _T("DISPID_AMBIENT_TOPTOBOTTOM")} // (-733)
};

TCHAR szBuff[255];

for (int i = 0; i < ALEN(aDISPIDS); i++)
{
if (dispidMember == aDISPIDS.dispid)
{
// CODE REVIEW: Replace Banned API.
// wsprintf(szBuff, "MSHTML requesting '%s'/n", aDISPIDS.szDesc);
StringCchPrintf(szBuff, 255, "MSHTML requesting '%s'/n", aDISPIDS.szDesc);
ODS(szBuff);
return;
}
}

// CODE REVIEW: Replace Banned API.
// wsprintf(szBuff, "MSHTML requesting DISPID '%d'/n", dispidMember);
StringCchPrintf(szBuff, 255, "MSHTML requesting DISPID '%d'/n", dispidMember);
ODS(szBuff);
}

// Given a document reference (IHTMLDocument2), get the user-agent string
// document.parentWindow.navigator.userAgent
HRESULT CApp::GetUA(BSTR *pbstrUA)
{
HRESULT hr;
IHTMLWindow2* pWindow = NULL;

assert(m_pMSHTML);
if (!m_pMSHTML)
{
return E_UNEXPECTED;
}

// m_pMSHTML caches an IHTMLDocument2 interface pointer
hr = m_pMSHTML->get_parentWindow(&pWindow);
if (FAILED(hr) || !pWindow)
{
return hr;
}

IOmNavigator* pNavigator = NULL;
// get_clientInformation == get_navigator
hr = pWindow->get_clientInformation(&pNavigator);
if (FAILED(hr) || !pNavigator)
{
goto Error;
}

hr = pNavigator->get_userAgent(pbstrUA);


Error:
if (pWindow)
{
pWindow->Release();
}

if (pNavigator)
{
pNavigator->Release();
}

return hr;
}

void PrintBSTR(BSTR bstr)
{
_bstr_t _bstr;
_bstr = bstr;
PrintBSTR(_bstr);
}

void PrintBSTR(_bstr_t _bstr)
{
TCHAR szTag[2048];

LPOLESTR wszTag = _bstr;
UINT uLen = _bstr.length();
// CODE REVIEW: Dangerous API. Ensure proper output buff size. OK.
int iBytes = WideCharToMultiByte(CP_ACP, 0, wszTag, uLen,
szTag, 2048, NULL, NULL);

if (iBytes < 2047)
{
szTag[uLen] = '/0';
}
else
{
szTag[2047] = '/0';
}
cout << szTag << endl;
ODS(szTag);
ODS("/n");
}

WINSINK.CPP中
// ===========================================================================
// File: W I N S I N K . C P P
//
// THIS CODE AND INFORMATION IS PROVIDED "AS IS" WITHOUT WARRANTY OF
// ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING BUT NOT LIMITED TO
// THE IMPLIED WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A
// PARTICULAR PURPOSE.
//
//
// - CWinSink implements a simple object that traps MSHTML window events such as window:nload.
// DHTML authors simply do the following in an HTML page:
// function window_load()
// {
// alert("window:nload fired");
// }
//
// window.onload = window_load;
//
// C++ developers do the following:
// Instantiate a host object that implements IDispatch
// QI an interface exposed by MSHTML for IConnectionPointContainer (ICPC)
// Request a specific connection point via ICPC
// Call Advise on the connect point, passing a reference to the host object
//
// MSHTML will call the host's IDispatch::Invoke implementation when an event occurs.
//
// - For a complete list of window events see dispinterface HTMLWindowEvents2 in mshtml.idl.
//
// Copyright 1995-2002 Microsoft Corporation. All Rights Reserved.

#include <windows.h>
#include <mshtml.h>
#include <mshtmdid.h>
#include "common.h"
#include "winsink.h"
#include <iostream.h>

// CODE REVIEW: Safe String Functions.
// Include safe string functions.
#include <strsafe.h>

HRESULT CWinSink::Init(IHTMLWindow2* pWin)
{
HRESULT hr = NOERROR;
LPCONNECTIONPOINTCONTAINER pCPC = NULL;

if (m_pWin)
{
m_pWin->Release();
}
m_pWin = pWin;

if (FAILED(hr = pWin->QueryInterface(IID_IConnectionPointContainer, (LPVOID*)&pCPC)))
{
goto Error;
}

if (FAILED(hr = pCPC->FindConnectionPoint(DIID_HTMLWindowEvents2, &m_pCP)))
{
goto Error;
}

m_hrConnected = m_pCP->Advise((LPUNKNOWN)this, &m_dwCookie);

Error:
if (pCPC) pCPC->Release();
return hr;
}

STDMETHODIMP CWinSink::QueryInterface(REFIID riid, LPVOID* ppv)
{
*ppv = NULL;

if (IID_IUnknown == riid)
{
*ppv = (LPUNKNOWN)this;
AddRef();
return NOERROR;
}
else if (IID_IDispatch == riid)
{
*ppv = (IDispatch*)this;
AddRef();
return NOERROR;
}
else
{
OLECHAR wszBuff[39];
int i = StringFromGUID2(riid, wszBuff, 39);
TCHAR szBuff[39];
// CODE REVIEW: Dangerous API. Ensured dest buffer size is OK.
i = WideCharToMultiByte(CP_ACP, 0, wszBuff, -1, szBuff, 39, NULL, NULL);
ODS("CWinSink QI: "); ODS(szBuff); ODS("/n");
return E_NOTIMPL;
}
}

STDMETHODIMP_(ULONG) CWinSink::AddRef()
{
TCHAR szBuff[255];
// CODE REVIEW: Replace Banned API.
// wsprintf(szBuff, "CWinSink refcount increased to %d/n", m_dwRef+1);
StringCchPrintf(szBuff, 255, "CWinSink refcount increased to %d/n", m_dwRef+1);
ODS(szBuff);
return ++m_dwRef;
}

STDMETHODIMP_(ULONG) CWinSink::Release()
{
TCHAR szBuff[255];

if (--m_dwRef == 0)
{
ODS("Deleting CWinSink/n");
delete this;
return 0;
}

// CODE REVIEW: Replace Banned API.
// wsprintf(szBuff, "CWinSink refcount reduced to %d/n", m_dwRef);
StringCchPrintf(szBuff, 255, "CWinSink refcount reduced to %d/n", m_dwRef);
ODS(szBuff);
return m_dwRef;
}

// OA events are fired through the IDispatch::Invoke of the sink object
STDMETHODIMP CWinSink::Invoke(DISPID dispIdMember,
REFIID riid,
LCID lcid,
WORD wFlags,
DISPPARAMS __RPC_FAR *pDispParams,
VARIANT __RPC_FAR *pVarResult,
EXCEPINFO __RPC_FAR *pExcepInfo,
UINT __RPC_FAR *puArgErr)
{
if (!pVarResult)
{
return E_POINTER;
}

switch(dispIdMember)
{

case DISPID_HTMLWINDOWEVENTS2_ONLOAD:
cout << "HTMLWindowEvents2:nload fired" << endl;
break;
default:
return DISP_E_MEMBERNOTFOUND;
}

return NOERROR;
}

你自己都懒得看，谁替你翻译呀。把不会翻译的地方列出来。我帮你搞定。

不好意思，我没学过C，所以看不懂。其实我只相知到怎么使用DispHTMLDocument。
望见教。

看看这个
http://vip.6to23.com/NowCan1/csdn/BCB_TIPS/cb_tip32.htm

感谢dana的帮助.他用QQ和我聊了很多,受益非浅.