ОШИБКА: Нет зарегистрированного партнера с интерфейсом с 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