Fórum O que significa esse erro #550668

'Verifique o Driveid

Obrigado P2

posso te fazer uma pergunta ou criando um pequeno sistema Delphi XE 6 Firebird + DataSnap só que a parte cliente não roda o servidor tando em outra maquina mesmo em rede ele não roda, e também já fiz teste em um servidor mais não esta funcionado não o servidor conecta mais a parte cliente só conecta quando eu rodo o servidor e o cliente na maquina que estou desenvolvendo no caso que eu coloque o servidor para outra maquina o servidor conecta mais o cliente da erro de socket.

o que poderia ser isso!!!


espero resposta.,

Já verificou o firewall do seu servidor?

No PC Servidor Instale o Firebird de acordo com a versão do banco de dados.

Desative o Firewall:

Use arquivo CONF.INI para realizar a conexão com o banco de dados.
Nos servidores Cliente, cole dentro do system32 a dll fbclient.

Sim
Ta Habilitado e também abri a porta 3050 para o Firebird

Vou Mandar uma Imagem da minha conexão verto do servidor e do cliente

----------------------------------------------------------------------------------------------------------
>>>>>>>>> Veja a Codificação do Servidor para a Configuração >>>>>>>
----------------------------------------------------------------------------------------------------------

procedure TF_Servidor.SpeedAltenticarClick(Sender: TObject);
begin
//-----------------------------------------------------------------------------
// Buscando os dados do Arquivo INI
//-----------------------------------------------------------------------------
Edit_Porta_Atual.Text := Iniconf.ReadString('Servidor','Porta','');
Edit_IP_Atual.Text := Iniconf.ReadString('Servidor','IP','');
Edit_Caminho_Atual.Text := Iniconf.ReadString('Servidor','Caminho','');

{
Iniconf.ReadString('Servidor','MonitorBy','');
Iniconf.ReadString('Servidor','User_Name','');
Iniconf.ReadString('Servidor','Password','');
Iniconf.ReadString('Servidor','Protocol','');
Iniconf.ReadString('Servidor','CharacterSet','');
Iniconf.ReadString('Servidor','DriverID','');
Iniconf.ReadString('Servidor','Name','');
Iniconf.ReadString('Servidor','ConnectionDe','');
}
//-----------------------------------------------------------------------------

// Recebendo dados
//-----------------------------------------------------------------------------
SC.Transporte.Port := StrToInt(Iniconf.ReadString('Servidor','Porta','')); // DSTCPServerTransport1 Recebe a Porta
SC.Servidor.Params.Values['Database'] := Iniconf.ReadString('Servidor','Caminho',''); // FDConnection1 Recebe o Caminho do Banco
SC.Servidor.Params.Values['Server'] := Iniconf.ReadString('Servidor','IP',''); // FDConnection1 Recebe o IP

// Conferir se a Porta o IP e o Caminho do Banco esta Correto
Edit_Porta_Atual . Text := IntToStr(SC . Transporte . Port);
Edit_IP_Atual . Text := SC.Servidor . Params . Values['Server'];
Edit_Caminho_Atual . Text := SC.Servidor . Params . Values['Database'];

end;

procedure TF_Servidor.SpeedConectarClick(Sender: TObject);
begin
//-----------------------------------------------------------------------------
// Habilitando o Componte DSServer1
//-----------------------------------------------------------------------------
SC.DSServer1.Start;
SpeedDesconectar . Enabled := True;
SpeedConectar . Enabled := False;
PN_Topo . Caption := 'Servidor Conectado';
end;

procedure TF_Servidor.SpeedDesconectarClick(Sender: TObject);
begin

//-----------------------------------------------------------------------------
// Desabilitando o Componte DSServer1
//-----------------------------------------------------------------------------
SC.DSServer1.Stop;
SpeedDesconectar . Enabled := False;
SpeedConectar . Enabled := True;
PN_Topo . Caption := 'Servidor Desconectado';
end;

procedure TF_Servidor.SpeedGravarClick(Sender: TObject);
begin

//-----------------------------------------------------------------------------
//Gravando o Arquivo INI
//-----------------------------------------------------------------------------
if Edit_Porta_Atual.Text = '' then begin
Iniconf.WriteString('Servidor','Porta', Edit_Nova_Porta.Text);
Iniconf.WriteString('Servidor','IP',Edit_Novo_IP.Text);
Iniconf.WriteString('Servidor','Caminho',Edit_Novo_Caminho.Text);
//Iniconf.WriteString('Servidor','MonitorBy',SC.Servidor.Params.Values['MonitorBy']);
///Iniconf.WriteString('Servidor','User_Name',SC.Servidor.Params.Values['User_Name']);
//Iniconf.WriteString('Servidor','Password',SC.Servidor.Params.Values['Password']);
//Iniconf.WriteString('Servidor','Protocol',SC.Servidor.Params.Values['Protocol']);
//Iniconf.WriteString('Servidor','CharacterSet',SC.Servidor.Params.Values['CharacterSet']);
//Iniconf.WriteString('Servidor','DriverID',SC.Servidor.Params.Values['DriverID']);
//Iniconf.WriteString('Servidor','Name',SC.Servidor.Params.Values['Name']);
//Iniconf.WriteString('Servidor','ConnectionDe',SC.Servidor.Params.Values['ConnectionDe']);

end
else
SpeedGravar.Enabled := false;
end;

procedure TF_Servidor.Speed_AtualizarClick(Sender: TObject);
begin

//-----------------------------------------------------------------------------
// Atualiza Os Campos porta, IP, Banco
//-----------------------------------------------------------------------------
Edit_Porta_Atual . Text := IntToStr(SC . Transporte . Port);
Edit_IP_Atual . Text := SC.Servidor . Params . Values['Server'];
Edit_Caminho_Atual . Text := SC.Servidor . Params . Values['Database'];

end;

end.

Veja:
https://www.devmedia.com.br/forum/firedac-conexao-remota/549504