Problemas com o firewall do vista
O projeto nao consegue acessar o bd pelo em maquinas com Vista por causa do firewall do sistema, a ideia seria ou add o projeto no Firewall ou desabilita-lo. Fiz o testes manualmente e deu certo. O problema eh fazer o projeto fazer isso em codigo, pois sao quase 300 maquinas. Alguma ideia?
Fabricio Bolzan
Curtidas 0
Respostas
Rodrigo Mourão
12/01/2009
Olá Fabrício !!!
Para liberar a porta no Firewall basta adicionar uma chave no registro do windows. Ela fica em HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile\GloballyOpenPorts\List.
Para fazer isso no delphi faça o seguinte. De uses em Registry. No clique de um botão por exemplo coloque o código abaixo.
var
R:=TRegistry
Ch: String;
begin
Ch := SYSTEM\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile\GloballyOpenPorts\List;
R:=TRegistry.Create;
R.RootKey:=HKEY_LOCAL_MACHINE;
R.OpenKey(Ch,False);
R.WriteString(1010:TCP,1010:TCP:*:Enabled:NOMEDAPORTA:_pfl);
end;
Onde há 1010 substitua pelo número da porta que você quer liberar.
Onde há TCP você poderá usar UDP se for o caso
Onde há NOMEDAPORTA substitua pelo nome que quer dar a exceção.
Bem é isso ai !!
Abs !!!!
Para liberar a porta no Firewall basta adicionar uma chave no registro do windows. Ela fica em HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile\GloballyOpenPorts\List.
Para fazer isso no delphi faça o seguinte. De uses em Registry. No clique de um botão por exemplo coloque o código abaixo.
var
R:=TRegistry
Ch: String;
begin
Ch := SYSTEM\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile\GloballyOpenPorts\List;
R:=TRegistry.Create;
R.RootKey:=HKEY_LOCAL_MACHINE;
R.OpenKey(Ch,False);
R.WriteString(1010:TCP,1010:TCP:*:Enabled:NOMEDAPORTA:_pfl);
end;
Onde há 1010 substitua pelo número da porta que você quer liberar.
Onde há TCP você poderá usar UDP se for o caso
Onde há NOMEDAPORTA substitua pelo nome que quer dar a exceção.
Bem é isso ai !!
Abs !!!!
GOSTEI 0
Rodrigo Mourão
12/01/2009
Olá Fabricio, há mais alguma dúvida ??
Estamos aguardando para encerrarmos o chamado !!!
abs !!!
Estamos aguardando para encerrarmos o chamado !!!
abs !!!
GOSTEI 0
Fabricio Bolzan
12/01/2009
Fiz teste no Home Edition e nao passou, vou ver aqui no Ultimate
GOSTEI 0
Devmedia
12/01/2009
Fabrício,seu chamado não poderá ser mais respondido pelo consultor, pois o seu contrato de consultoria expirou.
GOSTEI 0
Devmedia
12/01/2009
Fabrício,
o consultor gostaria de saber se funcionou no Ultimante e recomenda que seja executado como administrador.
o consultor gostaria de saber se funcionou no Ultimante e recomenda que seja executado como administrador.
GOSTEI 0