Ir para conteúdo
Fórum Script Brasil
  • 0

Colocar Interbase Em Rede


Guest --robosa --

Pergunta

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 por Micheus
Não observação do item 3.7 das regras do forum - NÃO digite em caixa alta (1º aviso)
Link para o comentário
Compartilhar em outros sites

3 respostass a esta questão

Posts Recomendados

  • 0

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 )

Link para o comentário
Compartilhar em outros sites

  • 0
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 por Micheus
Não observação do item 3.7 das regras do forum - NÃO digite em caixa alta (2º AVISO)
Link para o comentário
Compartilhar em outros sites

  • 0

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;

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,4k
×
×
  • Criar Novo...