AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Programmieren allgemein PHP->Delphi: Inverssuche (Rückwärtssuche für Telefonnummern)
Thema durchsuchen
Ansicht
Themen-Optionen

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

Ein Thema von derpepe · begonnen am 29. Aug 2005 · letzter Beitrag vom 29. Aug 2005
Antwort Antwort
Seite 2 von 2     12   
Benutzerbild von FriFra
FriFra

Registriert seit: 19. Apr 2003
1.291 Beiträge
 
Delphi 2005 Professional
 
#11

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

  Alt 29. Aug 2005, 22:45
Zitat von derpepe:
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?

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
Elektronische Bauelemente funktionieren mit Rauch. Kommt der Rauch raus, geht das Bauteil nicht mehr.
  Mit Zitat antworten Zitat
Benutzerbild von derpepe
derpepe

Registriert seit: 16. Mär 2005
Ort: Dotternhausen
164 Beiträge
 
Delphi 2005 Personal
 
#12

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

  Alt 29. Aug 2005, 22:53
Zitat von FriFra:
Mag sein... ich habe aber 5 Nummern von Bekannten getestet, die alle im Telefonbuch stehen... keine wurde gefunden
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];

?>
Angehängte Dateien
Dateityp: zip inverssuche_doe_203.zip (760 Bytes, 32x aufgerufen)
Peter J. Schneider
http://raketenwerfer.de/programmieren/delphi/index.html
Nes dar in da kev, sed un est a log!
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 2 von 2     12   


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 18:25 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz