Delphi-PRAXiS
Seite 1 von 2  1 2      

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   Delphi providersuche (https://www.delphipraxis.net/112441-providersuche.html)

double_slash 21. Apr 2008 15:05


providersuche
 
hi leute,
ich hoffe ihr könnt mir bei diesem problem helfen ich komme nämlich nicht weiter...
ich soll ein programm erstellen welches den provider einer email adresse ausgibt
und zwar zwischen dem '@' und dem '.' (hoffe das is klar ;))
ausgegeben soll der provider dann in einem panel
eingeben wird die adresse in einem edit feld

habt ihr irgendwelche ideen?

bitte um schnelle hilfe.

mgf
double_slash

SaFu 21. Apr 2008 15:16

Re: providersuche
 
Also ich denke du müsstest dir entweder selber eine Liste mit Providern erstellen Beispiel und die abfragen
oder die ".de" Seiten könntest du irgendwie über Denic herausbekommen

Denn du kannst dir deine Internetseite mit der die E-Mail "Verknüpft" ist bei dem Provider deiner wahl erstellen.


Gruß sascha

s-off 21. Apr 2008 15:17

Re: providersuche
 
Hallo,

RegEx oder mit der Pos()- und der Copy()-Funktion den Teil nach dem @ und vor dem Punkt kopieren.

SaFu 21. Apr 2008 15:25

Re: providersuche
 
Hi S-Off

Ich denke er möchte den Provider haben der hinter dem z.b. info@Delphipraxis.net @Delphipraxis. steht. Ich denke in dem Fall die "Neue Medien Muennich"

s-off 21. Apr 2008 15:28

Re: providersuche
 
Hallo Sascha,

ich denke, dass er aus einer vorhandenen eMail-Adresse den 'Provider' kopieren möchte; also den Teil, der zwischen dem @ und dem Punkt steht ;)
Gut, im Fall der Delphipraxis wäre das wohl der Name der Domain. Aber ich gehe davon aus, dass er sich hier einfach nur falsch ausgedrückt hat, und mit 'Provider' bspw. das 'gmx' in xxx@gmx.de meint

Das Ganze funktioniert bspw. so: (hingeschmiert)
Delphi-Quellcode:
Function GetProvider(sAddress: String): String;
Var
   iPos: Integer;
Begin
   //Initial
   Result := '';

   //Position des @-Zeichens ermitteln; ggf. abbrechen
   iPos := Pos(#64, sAddress);
   If iPos = 0 Then
      Exit;

   //ab @-Zeichen kopieren
   sAddress := Copy(sAddress, iPos + 1, Length(sAddress));

   //Position des Punktes ermitteln; ggf. abbrechen
   iPos := Pos(#46, sAddress);
   If iPos = 0 Then
      Exit;

   //bis Punkt kopieren und als Result setzen
   Result := Copy(sAddress, 0, iPos - 1);
End;
Eleganter gehts mit RegEx.

SaFu 21. Apr 2008 15:32

Re: providersuche
 
Wenn er mal zurück schreiben würde, dann würden wir wissen was er will :-D :cheers:

Alloc 21. Apr 2008 15:57

Re: providersuche
 
Hi,

bei dem Auseinandernehmen der Adresse dran denken, dass da durchaus eine Subdomain sein kann ... also nicht zwischen @ und erstem Punkt den Teil nehmen, sondern zwischen dem letzten Punkt und dem Trennzeichen davor (entweder . oder wenns keinen weiteren Punkt nach dem @ gibt halt das @).

Grüße,
Chris

s-off 21. Apr 2008 16:03

Re: providersuche
 
Wusste gar nicht, dass Subdomains Bestandteil einer eMail-Adresse sein können... *hust*

Fazit: man lernt nie aus :)

double_slash 21. Apr 2008 16:14

Re: providersuche
 
ja sorry habe nicht mit solch schnellen antworten gerechnet
aber wenn die email adresse (eine beliebige die man ins edit feld einggibt) eingegebe wurde und man den bitnbutn drückt soll nur der provider ausgegeben werden
is noch was unklar?

s-off 21. Apr 2008 16:19

Re: providersuche
 
Wir sind genauso schlau wie nach Deinem Eingangspost...


Alle Zeitangaben in WEZ +1. Es ist jetzt 14:19 Uhr.
Seite 1 von 2  1 2      

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-2025 by Thomas Breitkreuz