- //Trouve l'adresse IP d'un ordinateur
- function OrdiIP(Ordi: string): string;
- var
- WSAData : TWSAData;
- Name,Address : String;
- Phe : PHostEnt;
- begin
- //Demarrage du gestinnaire de socket
- WSAStartup(2,WSAData);
- SetLength(Name,255);
- Phe := GetHostByName(PChar(Ordi));
- with Phe^ do
- //Formatage du resultat en string
- Address := Format ('%d.%d.%d.%d' , [Byte(h_addr^[0]),Byte(h_addr^[1]),
- Byte(h_addr^[2]),Byte(h_addr^[3])]);
- //Fermeture du gestinnaire de socket
- WSACleanup;
- OrdiIP := Address;
- end;
-
- //Montre l'adresse IP de l'ordianteur "Dieu-98"
- procedure TForm_Principale.Button1Click(Sender: TObject);
- begin
- //Dieu-98 étant le nom d'un de mes pc's
- ShowMessage(OrdiIP('Dieu-98'));
- end;
-
//Trouve l'adresse IP d'un ordinateur
function OrdiIP(Ordi: string): string;
var
WSAData : TWSAData;
Name,Address : String;
Phe : PHostEnt;
begin
//Demarrage du gestinnaire de socket
WSAStartup(2,WSAData);
SetLength(Name,255);
Phe := GetHostByName(PChar(Ordi));
with Phe^ do
//Formatage du resultat en string
Address := Format ('%d.%d.%d.%d' , [Byte(h_addr^[0]),Byte(h_addr^[1]),
Byte(h_addr^[2]),Byte(h_addr^[3])]);
//Fermeture du gestinnaire de socket
WSACleanup;
OrdiIP := Address;
end;
//Montre l'adresse IP de l'ordianteur "Dieu-98"
procedure TForm_Principale.Button1Click(Sender: TObject);
begin
//Dieu-98 étant le nom d'un de mes pc's
ShowMessage(OrdiIP('Dieu-98'));
end;