Fórum Como Fazer uma Conexão Remota com o delphi xe6 + dataSnap em um banco de Dados em um Servidor #553098

Tou tentado fazer conexão com um banco de dados em Nuvem mais sempre dar erro de Socket

Veja a conexão no Servidor e e no Cliente


// no Servidor Servidor

procedure TF_Servidor.FormActivate(Sender: TObject);
begin
Edit_Porta.Text := IntToStr(SC.Transporte.Port);
end;

procedure TF_Servidor.SpeedConectarClick(Sender: TObject);
begin
SC.Transporte.Port := StrToInt(Edit_Porta.Text);
SC.Transporte.Start;
SC.DSServer1.Start;
end;

procedure TF_Servidor.SpeedDesconectarClick(Sender: TObject);
begin
SC.Transporte.Stop;
SC.DSServer1.Stop;
end;

// No Cliente

procedure TF_Configuracao.SpeedConectarClick(Sender: TObject);
begin
uDM.Conectede.Close;
uDM.Conectede.Params.Clear;
uDM.Conectede.Connected := False;
uDM.Conectede.Params.Values['Port'] := Edit_Porta.Text;
uDM.Conectede.Connected := True;
uDM.CDS_Unidades.Open;
end;


se alguém poder me ajudar Fico Grato