Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Trucos (https://www.clubdelphi.com/foros/forumdisplay.php?f=52)
-   -   En cliente, ¿cómo puedo obtener la dirección IP ó el Host? (https://www.clubdelphi.com/foros/showthread.php?t=80510)

dec 30-06-2006 00:02:19

En cliente, ¿cómo puedo obtener la dirección IP ó el Host?
 
(De las Faq's de Borland)

El ejemplo siguiente requiere el uso del API Winsock incorporado en el WinSock.pas.

Código Delphi [-]
uses
WinSock;

procedure GetHostInfo(var Name, Address: string);
var
  WSAData: TWSAData;
  HostEnt: PHostEnt;
begin
{ no error checking...}
  WSAStartup(2, WSAData);
  SetLength(Name, 255);
  Gethostname(PChar(Name), 255);
  SetLength(Name, StrLen(PChar(Name)));
  HostEnt := gethostbyname(PChar(Name));
  with HostEnt^ do
    Address := Format('%d.%d.%d.%d',[
      Byte(h_addr^[0]),
      Byte(h_addr^[1]),
      Byte(h_addr^[2]),
      Byte(h_addr^[3])]);
  WSACleanup;
end;


La franja horaria es GMT +2. Ahora son las 18:03:09.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi