zjisteni ip adresi pripojene domeny na web

V delphi to zpracuje prikaz pomoci objectu :

unit lan; {jednotka}

interface

uses {knihovny}
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, IdTCPConnection, IdSimpleServer, IdBaseComponent,
IdComponent, IdRawBase, IdRawClient, IdIcmpClient, ComCtrls, ExtCtrls,
ImgList;

type
TForm1 = class(TForm)
IdIcmpClient: TIdIcmpClient;
procedure IdIcmpClientReply(Sender: TComponent;
const AReplyStatus: TReplyStatus);
atd.

private
function lan1 : boolean;
public
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.IdIcmpClientReply(Sender: TComponent;
const AReplyStatus: TReplyStatus);
var
naka promenna : Tneco ;
a,b:integer;
Begin
IdICMPClient.ReceiveTimeOut := Id_TIDICMP_ReceiveTimeout;
zdrojovy kod prikazu;
end;


nebudu rozepisovat celi zdrojak proste je to jednoduche ale v php bych potreboval do radku s odkazem ip adresu nemusi byt cela jen pro kontrolu

<a href="http://certcv.wz.cz">moje stranka v priprave</a>
pokud se to jen vypise tak je to http://certcv.wz.cz

<?
echo $_SERVER['REMOTE_ADDR'];
?>
Teda pokud jsem správně pochopil dotaz protože ten zdroják jsem nečetl.

Dik ten zdrojak je jen info jak je to v jinem jazyce s php dalo by se rict zacinam a potrebuji prave toto kdyz se nekdo pripoji aby byl videt alespon naky podpis.
Dekuji popr kdyby nefungovalo tak urcite neco k tomu najdu na cz.php.net
ale presto dekuji.

s malym vylepšením máš tadyhle:
http://www.ondragames.wz.cz/new_art/index.php?clanek=23

A ignoruj to údajné malé vylepšení co ti nabízí Columbo.

IP adresu počítače ze kterého byl zaslán požadavek zjistíš pomocí následující položky superglobálního pole $_SERVER:
$_SERVER['REMOTE_ADDR']
pouze pokud je zapnuto register_globals je možno použít přímo
$REMOTE_ADDR (jak to má Columbo), ale to se silně nedoporučuje.
A dále funkce GetHostByAddr() se pokusí přeložit IP adresu na doménové jméno (např. www.seznam.cz). Zatímco funkce GetHostByName() provádí opak. Takže zřejmě aplikování obou těchto funkcí na stejnou hodnotu nemá smysl.....