Recordatorio

The following code fragment shows how to use InternetOpenUrl and HttpQueryInfo to determine if a URL (i.e. a website address) is valid. It requires a connection to the internet.

Read the rest of this entry

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;

Origen: http://www.ajpdsoft.com/modules.php?name=Content&pa=showpage&pid=212