Alguem tem a material da dica Nº20, da Edição 60 do clubedel
Nessa edição tem a material de saber qal a maquina qe esta com o servidor do FB/IB
Dimmy
Curtidas 0
Respostas
Rssampaio
16/05/2005
Vai o código ae da Revista, a dica nro 20: Listando todos os computadores que estão rodando Interbase, Firebird
GetServerNames(Listbox1.Items, Edit1.Text, SV_TYPE_ALL );
for i:= 0 to pred(ListBox1.Itens.Count) do
begin
if ServerIsRunning(ListBox1.Items[i],3050) then
ListBox2.Items.Add(ListBox1.Items[i]);
end;
OBS: ListBox1 mostra todos os computadores do dominio (ServerIsRunning)
ListBox2 mostra todos os compatadores que estão rodando o servidor IB/FB (GetServerName).
Espero te ajudado!
GetServerNames(Listbox1.Items, Edit1.Text, SV_TYPE_ALL );
for i:= 0 to pred(ListBox1.Itens.Count) do
begin
if ServerIsRunning(ListBox1.Items[i],3050) then
ListBox2.Items.Add(ListBox1.Items[i]);
end;
OBS: ListBox1 mostra todos os computadores do dominio (ServerIsRunning)
ListBox2 mostra todos os compatadores que estão rodando o servidor IB/FB (GetServerName).
Espero te ajudado!
GOSTEI 0