Bejelentkezés

E-mail:
Jelszó:

| Regisztráció | Jelszó? |

Domain név alapján ország név meghatározása

Példaprogram letöltése

10172 bájt

Ha kíváncsiak vagyunk rá, hogy egy domain név utolsó tagja pontosan mire utal, minek a rövidítése, akkor hasznunkra lehet az a függvény, amit ebben a cikkben mutatunk be. Ez a függvény képes egy átadott web, vagy email cím utolsó tagjából megállapítani, hogy az minek a rövidítése (pl. .hu = Hungary).

A függvény működési elve nagyon egyszerű. Kell egy olyan lista, aminek soronként két eleme van. Az első a rövidítés, míg a második a teljes név. A függvény paramétereként megadott névből kivesszük az utolsó tagot, és összehasonlítjuk a lista minden elemével, egészen addig, amíg meg nem találjuk a keresett rövidítést. Ha megvan, akkor visszatérési értékként megadjuk a rövidítéshez tartozó teljes nevet, illetve ha nem találtuk meg a rövidítést, akkor egy üres sztringet.
A függvény a DomainName unit-ban található, neve GetDomainName.

function GetDomainName(domain: string):string;

A függvény első részében a domain paraméter utolsó tagját eltároljuk az s változóban. A név utolsó karakterétől indulunk egyesével visszafelé, egészen addig, amíg egy pont karaktert nem találunk, vagy amíg nem értünk végig a néven. Ez utóbbi eset csak akkor fordulhat elő, ha a domain névben nincs pont karakter.

  s:='';
  p:=Length(domain);
  while p>0 do begin
    if domain[p]<>'.' then s:=LowerCase(domain[p])+s else p:=1;
    dec(p);
  end;

A következő lépésben egy ciklussal végigmegyünk a listán, és ellenőrizzük, hogy az s változó értéke egyezik-e az aktuális sorszámú (p) névvel. Ha igen, akkor a result változónak átadjuk a rövidítéshez tartozó teljes nevet, amivel egyszerre két dolgot is elérünk: beállítjuk a függvény visszatérési értékét, és kilépünk a ciklusból.

  p:=1;
  result:='';
  while (p<=NONAMES) and (result='') do begin
    if DomainNames[p,0]=s then result:=DomainNames[p,1];
    inc(p);
  end;

Könyv

Ez a cikk megtalálható ebben a könyvben: Delphi Software Offline 2001 évkönyv 460. oldal

Felhasználási feltételek

A Software Online szoftverfejlesztői magazin mindegyik cikke, minden megjelent képe, és egyéb publikált anyaga szerzői jog védelme alatt áll! Bármilyen formában történő másodlagos terjesztésük, közzétételük vagy felhasználásuk kizárólag a kiadó előzetes írásbeli engedélyével történhet!