0
実行時にクラスが作成されました。実行時にTRESTClientコンポーネントに問題があります。エラー:GUID [{}]のインターフェイスを持つピアが登録されていません
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の作成時に例外が発生します。それは何でしょうか?おかげで..