Delphi-PRAXiS
Seite 2 von 2     12   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Programmieren allgemein (https://www.delphipraxis.net/40-programmieren-allgemein/)
-   -   PHP->Delphi: Inverssuche (Rückwärtssuche für Telefonnummern) (https://www.delphipraxis.net/52413-php-delphi-inverssuche-rueckwaertssuche-fuer-telefonnummern.html)

FriFra 29. Aug 2005 22:45

Re: PHP->Delphi: Inverssuche (Rückwärtssuche für Telefonn
 
Zitat:

Zitat von derpepe
Zitat:

Zitat von FriFra
Das Script an sich ist ja eine gute Idee, aber der verwendete Service taugt nichts... Ich habe gerade mal mehrere Nummern getestet, die definitiv im Telefonbuch stehen, aber goyellow findet nichts. Vielleicht finden die ja nur ihre eigenen kunden? :roll:

Wenn man keine Nummern zum Testen hat, wird's auch nichts mit einer Delphi-Version...

Spontane Suche auf goyellow.de nach "Müller" in "Hamburg":
04043182609

Mag sein... ich habe aber 5 Nummern von Bekannten getestet, die alle im Telefonbuch stehen... keine wurde gefunden :gruebel:

derpepe 29. Aug 2005 22:53

Re: PHP->Delphi: Inverssuche (Rückwärtssuche für Telefonn
 
Liste der Anhänge anzeigen (Anzahl: 1)
Zitat:

Zitat von FriFra
Mag sein... ich habe aber 5 Nummern von Bekannten getestet, die alle im Telefonbuch stehen... keine wurde gefunden :gruebel:

Evtl. haben die alle der Rückwärtssuche widersprochen?

Ansonsten versuch mal das hier:

Quelltext für "Das Örtliche":
Code:
<?php

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


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


function get_name_by_number($number) {
   $url = 'http://www.dasoertliche.de/DB4Web/es/oetb2suche/home.htm'.
      '?main=Antwort&AKTION=START_INVERS_SUCHE&SEITE=INVERSSUCHE_V'.
      '&s=2&rg=1&taoid=&si=&SKN=0&kw_invers='.
      urlencode($number);

   // Abfrage
   $file = fopen ($url, "r");
   if (!$file) {
      exit;
   }
   while (!feof ($file)) {
      $line = fgets ($file, 1024);
      if (eregi ("<a class=\"blb\"(.*)</td>", $line, $out)) {
         $result = $out[1];
         break;
      }
   }
   fclose($file);

   // Prä parsen
   $result = substr($result, strpos($result,   '>')+2);

   $vor_array = explode('</a>
', $result);   // 0 : Name
                                    // 1: Anschrift
   
   $vor_array2 = explode(', ', $vor_array[1]); // 0: Straße
                                    // 1: PLZ / Ort

   return array($vor_array[0], $vor_array2[0], $vor_array2[1]);
}



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

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

?>


Alle Zeitangaben in WEZ +1. Es ist jetzt 01:42 Uhr.
Seite 2 von 2     12   

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz