Fórum Parados em rede, 2 programas distintos #205759

Acho que você vai ter que criar dois alias no BDE e mudar essa a propriedade database name em tempo de execucao.

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

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;