Fórum DBExpress em rede #282190

Colega


Para funcionar em outra máquina que está na rede no caso, instale o firebird, mas você olha bem que nos passos da instalação tem uma opção que é Client seu não me engano, marque esta opção, depois só configure o atalho para puxar o executável da máquina servidor..



Rogério

você vai precisar copiar o Midas.dll e o DbExpInt.dll

Olá, tentei os passos que voces me indicaram, mas continua não achando o banco...

Olá Colega ´hrs´, olha eu utilizo da seguinte maneira:

- Na máquina ´Cliente´ instalo também a mminha aplicação e junto com ela instalou uma outra aplicação que criei só para configurar aonde se encontra a Base de Dados. São configurado os seguinte parametros:
* Nome do Servidor ou IP
* Diretório aonde se localiza a base de dados no servidor (Ex. C:\MeuSistema\Banco.fdb)

Com essas informações eu será gravado em um arquivo ´.ini´

Ae quando eu executar a minha aplicação, ela vai ´ler´ esses dados guardados no arquivo ´.ini´.

Espero ter ajudado.

t+

Christian.

Olá de uma olhada neste topico quem sabe ajuda vc:

[url]http://forum.devmedia.com.br/viewtopic.php?t=54967&highlight=godzillaxf&sid=aed401f311e0a94b37c259138675b0a0[/url]

Olá...confesso que estou levando um laço deste DBExpress...tentei fazer esses ajustes propostos, olhei o tópico que me indicaram, mas não estou conseguindo...o programa sempre aponta para o endereço que foi programado no sqlconecction...não consigo uma leitura externa...alguem sabe de algum passo a passo para eu me guiar...

abraços

Colega ´hrs´,


Antes de vc ´colocar´ os dados em tempo de execução no seu TSQLConnection, vc terar q fazer o seguinte:


[code]procedure LerDados(var Database, User, Password : String);
var
ArqIni : TIniFile; // uses IniFiles
begin

Try
ArqIni := TIniFile.Create(´C:\Config.Ini´);

with ArqIni do begin
Database := ReadString(´Banco de Dados´, ´Database´, ´´);
User := ReadString(´Banco de Dados´, ´User Name´, ´´);
Password := ReadString(´Banco de Dados´, ´Password´, ´´);
end; // fim with

Finally
ArqIni.Free;
end;

end;code]

[code]procedure TForm1.FormCreate(Sender: TObject);
var
Diretorio, Servidor, Login, Senha : String;
begin

try

{ Lê os dados gravados no arquivo INF }
LerDados(Diretorio, Login, Senha, Servidor);

with SQLConnection1 do begin
Close;
if Servidor <> ´´ then
Params.Values[´Database´ ] := Servidor + ´:´ + Diretorio + ´BEHLING.FDB´
else
Params.Values[´Database´ ] := Diretorio + ´BEHLING.FDB´;
Params.Values[´SQLDialect´ ] := ´3´;
Params.Values[´Password´ ] := Senha;
Params.Values[´User_Name´ ] := Login;
Params.Values[´WaitOnLocks´] := ´false´;
if not Connected then Open;
end;

except on E : Exception do
begin
ShowMessage(E.message);
end;
end;

end;[/code]


Isso é um exemplo para ajudar você a implementar o seu código.

Espero ter ajudado.

t+

Christian.