Banco de dados na Noven

Delphi

10/03/2016

Tenho um sistema comercial que foi criado com Firebird + Delphi XE6 + dataSnap ou o sistema e feito em 3 Camadas e ele estava fazendo conexão com um Servidor. Porem agora esta dando um erro:

Failed: Unable to Complete network request to host : Ip do Servidor
failed to establish e connection

Traduzido

Falha: Não é possível concluir a solicitação de rede com o servidor : IP do Servidor
não conseguiu estabelecer e conexão

Será que alguém tem uma ideia para resolver esse problema
Aislan Sousa

Aislan Sousa

Curtidas 0

Respostas

Raimundo Pereira

Raimundo Pereira

10/03/2016

Se estava realizando a conexão normalmente, verifique se o IP do servidor, ou caminho do banco de dados não modificado no Servidor
GOSTEI 0
Aislan Sousa

Aislan Sousa

10/03/2016

O problema eu já descobrir era as portas que eu não tinha aberto no servidor, pois não contratei um servidor mais sim um de um colega meu mais agora tou com outro problema quando rodo o servidor e o cliente na mesma maquina eles funciona perfeito mais quando rodo o servidor na maquina que eu tou desenvolvendo e o cliente em outra maquina dar erro de socket, eu não sei se é o certo mais eu usei a maquina virtual e deu esse erro ou tentar mais tarde em outro pc.

mais se poder me ajudar fico grato
GOSTEI 0
Aislan Sousa

Aislan Sousa

10/03/2016

Estou usando arquivos ini para realizar a conexão com o banco veja se tiver errado por favor me mande o correto pois não tinha feito conexão assim


unit USysServidor;

interface
uses
Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls,ComCtrls, Buttons,
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
System.Classes,Vcl.Mask, Vcl.DBCtrls, Vcl.Grids, Vcl.DBGrids,
Data.FMTBcd,Data.DB,Data.SqlExpr, Vcl.Menus,
System.Actions,Winapi.Mtx,IniFiles;

Procedure Nome_Titulo;
Procedure Buscar_Porta;
Procedure Buscar_Banco;
Procedure Editar_Porta;
Procedure Copiar_INI;
Procedure Gravar_Dados;
Procedure Altenticar;
Procedure Ativar_INI;
Procedure Minimizar;
Procedure Ativar_Servidro;
Procedure Para_Servidor;

implementation

uses uSC, UServidor, uSM;

Procedure Nome_Titulo;
begin
F_Servidor .Caption := 'SysComer - Sistema Integrado ao Comércio'+'| Ouvidoria: 9911-7274 |'+ ' Ligue e tire suas duvidas';
end;
Procedure Buscar_Porta;
begin
F_Servidor .CB_Porta .Visible := true;
SC.DSServer1 .AutoStart := false;
F_Servidor .Pn_Topo .Caption := 'Servidor Parado';
end;
Procedure Buscar_Banco;
begin
if F_Servidor.OpenDialog1.Execute then begin
F_Servidor.Edit_Novo_Caminho.Text := F_Servidor.OpenDialog1.FileName;
F_Servidor.Iniconf.WriteString('Caminho','Path','');
F_Servidor.SpeedGravar.Enabled := True;
end;
end;
Procedure Editar_Porta;
begin
if F_Servidor.Edit_Nova_Porta.Text <> F_Servidor.Iniconf.ReadString('Caminho','Porta','') then begin
F_Servidor.SpeedGravar.Enabled := True;
end
else begin
F_Servidor.SpeedGravar.Enabled := False;
end;
end;
Procedure Copiar_INI;
begin
F_Servidor.Iniconf:= TIniFile.Create(ExtractFilePath(Application.ExeName)+'Servidorconf.ini');
end;
Procedure Gravar_Dados;
begin
F_Servidor.Iniconf.WriteString('Caminho','Porta',F_Servidor.Edit_Nova_Porta.Text);
F_Servidor.Iniconf.WriteString('Caminho','Banco',F_Servidor.Edit_Novo_Caminho.Text);
// SC.Servidor.Params.Values['Database'] := F_Servidor.Iniconf.WriteString('Caminho','Banco','');
F_Servidor .SpeedAltenticar .Enabled := True;
F_Servidor.SpeedGravar.Enabled := False;
F_Servidor.SpeedPorta.Enabled := False;
F_Servidor.SpeedBanco.Enabled := False;
end;

Procedure Altenticar;
begin
if F_Servidor.Edit_Novo_Caminho.Text = '' then begin
ShowMessage('Coloque Caminho do Banco Primeiro');
F_Servidor.Edit_Nova_Porta.Clear;
Exit;
end
else
SC.Transporte.Port:= StrToInt(F_Servidor.Iniconf.ReadString('Caminho','Porta',''));
SC.Servidor.Params.Values['Database'] := F_Servidor.Iniconf.ReadString('Caminho','Porta','');
F_Servidor .Edit_Porta_Atual .Text := F_Servidor.Iniconf.ReadString('Caminho','Porta','');
F_Servidor .Edit_Caminho_Atual .Text := F_Servidor.Iniconf.ReadString('Caminho','Banco','');
SC.Transporte.Port := StrToInt(F_Servidor.Iniconf.ReadString('Caminho','Porta',''));
F_Servidor .Edit_Novo_Caminho .Enabled := False;
F_Servidor .SpeedMinimizar .Enabled := true;
F_Servidor .SpeedAltenticar .Enabled := false;
end;
Procedure Ativar_INI;
begin
SC.Transporte.Port:= StrToInt(F_Servidor.Iniconf.ReadString('Caminho','Porta',''));
SC.Servidor.Params.Values['Database'] := F_Servidor.Iniconf.ReadString('Caminho','Banco','');
F_Servidor.Edit_Nova_Porta .Text := F_Servidor.Iniconf.ReadString('Caminho','Porta','');
F_Servidor.Edit_Novo_Caminho .Text := F_Servidor.Iniconf.ReadString('Caminho','Banco','');
F_Servidor.Edit_Porta_Atual .Text := F_Servidor.Iniconf.ReadString('Caminho','Porta','');
F_Servidor.Edit_Caminho_Atual .Text := F_Servidor.Iniconf.ReadString('Caminho','Banco','');

F_Servidor.Edit1.Text := IntToStr(SC.Transporte.Port);
F_Servidor.Edit2.Text := SC.Servidor.Params.Values ['Database'];

F_Servidor.SpeedGravar .Enabled := False;
F_Servidor.SpeedAltenticar .Enabled := False;
F_Servidor .SpeedMinimizar .Enabled := False;
F_Servidor.SpeedPorta.Enabled := True;
F_Servidor.SpeedBanco.Enabled := True;
F_Servidor.Pn_Topo .Caption := 'Servidor Parado';
end;
Procedure Minimizar;
begin
F_Servidor.WindowState:= wsMinimized;
end;
Procedure Ativar_Servidro;
begin
SC.Transporte.Port := StrToInt(F_Servidor.Edit_Porta_Atual.Text);
SC.Servidor.Params.Values['Database'] := F_Servidor.Edit_Caminho_Atual.Text;
SC.DSServer1.Start;
SC.Servidor.Connected := True;
if SC.DSServer1.Started then F_Servidor.Meus.Items[3];
F_Servidor.PN_Topo.Caption := ' Servidor Conectado';
end;
Procedure Para_Servidor;
begin

SC.DSServer1.Stop;
if not SC.DSServer1.Started then F_Servidor.Meus.Items[3];
F_Servidor.PN_Topo.Caption := ' Servidor Desconectado';

F_Servidor.Pn_Topo.Caption := 'Servidor Parado';
SC.DSServer1.Stop;
end;
end.
GOSTEI 0
POSTAR