Extraer host

[jars]

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

[*Caro*]

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

[jars]

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

[roman]

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