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