F�rum Problemas com o firewall do vista #1800

12/01/2009

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

Curtir t�pico

+ 0

Responder

Posts

12/01/2009

Rodrigo Mour�o

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 !!!!

Responder

Gostei + 0

12/01/2009

Rodrigo Mour�o

Ol� Fabricio, h� mais alguma d�vida ??

Estamos aguardando para encerrarmos o chamado !!!

abs !!!

Responder

Gostei + 0

13/01/2009

Fabricio Bolzan

Fiz teste no Home Edition e nao passou, vou ver aqui no Ultimate

Responder

Gostei + 0

14/01/2009

Devmedia

Fabr�cio,seu chamado n�o poder� ser mais respondido pelo consultor, pois o seu contrato de consultoria expirou.

Responder

Gostei + 0

14/01/2009

Devmedia

Fabr�cio,
o consultor gostaria de saber se funcionou no Ultimante e recomenda que seja executado como administrador.

Responder

Gostei + 0