Fórum Falied: Socket Error 11001 Host not found. #550948

10/04/2016

To fazendo teste em um sistema que criei em Delphi Xe6 + DataSnap+ Firebird, porem tá dando esse erro Falied: "Socket Error # 11001
Host not found." andei lendo por ai mais não encontrei muita coisa não mais esse erro só da quando coloco o cliente em outra maquina se o servidor e o cliente tiver na mesma maquina ele Executa perfeitamente e também eu já abri duas porta no servidor 3050 do firebird e a 211 que é a porta padrão que eu tou usando e também eu já coloquei as duas Dlls que é dbxfb.dll e midas.dll mais nada da certo, não sei mais o que fazer já tentei de varias formas mais nada

será que alguém possa me ajudar .

Aislan Sousa

Curtir tópico

+ 0

Responder

Posts

10/04/2016

Cleverson.

Desabilita o firewall do servidor.

Responder

Gostei + 0

10/04/2016

Aislan Sousa

Onde tá hospedado o Banco é

Responder

Gostei + 0

11/04/2016

Raimundo Pereira

Como está realizando sua conexão arquivo conf.ini ?

Responder

Gostei + 0

14/04/2016

Aislan Sousa

Sim já Desabilita o firewall do Computador Servidor.

O Banco esta hospedado em um Servidor de um amigo meu onde ele ele fornece Internet Para uma cidade de 10 Mil habitantes.

Minha conexão esta assim no Servidor.

procedure TF_Servidor.SpeedGravarClick(Sender: TObject);
begin
Iniconf.WriteString('Servidor','Transporte', Edit_Nova_Porta.Text ); // Aqui eu pego a porta ou seja uma nova porta se precisar
Iniconf.WriteString('Servidor','Database', Edit_Novo_IP.Text+':'+Edit_Novo_Caminho.Text ); // Aqui eu pego o IP mais Caminho do Bnaco
Iniconf.WriteString('Servidor','DriverName', SC.Conexao.Params.Values['DriverName']);
Iniconf.WriteString('Servidor','VendorLibWin64', SC.Conexao.Params.Values['VendorLibWin64']);
Iniconf.WriteString('Servidor','LibraryName', SC.Conexao.Params.Values['LibraryName']);
Iniconf.WriteString('Servidor','VendorLib', SC.Conexao.Params.Values['VendorLib']);
Iniconf.WriteString('Servidor','VendorLibOsx ', SC.Conexao.Params.Values['VendorLibOsx']);
Iniconf.WriteString('Servidor','LibraryNameOsx', SC.Conexao.Params.Values['LibraryNameOsx']);
Iniconf.WriteString('Servidor','User_Name', SC.Conexao.Params.Values['User_Name']); // Aqui eu pego o IP do Usuário
Iniconf.WriteString('Servidor','Password ', SC.Conexao.Params.Values['Password']); // Aqui eu pego o IP do Senha
Iniconf.WriteString('Servidor','DriverUnit', SC.Conexao.Params.Values['DriverUnit']);
Iniconf.WriteString('Servidor','Banco ', SC.Conexao.Params.Values['Database']); // Aqui eu Testo se a Conexão esta pegando o IP e o Caminho do Banco.

Porem tudo certo conecta Beleza em qual quer PC só precisa a ponta o caminho do banco

// Aqui eu Leio o arquivo INI

procedure TF_Servidor.FormActivate(Sender: TObject);
begin
SC.Transporte.Port := StrToInt(Iniconf.ReadString('Servidor','Transporte','')); // Leio a Porta
SC.Conexao .Params .Values['VendorLib'] := Iniconf.ReadString('Servidor','VendorLib','');
SC.Conexao .Params .Values['User_Name'] := Iniconf.ReadString('Servidor','User_Name','');
SC.Conexao .Params .Values['Password'] := Iniconf.ReadString('Servidor','Password','');
SC.Conexao .Params .Values['Database'] := Iniconf.ReadString('Servidor','Database',''); // Leio o IP e o Caminho do Banco

// F_Servidor.Iniconf.WriteString('Servidor','Transporte', IntToStr(SC.Transporte.Port));
// F_Servidor.Iniconf.WriteString('Servidor','Banco', SC.Conexao.Params.Values['Database']);

// Aqui eu testo se o IP e o Caminho do Banco esta certo

SC.Conexao.Params.Add(Edit_Arquivo_Geral.Text);
end;

end;

Aqui eu faço a configuração do Cliente

procedure TuDM.DataModuleCreate(Sender: TObject);
begin
//uDM.Cliente.close;
//uDM.Cliente.Params.Values['DriverUnit']:='Data.DBXDataSnap';
//uDM.Cliente.Params.Values['HostName']:= F_Config.Edit_HostName.text;
//uDM.Cliente.Params.Values['DriverAssemblyLoader']:='Borland.Data.TDBXClientDriverLoader,Borland.Data.DbxClientDriver,Version=20.0.0.0,Culture=neutral,PublicKeyToken=91d62ebb5b0d1b1b';

uDM.Cliente.Params.Values['Port']:= '21'; //F_Config.Edit_Porta.text;
uDM.Cliente.Params.Values['CommunicationProtocol']:= 'tcp/ip';
uDM.Cliente.Params.Values['DatasnapContext']:= 'datasnap/';

try
uDM.Cliente.Connected:=TRUE;
uDM.CDS_Unidades.Open;
ShowMessage('Conectado com sucesso a base de dados ['+uDM.Cliente.Params.Values['HostName+']);
except
ShowMessage('Não foi possível conectar com a base!');
end;
end;

Porem eu não consigo conectar o Cliente dar erro de Socket.

Responder

Gostei + 0