PHP->Delphi: Inverssuche (Rückwärtssuche für Telefonnummern)

[derpepe]

Hallo,

ich habe soeben ein kleines Skript zusammengeschustert: Mit ihm kann man nach einer Telefonnummer suchen und bekommt die dazugehörige Adresse als Array zurück
Das Ganze funktioniert über GoYellow.de, ich hoffe die sind mir nicht böse wenn ich deren Service hier verwende.
Der Code darf beliebig abgeändert werden und auch beliebig verwendet werden, lediglich der Copyright-Hinweis muss erhalten bleiben!

Ich würde mich freuen wenn sich jemand die Mühe macht das Ding nach Delphi zu portieren, wäre schön für meine Sammlung

Falls nicht ist die Foren-Suche wieder um ein Stichwort schlauer, also nichts für ungut!

Code:

<?php

//
// Inverssuche via 'goyellow.de'
//
// Copyright (c) 2005 Peter J. Schneider
// [url]www.raketenwerfer.de[/url]
//


define("NL", "
\n");


function get_name_by_number($number) {
   $url = 'http://www.goyellow.de/IDA2'.
      '?IDAERROR=&QRY=all&RNG=lequ&CTRY=ger&LANG=de&PAGE=telSearch'.
      '&LIP=telSearch&ACTION=search&STP=C&REQ=20&ZCD=&TEL='.
      urlencode($number);

   // Abfrage
   $file = fopen ($url, "r");
   if (!$file) {
      exit;
   }
   while (!feof ($file)) {
      $line = fgets ($file, 1024);
      if (eregi ("<div class=\"customer\">(.*)</div>", $line, $out)) {
         $customer = $out[1];
      }
      if (eregi ("<div class=\"street\">(.*)</div>", $line, $out)) {
         $street = $out[1];
      }
      if (eregi ("<div class=\"plzCity\">(.*)</div>", $line, $out)) {
         $plzCity = $out[1];
      }
   }
   fclose($file);

   return array($customer, $street, $plzCity);
}



$result = get_name_by_number($_GET['number']);

echo $result[0].NL;
echo $result[1].NL;
echo $result[2];

?>