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