Finde sin egen IP

Tags:    delphi

Hvordan finder jeg min egen IP med en ´kode i Delphi?
Mvh.
Rune Jensen
---------------------------------------------------------------------------
##The one who laugh last is the one who think slowest!##
---------------------------------------------------------------------------




6 svar postet i denne tråd vises herunder
2 indlæg har modtaget i alt 2 karma
Sorter efter stemmer Sorter efter dato
Fold kodeboks ind/udKode 


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]



Fold kodeboks ind/udKode 


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!##
---------------------------------------------------------------------------



Fold kodeboks ind/udKode 


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.



Fold kodeboks ind/udKode 


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.



t