VC -> Delphi 改写
麻烦将下面的接口 改写成 Delphi 的
//////////////////////////////////////////////////////////////////////
// IMyIEUnknow.h: interface for the IMyIEUnknow class.
//
//////////////////////////////////////////////////////////////////////
#if !defined(AFX_IMYIEUNKNOW_H__BCBEA441_D89E_4D2E_B7B9_0ACD800CD3F1__INCLUDED_)
#define AFX_IMYIEUNKNOW_H__BCBEA441_D89E_4D2E_B7B9_0ACD800CD3F1__INCLUDED_
#if _MSC_VER > 1000
#pragma once
#endif // _MSC_VER > 1000
#include "ocidl.h"
#include "atlbase.h"
extern const IID IID_MYIEClient;
extern const IID IID_MYIEServer;
class __declspec(uuid("a893efb0-d4fe-4ade-9245-55d3af9684ea")) IMyIEClient;
class IMyIEServer;
class IMyIEClient:public IUnknown
{
protected:
public:
virtual BOOL Init(IMyIEServer* pServer) = 0;
virtual BOOL Exit() = 0; // called when the plugin is unloaded
virtual BOOL Config(HWND hParent) = 0;
};
/*------------------------------------difination for server interface---------------------*/
struct MyIEInfo
{
HWND hMainWnd;
HMENU hMainMenu;
};
class IMyIEServer:public IUnknown
{
public:
virtual HRESULT STDMETHODCALLTYPE QueryInterface(REFIID iid, void** ppvObject) = 0;
virtual ULONG STDMETHODCALLTYPE AddRef() = 0;
virtual ULONG STDMETHODCALLTYPE Release() = 0;
virtual MyIEInfo* STDMETHODCALLTYPE GetInfo()=0;
IMyIEServer(){};
virtual ~IMyIEServer(){};
};
#endif // !defined(AFX_IMYIEUNKNOW_H__BCBEA441_D89E_4D2E_B7B9_0ACD800CD3F1__INCLUDED_)
问题点数：50、回复次数：1Top
1 楼Eastunfail（龍子龍孫) (Serpent's Embrace）回复于 2005-08-24 11:45:23 得分 50
IMyIECilent=interface
['a893efb0-d4fe-4ade-9245-55d3af9684ea']
function Init(pServer:IMyIEServer):Bool;stdcall;
function Exit():Bool;stdcall;
function Config(hParent:HWND):Bool;stdcall;
end;
IMyIEServer……Top
