Utilizamos cookies propias y de terceros. Al navegar entendemos que aceptas el uso de cookies. +Info.
Política de cookies
Proyecto AjpdSoft

· Inicio
· Buscar
· Contactar
· Cookies
· Descargas
· Foros
· Historia
· Nosotros
· Temas
· Top 10
· Trucos
· Tutoriales
· Usuario
· Wiki

Nick


Contraseña


Nuevo usuario


English
Función que obtiene la URL raíz de una URL completa - Delphi
Lenguaje de programación Borland Delphi


La función que a continuación os mostramos obtiene la URL principal de una URL dada. Por ejemplo, para la URL:

http://www.ajpdsoft.com/modules.php?name=Quienes_Somos

devolverá:

http://www.ajpdsoft.com/


function obtenerURLRaiz (urlCompleta : string) : string;
var
  posBarras, posTerceraBarra : integer;
  httpRaiz : string;
begin
  posBarras := Pos('//', urlCompleta);
  posTerceraBarra := pos ('/', copy (urlCompleta, posBarras + 2, 
      length (urlCompleta)));
  httpRaiz := copy (urlCompleta, 1, posBarras + 1);
  Result :=  httpRaiz + copy (urlCompleta, posBarras + 2, posTerceraBarra);
end;

Ejemplo de uso:

procedure TformMenuPrincipal.txtURLObtenerHTMLExit(Sender: TObject);
begin
  if txtURLRaiz.Text = '' then
    txtURLRaiz.Text :=  obtenerURLRaiz (txtURLObtenerHTML.Text);
end;




Publicado el: 2008-07-20

Este sitio web NO CONTIENE malware, todos los programas con código fuente aquí. Autor: Alonso Javier Pérez Díaz Google+ Síguenos en Google+