Nome dos Computadores da Rede em uma Combobox
E ai Pessoal?
Alguem saberia me dizer como eu faço pra pegar o nome dos computadores da rede e colocar em uma combobox, pode ser o nome ou os Ip´s das maquina da rede...
Valeu i!!!!
Alguem saberia me dizer como eu faço pra pegar o nome dos computadores da rede e colocar em uma combobox, pode ser o nome ou os Ip´s das maquina da rede...
Valeu i!!!!
Dorivansousa
Curtidas 0
Respostas
Maxwell_monteiro
01/04/2004
Insira na sua aplicação o objeto IdICMPClient e execute um ping na maquina que vc dejesa verificar se esta na rede! se ela estiver ela vai responder com seu endereço IP e outros dados! o resto e com sua criatividade!
procedure TForm1.Button1Click(Sender: TObject);
var Buff: string;
begin
IdICMPClient1.Port := 1024;
IdICMPClient1.Host := ´10.1.1.17´;
IdICMPClient1.Ping(Buff, 0);
end;
procedure TForm1.IdIcmpClient1Reply(ASender: TComponent; const AReplyStatus: TReplyStatus);
begin
Memo1.Lines.Add(AReplyStatus.FromIpAddress);
Memo1.Lines.Add(IntToStr(AReplyStatus.SequenceId));
end;
procedure TForm1.Button1Click(Sender: TObject);
var Buff: string;
begin
IdICMPClient1.Port := 1024;
IdICMPClient1.Host := ´10.1.1.17´;
IdICMPClient1.Ping(Buff, 0);
end;
procedure TForm1.IdIcmpClient1Reply(ASender: TComponent; const AReplyStatus: TReplyStatus);
begin
Memo1.Lines.Add(AReplyStatus.FromIpAddress);
Memo1.Lines.Add(IntToStr(AReplyStatus.SequenceId));
end;
GOSTEI 0
Kroki
01/04/2004
Me interessei nisso,mas que objeto é esse?
GOSTEI 0