[firebase-br] Firewall do Windons

[Marlon]

E ae Alexandre!
Pelo registro do windows, eu esqueci de colocar isto acima do //Pegar o 
ControlSet....

Reg := TRegistry.Create;
Reg.RootKey := HKEY_LOCAL_MACHINE;

E o segundo código coloca assim

WinExec('netsh.exe -c firewall add portopening protocol=TCP port=3050 name=Teste mode=ENABLE scope=SUBNET', SW_HIDE);

O segundo é mais fácil, não achei como desabilitar por programa do windows na época que precisei, por isto que fiz pelo registro do windows.

Espero que funcione ai para ti agora, qualquer coisa avisa.

[]'s
Marlon


alexandre.bittencour escreveu:
> Abaixo tenho 2 codigos, ambos tem a mesma funcao, liberar a porta do firewall 3050 para uso do firebird em rede, porem a porta naum esta sendo liberada....alguem poderia analizar os codigos e verificar o que a de errado....acho que e de interesse de muitos, pois seria melhor ja deixar a porta liberada via delphi... 
>
> Primerio codigo: 
>
> procedure TForm1.Button2Click(Sender: TObject); 
> var 
> Reg:Tregistry; 
> CtrlSet:string; 
> begin 
> //Pega o ControlSet que esta sendo usado pelo windows 
> Reg.OpenKey('SYSTEM\Select', False); 
> CtrlSet := FormatFloat('000',Reg.ReadInteger('Current')); 
> Reg.CloseKey; 
>
> //Libera a porta 3050 usada pelo Firebird 
> Reg.OpenKey('SYSTEM\ControlSet' + CtrlSet +'\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile\GloballyOpenPorts\List', 
> True); 
> if (not Reg.ValueExists('3050:TCP')) 
> then Reg.WriteString('3050:TCP','3050:TCP:*:Enabled:Firebird'); 
> Reg.CloseKey; 
> end; 
>
>
> Segundo codigo: 
>
> procedure TForm1.Button2Click(Sender: TObject); 
> begin 
> WinExec('netsh.exe "firewall add portopening protocol=TCP port=3050 
> name=""Firebird"" 
> mode=ENABLE scope=SUBNET"', SW_SHOW); 
> end;
> ______________________________________________
> FireBase-BR (www.firebase.com.br) - Hospedado em www.locador.com.br
> Para editar sua configuração na lista, use o endereço http://mail.firebase.com.br/mailman/listinfo/lista_firebase.com.br
> Para consultar mensagens antigas: http://firebase.com.br/pesquisa
>
>
>
>