Extraer host
 

Hola amigos.
Existe alguna funcion en Delphi para poder extraer el host del siguiente string:

'http://dev-apptest:8099/bin'

Quisiera opbtener dev-apptest

Gracias

Hola Jars, puedes utilizar las funciones Pos, PosEx y Copy.

Código Delphi [-]
 str := 'http://dev-apptest:8099/bin';
 PosIni := Pos('//', str) + 2;
 PosFin := PosEx(':', str, PosIni);
 s := Copy(str, PosIni, PosFin - PosIni);

Saluditos

Gracias Caro, lo tenia hecho de una forma sililar pero queria saber si existia alguna funcion que lo resuelva.

Pues, de existir, existe, en la unidad WinInet, la función InternetCrackUrl. Aunque más que ser una función de Delphi, es de la API de Windows y no es tan sencilla de usar.

Otra opción de algo ya hecho sería usar la clase TIdUri de la biblioteca Indy, si es que la tienes instalada. En ese caso simplemente harías:

Código Delphi [-]
uses IdUri;

...

var
  Uri: TIdUri;

begin
  Uri := TIdUri.Create('http://dev-apptest:8099/bin');

  try
    ShowMessage(Uri.Host);
  finally
    Uri.Free;
  end;
end;

// Saludos