Obtener la url de Tedit especifica Delphi

[[duilioisola]]

Mira está página para más información: http://stackoverflow.com/questions/1...arse-a-web-url

[force1758]

Empezado por duilioisola

Mira está página para más información: http://stackoverflow.com/questions/1...arse-a-web-url

Gracia por la repuesta rápida pero no es lo que busco ya que la url que yo capto pueden cambiar el protocolo y alargarse mas la url pero creo que debe hacerse de una forma mas facil como dije solo me interesa desde http://www.clubdelphi.com/ resto no me interesa por que en si el captador obtiene la url completa gracias de todas forma si tienes otra manera de obtener lo que digo te lo agradeceria

[[duilioisola]]

¿¿¿eng???

Si has hecho el "captador" que obtiene la dirección del navegador, solo tienes que "parsearla" (dividirla en sus partes) y luego presentarla en un TEdit o lo que necesites.

Código Delphi [-]
function ParteQueMeInteresa(UnaDireccion : string);
begin
   // Dividir
   // ParteProtocolo := ...
   // ParteParteDireccion := ...
   // ParteResto := ...

   Return := ParteDireccion;
end;

var
  Direccion : string;
begin
   Direccion := Captador.DameDireccionFirefox;
   Edit.Text := ParteQueMeInteresa(Direccion);  
end;

[force1758]

Gracias pero no es lo que busco espero que alguien mas me de otra opcion

[ecfisa]

Hola force1758.

Las opciones que te dió duilioisola te tendrían que servir perfectamente... Pero para sumar otra alternativa se me ocurre que podrías hacer:

Código Delphi [-]
uses StrUtils;

function ExtractHostName(const URLStr: string): string;
var
  p1, p2: Integer;
begin
  p1:= Pos('://', URLStr);
  p2:= PosEx('/', URLStr, p1+3);
  Result:= Copy(URLStr, p1+3, p2-(p1+3));
end;

Saludos

[force1758]

Empezado por ecfisa

Hola force1758.

Las opciones que te dió duilioisola te tendrían que servir perfectamente... Pero para sumar otra alternativa se me ocurre que podrías hacer:

Código Delphi [-]
uses StrUtils;

function ExtractHostName(const URLStr: string): string;
var
  p1, p2: Integer;
begin
  p1:= Pos('://', URLStr);
  p2:= PosEx('/', URLStr, p1+3);
  Result:= Copy(URLStr, p1+3, p2-(p1+3));
end;

Saludos

Muchísimas gracias ecfisa , me sirvió perfectamente tu ejemplo eso era lo que estaba buscando espero que le sirva a alguien mas

Saludo y gracias