0

我目前已经成功地为一个APP实现了这个演示代码，http://www.jasontpenny.com/blog/2010/03/23/custom-protocol-handler-in-delphi/，但是它似乎只有在应用程序是单一形式的应用程序。

我发现没有为 CoGetClassObject 返回工厂：

procedure NewProtocolHandler(const aProtocolName: String; aProtocolCallback: TProtocolCallback; aProtocollType: TGUID);
var
    error : HRESULT;
begin
    if _protocol <> '' then
        raise Exception.Create('Currently only supports a single asynchronous pluggable protocol');

    _protocol := aProtocolName;
    _protocolCallback := aProtocolCallback;

    error := CoGetClassObject(Class_AsyncPlugProto_Protocol, CLSCTX_SERVER, nil, IClassFactory, Factory);
    CoInternetGetSession(0, InternetSession, 0);
    InternetSession.RegisterNameSpace(Factory, Class_AsyncPlugProto_Protocol, PChar(_protocol), 0, nil, 0);

    CoCreateInstance(aProtocollType, nil {was IUnknown(Self)}, CLSCTX_INPROC_SERVER, IUnknown, MyProtocol);
end;

我开始相信这是由于初始化部分中的 ComServer 不正确造成的。

initialization
    TComObjectFactory.Create(ComServer, TAsyncPlugProto, Class_AsyncPlugProto_Protocol, 'Protocol', '', ciMultiInstance, tmApartment);
finalization
    EndProtocolHandler;
end.

我的 Web 浏览器实际上并不是表单的一部分，因为我允许在我的应用程序中使用多个浏览器，因此 Browser 被声明为 TWinControl 并且如果满足 TWebBrowser 的条件，则它通过以下方式创建：

FBrowser := TWebBrowser.Create(nil);

并访问为：

(FBrowser as TWebBrowser)

我对 Com 函数还很陌生，那么我该如何找到相对于 TWebBrowser 的 ComServer？

4

1 回答 1

0

我认为你混淆了很多事情。如果您想制作一个 APP，如果您以多种方式使用 COM 对象完成了一些工作，将会有所帮助。

ComServer 对象实际上是一个中心对象，它包含一些 COM 内部结构，可以在 Delphi 项目中使用。由于 Internet Explorer 不是 Delphi 项目，您将无法获得它的 ComServer。此外，如果您仔细查看 TWebBrowser 对象，您会注意到它也是 IWebBrowser2 对象的 COM 内部的包装器。

TWebBrowser 和 TChromium 是两个独立的项目。As是一个伟大的运营商，但它不能改变任何你想要的东西。

如果您想要另一个 APP 示例，请查看此处：http: //xxm.svn.sourceforge.net/viewvc/xxm/trunk/Delphi/local/xxmHandler.pas ?revision=235&view=markup

于 2012-10-24T18:00:19.330 回答