joseberto
Novato
Registrado: Quinta-Feira, 12 de Outubro de 2017
Mensagens: 23
|
 Enviada: Qua Abr 11, 2018 9:41 pm Assunto: Conexão em Rede com MySQL e o FireDAC |
 |
|
Boa noite pessoal, tenho um código que fiz no Delphi Tokyo 10.2
funciona normalmente mais isso local em rede não funciona, eu instalei o XAMPP no Windows 10 mais tem maquina que usa XP e Windows 7, mais quando instalei no servidor tudo OK, mais nos terminais ele da o erro:
| Citação: | | Can't connect to MySQL server on 192.168.15.115 |
Esse IP é do servidor mais não acessa
Fiz um procedimento pra conectar ao banco de dados, segue abaixo:
| Código: |
Procedure LerIniCarregaBanco(Servidor, Banco:String);
var
ArqIni : tIniFile;
TxtExiste, nmServer: String;
begin
LocalArquivo:=localSistema;
ArqIni:=TIniFile.Create(LocalArquivo);
Try
TxtExiste:=ArqIni.ReadString('configuracao','Server',Servidor);
if trim(TxtExiste)='' then begin
dmDados.FDConnection.Connected:=False;
end else begin
Try
dmDados.FDConnection.Params.Clear;
dmDados.FDConnection.Params.Add('DriverID=MySQL');
nmServer:=ArqIni.ReadString('configuracao','Server',Servidor);
dmDados.FDConnection.Params.Add('Server='+nmServer)
dmDados.FDConnection.Params.Add('Protocol=TCPIP');
dmDados.FDConnection.Params.Add('Port='+ArqIni.ReadString('configuracao','porta',Banco));
dmDados.FDConnection.Params.Add('Database='+ArqIni.ReadString('configuracao','programa',Banco));
dmDados.FDConnection.Params.Add('CharacterSet=utf8');
dmDados.FDConnection.Params.Add('User_Name=root');
dmDados.FDConnection.Params.Add('Password=');
dmDados.FDConnection.Connected:=True;
Except
dmDados.FDConnection.Connected:=False;
End;
end;
Finally
ArqIni.Free;
End;
end; |
Esse é código que uso pra conectar, mais preciso saber o que falta ou o que tem de errado. |
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
