Parados em rede, 2 programas distintos
Salve galera...
Dúvida
Desenvolvi dois programas usando tabelas paradox, um para emissão de Notas Fiscais e outro para controle de estoque e vendas.
preciso configurar o bde para acesso em rede.
No servidor (Windows 98) instalei os bancos de dados nos seguintes diretórios:
C:\Arquivos de Programas\ProNotas\Dados
C:\Arquivos de Programas\ProStok\Dados
Nos Clientes (Windows 98) instalei os executaveis nos seguintes diretórios.
C:\Arquivos de Programas\ProNotas\ProNotas.exe
C:\Arquivos de Programas\ProStok\ProStok.exe
Agora vem a pergunta
como configuro o BDE para acesso aos bancos de dados paradox em rede, lembrando que as bases de dados são diferente?
No Aguardo
Emerson
Dúvida
Desenvolvi dois programas usando tabelas paradox, um para emissão de Notas Fiscais e outro para controle de estoque e vendas.
preciso configurar o bde para acesso em rede.
No servidor (Windows 98) instalei os bancos de dados nos seguintes diretórios:
C:\Arquivos de Programas\ProNotas\Dados
C:\Arquivos de Programas\ProStok\Dados
Nos Clientes (Windows 98) instalei os executaveis nos seguintes diretórios.
C:\Arquivos de Programas\ProNotas\ProNotas.exe
C:\Arquivos de Programas\ProStok\ProStok.exe
Agora vem a pergunta
como configuro o BDE para acesso aos bancos de dados paradox em rede, lembrando que as bases de dados são diferente?
No Aguardo
Emerson
Emerson.silva
Curtidas 0
Respostas
Nigro
11/01/2004
Acho que você vai ter que criar dois alias no BDE e mudar essa a propriedade database name em tempo de execucao.
GOSTEI 0
Emerson.silva
11/01/2004
Meu caro, ja tenho os dois aliases, quero saber como configurar o bde para acessar os dois ao mesmo tempo e em rede.
qual configuração do netdir para o paradox...
se puder me ajudar, agradeço
qual configuração do netdir para o paradox...
se puder me ajudar, agradeço
GOSTEI 0
Nigro
11/01/2004
Muitas vezes precisamos alterar o NetDir do BDE para que nossas aplicações funcionem corretamente. E com poucas linhas de código você poderá deixar para que sua própria aplicação faça isso.
Abaixo está uma rotina para alterar o NetDir de acordo com o drive informado como parâmetro:
uses BDE;
procedure ChangeNetDir(Drive: Char);
var
hCur: hDBICur;
Config: CFGDesc;
Cont: Boolean;
begin
if DbiInit(nil) = DBIERR_NONE then
begin
hCur := nil;
if DbiOpenCfgInfoList(nil, dbiREADWRITE, cfgPersistent,´\DRIVERS\PARADOX\INIT´, hCur) = DBIERR_NONE then
begin
if DbiSetToBegin(hCur) = DBIERR_NONE then
begin
Cont := True;
while Cont do
begin
if (DbiGetNextRecord(hCur, dbiWRITELOCK, @Config, nil) <> DBIERR_NONE) then Cont := False
else if StrIComp(Config.szNodeName, ´NET DIR´) = 0 then
begin
StrPCopy(Config.szValue, Drive + ´:\´);
DbiModifyRecord(hCur, @Config, True);
Cont := False
end;
end;
end;
end;
DbiExit();
end;
end;
O uso deste procedimento pode ser assim:
procedure TForm1.Button1Click(Sender: TObject);
begin
ChangeNetDir(´H´);
end;
Abaixo está uma rotina para alterar o NetDir de acordo com o drive informado como parâmetro:
uses BDE;
procedure ChangeNetDir(Drive: Char);
var
hCur: hDBICur;
Config: CFGDesc;
Cont: Boolean;
begin
if DbiInit(nil) = DBIERR_NONE then
begin
hCur := nil;
if DbiOpenCfgInfoList(nil, dbiREADWRITE, cfgPersistent,´\DRIVERS\PARADOX\INIT´, hCur) = DBIERR_NONE then
begin
if DbiSetToBegin(hCur) = DBIERR_NONE then
begin
Cont := True;
while Cont do
begin
if (DbiGetNextRecord(hCur, dbiWRITELOCK, @Config, nil) <> DBIERR_NONE) then Cont := False
else if StrIComp(Config.szNodeName, ´NET DIR´) = 0 then
begin
StrPCopy(Config.szValue, Drive + ´:\´);
DbiModifyRecord(hCur, @Config, True);
Cont := False
end;
end;
end;
end;
DbiExit();
end;
end;
O uso deste procedimento pode ser assim:
procedure TForm1.Button1Click(Sender: TObject);
begin
ChangeNetDir(´H´);
end;
GOSTEI 0