Fórum Criei minha aplicação. E a rede? Como faz o INI? #352557
27/01/2008
0
Usei o dbexpress.
Como vou construir o .INI?
A aplicação que mandei pra o cliente ele gostou, só que ele quer colocar em 10 máquinas.
Que faço?
Jpauloss
Curtir tópico
+ 0Posts
27/01/2008
Dbergkamps10
Eu particularmente, utilizo registro. Gravo as informações numa chave específica e quando crio o form, carrego a partir das chaves.
Att
Dalton
Gostei + 0
28/01/2008
Mateusandre
Deixe me ver se entendi direito seu problema, você deseja instalar o programa em 10 maquinas clientes e manter o banco de dados em uma máquina servidor?
Então no evento BeforeConnect do SQL conection você coloca o seguinte código
procedure TDMConexao.CONEXAOBeforeConnect(Sender: TObject);
Var
Arquivo : TIniFile;
begin
Try
Arquivo := TIniFile.Create(ExtractFilePath(Application.ExeName)+´AGROINDUSTRIA.ini´);
CONEXAO.Params.Values[´Database´]:= Arquivo.ReadString(´BANCO_DADOS´,´CAMINHO_BANCO´,´´);
Arquivo.Free;
Except
ShowMessage(´Não foi possivel conectar! Nenhum servidor disponível...´);
End;
end;
no arquivo .INI com o mesmo nome da sua aplicação você coloca o seguinte conteudo
[BANCO_DADOS]
CAMINHO_BANCO= aqui vai o caminho do seu banco de dados ou seja a mesma coisa que você coloca no parametro DataBase do SQLconnection
Ate +++
Gostei + 0
28/01/2008
Paullsoftware
criei essa procedure para facilitar a minha vida daí você pode adapitá-la a seu modo...
procedure LoadConnection(SqlConn:TSQLConnection); var ArqConf : string; PathTemp: string; begin ArqConf := ExtractFilePath(ParamStr(0)) + ´Config.ini´; PathTemp := ´LOCALHOST:´+ExtractFileDir(ParamStr(0))+´\BANCO.FDB´; with SqlConn do begin if FileExists(ArqConf) then begin try Close; Params.LoadFromFile(ArqConf); Open; // PreparaData(); except on E: Exception do MessageDlg(´Erro ao conectar com o banco de dados! ´+#10+E.Message,mtError,[mbOK],0); end; end else begin Params.Values[´DataBase´] := PathTemp; MessageDlg(´Não foi possível encontrar o arquivo de configuração, o sistema vai criar um pré-configurado para acessa a BASE DE DADOS no endereço: ´+pChar(PathTemp)+´ tente abrir novamente o sistema, se o problema persistir entre em contato com desenvolvedor´,mtError,[mbOK],0); Params.Insert(0,´[´+SqlConn.ConnectionName+´]´); Params.SaveToFile(ArqConf); Application.Terminate; end; end; end; (* LoadConnection *)
assim, toda vez que eu precisar usar esse código basta fazer assim para chamado:
LoadConnection(SqlConnection1);
outra coisa, a estrutura do ini é mais ou menos assim:
Gostei + 0
28/01/2008
Paullsoftware
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)