Buscado número de ips

Você parece ter dois problemas.

O primeiro deles é, como utilizar o Delphi para utilizar conexões TCP/IP.

Em linhas gerais, os componentes utilizados para abrir conexões TCP/IP são os sockets. O client socket é um componente que permite acessar um IP remoto, em determinada porta. Já o server socket, abre uma porta local e fica "escutando" a porta para que outros "clientes" se conectem a ela.

Ao utilizar estes componentes, que trabalham de forma assíncrona, ocorrerão inúmeros eventos. Assim que a conexão é estabelecida, você pode enviar e receber informações.

O problema de se utilizar sockets é que eles são os componentes básicos de todo o fluxo de rede. Mas, dependendo do serviço que a conexão atende, podem ser necessários protocolos específicos e até negociações, para estabelecer criptografia e autenticação de usuários. Não é tão simples como pode parecer.

O segundo problema é o entendimento mais aprofundado sobre redes.

Todo equipamento conectado à rede requer uma ou mais interfaces de rede. Desde que haja pelo menos uma interface real, por onde vão trafegar os dados, de fato, podem haver outras interfaces virtuais, criadas apenas via software, como as utilizadas em VPNs. Ao enviar dados por estas interfaces virtuais, pode haver um tratamento diferenciado, como uma camada de criptografia, por exemplo.

Toda interface, quando ativa, pode receber um IP, que pode ser tradicional de 4 octetos (IPV4) ou os novos IPs (IPV6).

As informações básicas de uma interface de rede são:
- IP
- Gateway
- Máscara

O IP é o endereço da interface. Dependendo da configuração, ele pode ser fixo ou dinâmico.
A máscara define um range de IPs.

Imagine o IP como um número inteiro de 32 bits. A máscara é um número especial que possui os primeiros X bits preenchidos com o valor 1 e seguido de (32-X) bits zero.
Para definir que IPs fazem parte do range, estes bits são combinados com os bits do IP, de forma que a rede aceita modificar todos os bits do IP cujo bit correspondente da máscara vale zero.

Vou dar um exemplo: IP: 192.168.0.10 e máscara 255.255.255.0

11000000 10101000 00000000 00001010 -- IP
11111111 11111111 11111111 00000000 -- Máscara

Neste caso, os 3 primeiros octetos não podem ser modificados e o último pode ser inteiramente modificado, indicando um range de IPs que vai do IP 192.168.0.0 a 192.168.0.255.

Por conta desta característica da máscara, de sempre começar por 1s e terminar por 0s, também é válida a notação: 192.168.0.0/24 (24 bits 1).

Além do range de IPs, podemos ter uma VLAN. Uma VLAN também possui um range de IPs. O propósito do range e das VLANs é distinto.

O range pode ser utilizado para identificar um conjunto contínuo de IPs para efeito de liberação de acesso no firewall. Já a VLAN define o range de IPs que é acessível diretamente, sem precisar ser desviado para outra rede por intermédio do gateway, que atua como ponte entre múltiplas redes (VLANs).

O gateway é, geralmente, o primeiro IP válido de uma VLAN.

Agora que eu dificultei seu problema, precisamos entender o seu objetivo.

Não creio que você esteja falando de BOND, onde uma interface virtual se utiliza de 2 ou mais interfaces físicas para o propósito de redundância ou aumento de tráfego.

Para visualizar as interfaces no Windows, use o comando "ipconfig", no Linux o comando "ifconfig".

Para ver que portas estão abertas e escutando, pode utilizar o comando "netstat -na", que lista as portas que estão abertas para conexão, bem como todas as conexões abertas no momento.

Se você possui mais de uma interface de rede, ao acessar um endereço fora das suas redes, terá que sair pelo gateway de uma das suas interfaces. A definição de que interface deve ser utilizada para cada IP é definida em rotas de rede, que podem ser acessadas com o comando "netstat -nr".

Fala Arthur, meu querido como você esta?
Então deu uma esquentada aqui no crânio kkkkk
Eu adicionei o componente TidUDPServer com ele eu consegui buscar os Ips das controladoras que estao conectadas,ficou o seguinte codigo:

procedure TFrmGerenciador.UDPDiscoveryUDPRead(AThread: TIdUDPListenerThread;
const AData: TIdBytes; ABinding: TIdSocketHandle);
var
DataStringStream: TStringStream;
my_data, IP, host, info, mac: String;
var I : INTEGER;

begin
// Busca os Ips e adiciona no TreeView.
try
//DataStringStream:=TStringStream.Create('');
//DataStringStream.CopyFrom(AData,AData.Size); //
my_data := idGlobal.BytesToString(AData);//copy(DataStringStream.DataString, 1, AData.Size);
except
exit;
end;

if(my_data = 'Discovery: Who is out there?') then
exit;
IP := ABinding.PeerIP;

Nods:= treeview.items.Addchild(Node,ip);
dm.FDquery1.Close;
dm.FDquery1.SQL.Clear;
dm.FDquery1.sql.Add('SELECT controladoras.Id_controladora,controladoras.Descricao FROM controladoras');
dm.FDquery1.sql.Add('LEFT JOIN ingressos_evento ON controladoras.Id_controladora = ingressos_evento.Id_controladora');
dm.FDquery1.sql.Add('WHERE ingressos_evento.Tipo = "ENTRADA" and controladoras.ip = :Pdesc');
dm.FDquery1.ParamByName('Pdesc').Value := nods.Text;
dm.FDquery1.open;
treeview.Items.AddChild(nods,inttostr(dm.FDQuery1.RecordCount)) ;
treeview.FullExpand;
end;

procedure TFrmGerenciador.BtnIniciarClick(Sender: TObject);
begin
// inicia A listagem dos Ip Na treeView.
if (treeview.Items.Count = 0) then
begin
Node := treeview.Items.Add(nIL,'CONTROLADORAS');
UDPDiscovery.Active := true;
UDPDiscovery.Send('255.255.255.255', 30303 ,'Discovery: Who is out there?'); // Envia a mascara e a porta
treeview.FullExpand;
end;
end;

Meu problema agora,esta sendo atualizar os ips, caso tenha mais controladoras conectadas depois de clicar no botão iniciar, sem precisar parar e iniciar de novo. Eu ate coloquei um timer, para poder atualizar de tempo em tempo, mais o problema e que ele atualiza na treeView os novos ips e os antigos que ja estavam adicionados, preciso que ele so adicione os que nao estao na treeView ,os que ja existir não,acredito eu que resolveria com um If no timer,mas nao sei qual a forma de escrever ele.


procedure TFrmGerenciador.timerDicovererTimer(Sender: TObject);
begin
If ... // Aqui seria a condiçao
timerDicoverer.Interval := 5000;
UDPDiscovery.Send('255.255.255.255', 30303 ,'Discovery: Who is out there?');
end;

Tinha colocado para deletar os itens Da treeView No timer antes de ficar buscando, mais nao ficou legal,como elas sempre vao ficar conectadas durante o evento, acredito eu que deletando no timer possa perder a conexao durante essa atualizaçao.

Você está adicionando itens com:

Nods:= treeview.items.Addchild(Node,ip);

Antes de fazer isso, pode varrer a lista e ver se já existe o IP, antes de adicionar:

Arthur meu Amigo Deu certo Aqui, Eu queria lhe agradecer muito,por me ajudar com as minhas duvidas,desde que comecei a aprender o delphi você foi a pessoa que mais me ajudou aqui no devi,obrigado mesmo.
Nao querendo aproveitar muito,consegue me ajudar com mais algumas coisinhas do TreeView?
1° Se eu desconectar alguma controladora ou ela perder a conexão ja estando no treeview eu queria que ela ficasse alternado entre imagens Para saber que esta sem conexao.
2° Eu tenho um botao onde eu adiciono mais um node na TreeView,onde digito o texto em um edit, depois eu seleciono o ip que quero e adiciono ele nesse novo node,assim que adicionado ele deleta o item(ip) selecionado no node antigo e fica so no novo,eu queria fazer isso com mais itens selecionados ,nao apenas 1 por vez, faço isso pra poder separar por grupos.
esse e o codigo de adicionar mais um node.


esse adiciono e deleto um por vez


3° e ultimo, se teria como salvar a treeView Do jeito que ficou montada,caso precise pausar ou fechar o forms e quando abrir e iniciar nao precisar fazer todo o procedimeto novamente?

Arthur eu entendi um pouco o conceito que vc citou,já estava um pouco em mente isso,mas vou ser sincero com você,não faço ideia de como executar isso, consegue me mandar alguns exemplos ,para eu poder dar uma estudada,e ver se entendo melhor ?
E que eu funciono melhor vendo os exemplos para poder entender,na teoria assim,sem exemplos sou meio lerdo para entender rsrs

Vamos imaginar um algoritmo ligeiramente modificado. O componente StringList funciona como um array, com duas propriedades: um texto e um endereço de 32 bits para um TObject. Vou utilizar este endereço para armazenar o ImageIndex de cada IP, utilizando um cast, antes de enviar o broadcast.

Vamos supor neste exemplo, que os IPs ativos são os representados por ImageIndex = 1 e os inativos por ImageIndex = 2.



Em seguida, você envia o broadcast, como você já fez.

Na sua rotina UDPDiscoveryUDPRead você recebe a resposta de uma interface e identifica seu IP, e precisa alterar o status desse IP.
A função DBUpdateIPStatus(IP, Status) deve fazer o update na sua base de dados.



No final, quando todas as interfaces tiverem respondido, você inativa os IPs que estavam com status ativo e não responderam:

Desculpe. Eu tinha pensado em fazer uma coisa no início e mudei de ideia. Acabei esquecendo de remover o if, e o string list deveria armazenar todos os IPs.

Onde se lê:



Era para ser:

Arthur a funçao DBUpdateIPStatus(IP, Status) ela é propria do Componente UDPServer, ou preciso declarar ela? Nao Aparece ela para mim e essa linha aqui da erro

A função DBUpdateIPStatus(IP, Status) não existe. Estou abstraindo ela do código.

Sua função é atualizar a base de dados. Mas, como isso depende do banco utilizado e do modelo, não escrevi nenhum código.

É necessário lembrar que o IP pode não existir na base, caso em que devemos executar um insert. Se existir, precisa ser um update.

Como o insert ocorre apenas uma vez, eu utilizaria o seguinte método:



Ou coisa parecida.

Certo, na verdade eu tenho uma tabela,onde cadastro todas as controladoras que eu irei usar com os campos:

todos os ips que eu irei usar,estara nesse banco de dados , o Status eu poderia como exemplo usar o campo Desativada que é do tipo TINYINT onde Desativada é 0 e ativada é 1.No caso terei só que fazer o update mais ou menos assim :

No caso como ja tenho todos os ips cadastrado nao precisaria de fazer o insert ne,ou estou errado?
ficaria assim mais ou menos

é mais Ou menos isso , Ou estou Pensando errado?