错误：与guid [{}]的接口没有同级已注册

Question

我创建了我的类以使用REST e我在运行时遇到了TRESTClient组件的问题。

TFrwWebServiceREST = class(TInterfacedObject, IRESTWebServiceProxy) 
strict private 
    FClientRest: TRESTClient; 
    FRequestRest: TRESTRequest; 
    FResponseRest: TRESTResponse; 
private 
    FURL: string; 
public 
    procedure SetPassword (Const APassword: string); 
    procedure SetPort (Const APort: Integer); 
    procedure SetServer (Const AServer: string); 
    procedure SetUserName (Const AUserName: string); 

    procedure AddParam (AName: string; AValue: string = ''); 
    function GetParamValue (AParamName: string): string; 

    procedure Executar; 
    constructor Create (AUrl: string); virtual; 
    Destructor Destroy; override; 
end; 

constructor TFrwWebServiceREST.Create(AUrl: string); 
begin 
    FClientRest := TRESTClient.Create (AUrl); //the error occurs here 
    FClientRest.AcceptEncoding := 'UTF-8'; 
    FResponseRest := TRESTResponse.Create (nil); 
    FResponseRest.ContentEncoding := 'UTF-8'; 
    FRequestRest := TRESTRequest.Create (nil); 
    FRequestRest.AcceptEncoding := 'UTF-8'; 
    FRequestRest.Response := FResponseRest; 
    FRequestRest.Client := FClientRest; 
end; 

并不总是发生错误......这个过程是完美的，然后一段时间后，开始出现此错误。 创建RESTClient时引发异常。它会是什么？谢谢..

Answer 1

这是必要的，包括IPPeerClient到界面中的“使用”的条款在您的客户端代码，并包括IPPeerServer到界面中的“使用”在您的服务器代码条款，请参阅 http://blogs.embarcadero.com/pawelglowacki/2013/01/10/39958