Finde IP

Det mener jeg socket komponentet kan ..

Jens B

ehm ja ku jeg godt selv regne ud...men du fortæller ikke hvordan? Mangler jo ligesom en forklaring på det ik :)

Du må kunne bruge en kombination af \"gethostname\" og \"gethostbyname\"....

Det ved jeg ik\'...

Men jeg tror ikke man kan...

The Windows Sockets gethostname function returns the standard host name for the local machine.

int gethostname (char FAR *name, int namelen);

The Windows Sockets gethostbyname function retrieves host information corresponding to a host name from a host database.

struct hostent FAR *gethostbyname (const char FAR *name);

The Windows Sockets hostent structure is used by functions to store information about a given host, such as host name, IP address, and so forth.

Det burde kunne lade sig gøre...

milo : Her er lidt pascal kode du kan fornøje dig med :

function GetIpFromHost (HostName: string): string;
const
  HTTP            = \'http://\';
var
  VersionRequested    : Word;
  WSAData            : TWSAData;
  Host                : PHostEnt;
  s                  : array [0..128] of Char;
begin
  if LowerCase (Copy (HostName, 1, Length (HTTP))) = LowerCase (HTTP) then
    Delete (HostName, 1, Length (HTTP));
  VersionRequested := MakeWord (1, 1);
  WSAStartup (VersionRequested, WSAData);
  StrCopy (s, PChar (HostName));
  Host := GetHostByName (@s);
  if Host <> nil then Result := Inet_Ntoa (PInAddr (Host^.h_addr_list^)^)
  else
    Result := \'\';
  WSACleanup;
end;


function GetLocalIp: string;
var
  s : array [0..128] of Char;
begin
  GetHostName (@s, 128);
  Result := GetIpFromHost (string (s));
end;


function GetHostFromIp (IP: string): string;
var
  VersionRequested  : Word;
  WSAData          : TWSAData;
  Addr              : Longint;
  Host              : PHostEnt;
begin
  VersionRequested := MakeWord (1, 1);
  WSAStartup (VersionRequested, WSAData);
  Addr := Inet_Addr (PChar (IP));
  Host := GetHostByAddr (@Addr, SizeOf (Addr), PF_INET);
  if Host <> nil then Result := Host^.h_name
  else
    Result := \'\';
  WSACleanup;
end;


Jens B

eg skal bruge den IP som computeren har, rent fysisk... altså dial-up IP man får tildelt vha. DHCP serveren - Min egen dial up forbindelse..

Det I har skrevet, kan kun benyttes til allerede kendte adr...

GetLocalIp skulle meget gerne give dig det ...

Jens B

Jeg har set på koden til pascal. Da jeg er nybegynder så har jeg nogle problemer!! Pascal siger at TWSAdata er ukendt. Hvad skal man gøre?

Lad mig foreslå dig at oprette et nyt spørgsmål...

intet brugbart svar.