Obter o dominio de uma url

Delphi

01/02/2004

Alguem sabe qual funcao que faz isso, eu lembro que é alguma api do internet explorer mais nao estou lembrando qual, alguem pode me ajudar ?
Obrigado
Emilio


Emilio.cini

Emilio.cini

Curtidas 0

Respostas

Beppe

Beppe

01/02/2004

Tem umas APIs sim, acho que está em URLMon, sei lá. Mas é simples de fazer.

function GetDomain(const Url: String): String;
var
  I, Ofs: Integer;
begin
  Result := Url;
  Ofs := Pos(´://´, Result);
  if Ofs > 0 then
  begin
    Delete(Result, 1, Ofs + 3);
  end;
  I := Pos(´/´, Result);
  if I > 0 then
    Delete(Result, I, MaxInt);
end;


Não é o jeito mais eficiente de fazer, mas funciona. Não testei. :oops:


GOSTEI 0
POSTAR