Colocar Interbase Em Rede

[Guest --robosa --]

gostaria de colocar em rede o sistema que eu fiz em rede, o sistema foi feita em delphi e o banco foi feito em interbase quero compartilhar em rede para no maximo 10 maquinas como faria para colocar o objeto em rede corretamente sem mais obrigado.

Editado Setembro 13, 2007 por Micheus
Não observação do item 3.7 das regras do forum - NÃO digite em caixa alta (1º aviso)

[Jhonas]

Exisem duas maneiras:

A 1ª usando a instalação do interbase server para o Servidor de Banco de Dados e o interbase cliente nas maquinas e configurando o TCP / IP e apontando o caminho do banco de dados

A 2ª usando um arquivo .txt ou .ini com o caminho do servidor do banco de dados, que sera lido e passado para o componente IBDatabase1 na propriedade DatabaseName, e neste caso, o drive c:\ do servidor deverá estar compartilhado para as outras maquinas

OBS: As duas maneiras funcionam, porem a segunda deixa o sistema um pouco mais lento ( o que pode ser compensado no codigo da aplicação )

[Guest --robosa --]

e como faço para colocar esse arquivo e ler o mesmo o ibdatabase faz a leitura como acho esse arquivo txt gostei da ideia é necessário configurar algo do tipo se puder explicar agradeço.

Editado Setembro 14, 2007 por Micheus
Não observação do item 3.7 das regras do forum - NÃO digite em caixa alta (2º AVISO)

[Jhonas]

Use o bloco de notas do windows e crie um arquivo e digite o caminho para o seu banco de dados e salve no diretorio onde esta o programa, com o nome que quiser, neste caso eu usei o Net.Txt.

Exemplo do caminho para o banco de dados:

\\Servidor\ADM\Dados\DADOS.gdb

no Menu do delphi em Project selecione a opção View Source e coloque o seguinte codigo:

var Caminho : TextFile;
    Line : string;

begin
  Application.Initialize;
  Application.CreateForm(TApres, Apres);
  Application.CreateForm(TPasswordDlg, PasswordDlg);
  Application.CreateForm(TFMenu, FMenu);   //  estas linhas são os forms que voce criou na sua aplicação

  AssignFile(Caminho, 'C:\ADM\Net.Txt');  // Diretorio onde foi salvo o arquivo Net.txt
  Reset(Caminho);
  while not EOF(Caminho) do
     begin
       ReadLn(Caminho, Line);
       FMenu.IBDatabase1.DatabaseName := Line;
     end;
  CloseFile(Caminho);

  Application.Run;
end.

quando voce executar o programa, o arquivo Net.txt sera lido e o caminho do servidor do banco de dados sera passado para o componente IBDatabase1 na propriedade DatabaseName, depois disso no form active do Menu voce coloca este codigo para conectar o banco de dados:

procedure TFMenu.FormActivate(Sender: TObject);
var i : integer; num : real;
begin
   if FMenu.IBDatabase1.Connected = false then
     FMenu.IBDatabase1.Connected := true;
   if not FMenu.IBTransaction1.Active then
     FMenu.IBTransaction1.Active := true; 

.
.
.    // codigos do menu  

end;