/ Forside / Teknologi / Udvikling / Delphi/Pascal / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
Delphi/Pascal
#NavnPoint
oldwiking 603
jrossing 525
rpje 520
EXTERMINA.. 500
gandalf 460
gubi 270
DJ_Puden 250
PARKENSS 230
technet 210
10  jdjespers.. 200
IP adresse
Fra : Michael Vilhelmsen


Dato : 03-01-02 08:54

Hvordan kan jeg nemmest finde en maskines IP adresse ?



--
Med venlig hilsen / Best Regards
Michael Vilhelmsen
Remove.NoSpam from email before replaying !





 
 
Steen Jensen (03-01-2002)
Kommentar
Fra : Steen Jensen


Dato : 03-01-02 16:11

Hej

Michael Vilhelmsen skrev i meddelelsen ...
>Hvordan kan jeg nemmest finde en maskines IP adresse ?
>
>Med venlig hilsen / Best Regards
>Michael Vilhelmsen
>

Der er flere muligheder.

Hvis du bruger D4 Pro eller C/S kan du bruge TCP komponenten som følger med:
ShowMessage(TCP1.LocalIp);

Hvis du bruger Indy:
ShowMessage(IdIpWatch1.LocalIP);

Hvis du ikke bruger nogen af delene:

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;

Med venlig hilsen
Steen




Michael Vilhelmsen (04-01-2002)
Kommentar
Fra : Michael Vilhelmsen


Dato : 04-01-02 08:42

Tak for hjælpen.


--
Med venlig hilsen / Best Regards
Michael Vilhelmsen
Remove.NoSpam from email before replaying !


"Steen Jensen" <steen.jensen@mail.dk> skrev i en meddelelse
news:3c34746d$0$62864$edfadb0f@dspool01.news.tele.dk...
> Hej
>
> Michael Vilhelmsen skrev i meddelelsen ...
> >Hvordan kan jeg nemmest finde en maskines IP adresse ?
> >
> >Med venlig hilsen / Best Regards
> >Michael Vilhelmsen
> >
>
> Der er flere muligheder.
>
> Hvis du bruger D4 Pro eller C/S kan du bruge TCP komponenten som følger
med:
> ShowMessage(TCP1.LocalIp);
>
> Hvis du bruger Indy:
> ShowMessage(IdIpWatch1.LocalIP);
>
> Hvis du ikke bruger nogen af delene:
>
> 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;
>
> Med venlig hilsen
> Steen
>
>
>



Søg
Reklame
Statistik
Spørgsmål : 177558
Tips : 31968
Nyheder : 719565
Indlæg : 6408925
Brugere : 218888

Månedens bedste
Årets bedste
Sidste års bedste