Merhaba Arkadaşlar.
Malesef Delphi Tarafından halledemedik bu işi. Aslında vardır ama biz bulamadık diyelim

Aşağıdaki Kodlarla hallettim
sunucu bilgisini ve ip adresini bulmayı.
Önizlemeye bakabilirsiniz
bu sayfa üzerinden bir request ile alırım bilgileri
Kod: Tümünü seç
$url = $_REQUEST['domain'];
function ServerInfo($ServerURL)
{
$server = @fsockopen($ServerURL,80,&$errno,&$errstr);
$WebServer = '';
if(!$server)
{
$WebServer= 'error';
}
else
{
@fputs($server, "GET / HTTP/1.0\n\n");
while(!@feof($server))
{
$WebServer=@fgets($server,1280);
if (ereg( "^Server:",$WebServer))
{
$WebServer= ereg_replace( "^Server:", " ",$WebServer);
break;
}if (eregi("Bad Request", $WebServer)){
$WebServer = 'error';
break;
}
}
return $WebServer;
@fclose($filepointer);
}
}
$s_i = ServerInfo($url);
echo 'Sunucu_Bilgi: '.$s_i;
foreach(gethostbynamel($url) as $host)
{
print("<br>IP_Adresi: $host");
}
kolay gelsin...