Windows Seven, Server 2003, e arquivo INI não conecta.

Delphi

22/10/2012

Bom galera fiz um aplicativo que não estou conseguindo fazer ele conectar em outra máquina..
eu fiz um código que busca de um arquivo txt o caminho para o banco de dados e quando ele não acha ele chama um forma para poder indicar o caminho do banco de dados..

este é o código do aplicativo que faz a leitura.
procedure TDM.procuraINI;
var
  Diretorio : String;
  Path : String;
  Arq : TextFile;
  IniciaBDControle : TIniFile;
  Caminho : String;
Begin
   Diretorio := ExtractFilePath(Application.ExeName)+'ProcBancControle.txt';

  AssignFile(Arq,Diretorio);
  if(not FileExists(Diretorio))then
  begin
    FormCamBDControle := TFormCamBDControle.Create(Application);
      try
        FormCamBDControle.ShowModal;
       finally
         FreeAndNil(FormCamBDControle);
       end;
  end;
  Reset(Arq);
  Readln(Arq, Path);
  CloseFile(Arq);
  try
    if(SQLCon.Connected)then
       SQLCon.Connected := False;
       SQLCon.Params.Values['database'] := Path;
       SQLCon.Connected := True;

  except
    begin
       FormCamBDControle := TFormCamBDControle.Create(Application);
       try
          FormCamBDControle.ShowModal;
       finally
          FreeAndNil(FormCamBDControle);
       end;
    end;
  end;


e o banco de dados procura este texto ( que localmente funciona )

192.168.1.10:F:\PROGRAMAçãO DELPHI 2011\CASASP\BD\CONTROLE.FDB


Bom, o sistema fuciona perfeito no windows seven onde esta o radstudio x2, coloquei o banco de dados no windows server 2003 e não funcionou, o ip do servidor é o 192.168.1.3 achei que era só trocar o numero do servidor e pronto..

alguém já passou por isso e tem lguma idéia de como resolver ??? vlw t+
Gilmar Moraes

Gilmar Moraes

Curtidas 0

Respostas

Gilmar Moraes

Gilmar Moraes

22/10/2012

E tem mais no server 2003 o aplicativo nem executa chega na tela de login, logo e não aprerce mais nada..
GOSTEI 0
Gilmar Moraes

Gilmar Moraes

22/10/2012

este seven é bem diferente do xp mesmo..alguém sabe como libero a porta dele ?
GOSTEI 0
Gilmar Moraes

Gilmar Moraes

22/10/2012

Bom galera fiz um aplicativo que não estou conseguindo fazer ele conectar em outra máquina..
eu fiz um código que busca de um arquivo txt o caminho para o banco de dados e quando ele não acha ele chama um forma para poder indicar o caminho do banco de dados..

este é o código do aplicativo que faz a leitura.
procedure TDM.procuraINI;
var
  Diretorio : String;
  Path : String;
  Arq : TextFile;
  IniciaBDControle : TIniFile;
  Caminho : String;
Begin
   Diretorio := ExtractFilePath(Application.ExeName)+'ProcBancControle.txt';

  AssignFile(Arq,Diretorio);
  if(not FileExists(Diretorio))then
  begin
    FormCamBDControle := TFormCamBDControle.Create(Application);
      try
        FormCamBDControle.ShowModal;
       finally
         FreeAndNil(FormCamBDControle);
       end;
  end;
  Reset(Arq);
  Readln(Arq, Path);
  CloseFile(Arq);
  try
    if(SQLCon.Connected)then
       SQLCon.Connected := False;
       SQLCon.Params.Values['database'] := Path;
       SQLCon.Connected := True;

  except
    begin
       FormCamBDControle := TFormCamBDControle.Create(Application);
       try
          FormCamBDControle.ShowModal;
       finally
          FreeAndNil(FormCamBDControle);
       end;
    end;
  end;


e o banco de dados procura este texto ( que localmente funciona )

192.168.1.10:F:\PROGRAMAçãO DELPHI 2011\CASASP\BD\CONTROLE.FDB


Bom, o sistema fuciona perfeito no windows seven onde esta o radstudio x2, coloquei o banco de dados no windows server 2003 e não funcionou, o ip do servidor é o 192.168.1.3 achei que era só trocar o numero do servidor e pronto..

alguém já passou por isso e tem lguma idéia de como resolver ??? vlw t+


Problema de porta..no windows 2003 server tive que liberar a porta 3050 do firewall do windows
GOSTEI 0
Gilmar Moraes

Gilmar Moraes

22/10/2012

E tem mais no server 2003 o aplicativo nem executa chega na tela de login, logo e não aprerce mais nada..


Resolvido..fiz o seguinte instalei o Rad Studio x2 no server 2003 copilei o programa nle e resolvel o problema..
GOSTEI 0
POSTAR