DataSnap com FireDac

Bom dia amigo!

Esse problema é resolvido com a adição da unit IPPeerServer no uses do seu arquivo que faz a conexão.

Bom dia, Esta unit esta no servidor e no cliente quando tento abrir a conecção com o servidor retorna o mesmo erro.

unit uDMCliente;

interface

uses
System.SysUtils, System.Classes, FireDAC.Stan.Intf, FireDAC.Stan.Option,
FireDAC.Stan.Error, FireDAC.UI.Intf, FireDAC.Phys.Intf, FireDAC.Stan.Def,
FireDAC.Stan.Pool, FireDAC.Stan.Async, FireDAC.Phys, FireDAC.Phys.DS,
FireDAC.Phys.DSDef, FireDAC.VCLUI.Wait, FireDAC.Comp.UI,
FireDAC.Phys.TDBXBase, Data.DB, FireDAC.Comp.Client, FireDAC.Stan.Param,
FireDAC.DatS, FireDAC.DApt.Intf, FireDAC.DApt, FireDAC.Comp.DataSet,IPPeerServer;

type
TDM = class(TDataModule)
FDCliente: TFDConnection;
FDPhysDSDriverLink1: TFDPhysDSDriverLink;
FDGUIxWaitCursor1: TFDGUIxWaitCursor;
FDStoredProc1: TFDStoredProc;
DataSource1: TDataSource;
procedure DataModuleCreate(Sender: TObject);
procedure DataModuleDestroy(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
DM: TDM;

implementation

{%CLASSGROUP 'Vcl.Controls.TControl'}

{$R *.dfm}

procedure TDM.DataModuleCreate(Sender: TObject);
begin
FDCliente.Open();
end;

procedure TDM.DataModuleDestroy(Sender: TObject);
begin
FDCliente.Close;
end;

Bom dia....

Descobri o erro, no lado servidor IPPeerServer, no lado cliente IPPeerClient.

Funcionou perfeitamente.

Obrigado