Finde sin egen IP

uses WinSock;

function GetLocalIPAddress : string;
var wsdata : TWSAData;
    he : PHostEnt;
    ss : pchar;
    ip : TInAddr;
    i  : cardinal;
    co : string;
begin
  i := MAX_COMPUTERNAME_LENGTH + 1;
  SetLength(co,i);
  GetComputerName(PChar(co),i);
  WSAStartup(MakeWord(1, 1), wsdata);
  he := gethostbyname(pchar(co));
  if he<>nil then begin
    ip.S_addr := integer(pointer(he^. h_addr_list^)^);
    ss := inet_ntoa(ip);
    Result := string(ss);
  end;
  WSACleanup();
end;

Jeppe Johansen
Jeppesoftware@hotmail.com

[Redigeret d. 28/08-04 13:53:41 af Jeppe]

Uses Winsock

var
wVersionRequested : WORD;
wsaData : TWSAData;
p : PHostEnt;
s : array[0..128] of char;
p2 : pchar;
OutPut:array[0..100] of char;
begin
wVersionRequested := MAKEWORD(1, 1);
WSAStartup(wVersionRequested, wsaData);
p2 := iNet_ntoa(PInAddr(p^.h_addr_list^)^);
StrPCopy(OutPut,'IP addresse: '+Format('%s',[p2]));
WSACleanup;
MessageBox(0,OutPut,'IP',mb_ok or mb_iconinformation);
end;
end.


[Redigeret d. 28/08-04 14:00:29 af Benni]

Kode 

uses WinSock;

function GetLocalIPAddress : string;
var wsdata : TWSAData;
    he : PHostEnt;
    ss : pchar;
    ip : TInAddr;
    i  : cardinal;
    co : string;
begin
  i := MAX_COMPUTERNAME_LENGTH + 1;
  SetLength(co,i);
  GetComputerName(PChar(co),i);
  WSAStartup(MakeWord(1, 1), wsdata);
  he := gethostbyname(pchar(co));
  if he<>nil then begin
    ip.S_addr := integer(pointer(he^. h_addr_list^)^);
    ss := inet_ntoa(ip);
    Result := string(ss);
  end;
  WSACleanup();
end;

Jeppe Johansen
Jeppesoftware@hotmail.com

[Redigeret d. 28/08-04 13:53:41 af Jeppe]

Det skal være på en måde så det er muligt at ligge det i en const fra starten af.

Mvh.
Rune Jensen
---------------------------------------------------------------------------
##The one who laugh last is the one who think slowest!##
---------------------------------------------------------------------------

Kode 

uses WinSock;

function GetLocalIPAddress : string;
var wsdata : TWSAData;
    he : PHostEnt;
    ss : pchar;
    ip : TInAddr;
    i  : cardinal;
    co : string;
begin
  i := MAX_COMPUTERNAME_LENGTH + 1;
  SetLength(co,i);
  GetComputerName(PChar(co),i);
  WSAStartup(MakeWord(1, 1), wsdata);
  he := gethostbyname(pchar(co));
  if he<>nil then begin
    ip.S_addr := integer(pointer(he^. h_addr_list^)^);
    ss := inet_ntoa(ip);
    Result := string(ss);
  end;
  WSACleanup();
end;

Jeppe Johansen
Jeppesoftware@hotmail.com

[Redigeret d. 28/08-04 13:53:41 af Jeppe]

Det skal være på en måde så det er muligt at ligge det i en const fra starten af.

Mvh.
Rune Jensen
---------------------------------------------------------------------------
##The one who laugh last is the one who think slowest!##
---------------------------------------------------------------------------

Glem det... Du kan ikke ændre en const... Det bliver nød til at ligge i en var...

MH.

The-Freak

Livet er for kort til at kede sig.

Kode 

uses WinSock;

function GetLocalIPAddress : string;
var wsdata : TWSAData;
    he : PHostEnt;
    ss : pchar;
    ip : TInAddr;
    i  : cardinal;
    co : string;
begin
  i := MAX_COMPUTERNAME_LENGTH + 1;
  SetLength(co,i);
  GetComputerName(PChar(co),i);
  WSAStartup(MakeWord(1, 1), wsdata);
  he := gethostbyname(pchar(co));
  if he<>nil then begin
    ip.S_addr := integer(pointer(he^. h_addr_list^)^);
    ss := inet_ntoa(ip);
    Result := string(ss);
  end;
  WSACleanup();
end;

Jeppe Johansen
Jeppesoftware@hotmail.com

[Redigeret d. 28/08-04 13:53:41 af Jeppe]

Det skal være på en måde så det er muligt at ligge det i en const fra starten af.

Mvh.
Rune Jensen
---------------------------------------------------------------------------
##The one who laugh last is the one who think slowest!##
---------------------------------------------------------------------------


Glem det... Du kan ikke ændre en const... Det bliver nød til at ligge i en var...

MH.

The-Freak

Livet er for kort til at kede sig.

Arrh skod! Nå men tak for hjælpen anyway..
Mvh.
Rune Jensen
---------------------------------------------------------------------------
##The one who laugh last is the one who think slowest!##
---------------------------------------------------------------------------

Patetisk, at du giver dig selv points. Jeppe og Benni gjorde begge et forsøg, så du bør snarere belønne dem med det hele antal. Ikke at det er noget at hidse sig op over, jeg finder det bare meget vulgært.

Og så til det rent tekniske: Hvorfor _skal_ det være en const? Kan du ikke bare have en global variabel, hvori du smider IP adressen? Du er jo ikke tvunget til at ændre den, bare fordi den er variabel og ikke konstant.