Banco de dados na Noven

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

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

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.