오류 : 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를 만들 때 예외가 발생합니다. 그것은 무엇 일 수 있는가? 덕분에 ..

그것은 인터페이스에 IPPeerClient을 포함하는 것이 필요

Answer 1

절 클라이언트 코드와 인터페이스에 IPPeerServer을 포함하는 "를 사용하는 것은"당신의 서버 코드에 절은, http://blogs.embarcadero.com/pawelglowacki/2013/01/10/39958

를 참조하십시오 "사용"