'도메인 분리' 태그의 글 목록

'도메인 분리'에 해당되는 글 1건

2005.07.10 URL에서 도메인 분리하기 6

URL에서 도메인 분리하기

Computer/Delphi 2005. 7. 10. 00:36

1.소개 : URL(http://www.daum.net/test/test.html)에서 Domain(daum.net)을 분리하는 함수.
Indy의 TIdURI를 사용하면 쉽게 구현됨

2.소스 :

function ParseDomain(url:String):String;
var
domain,host: String;
len,pos1 : integer;
IdURI : TIdURI;
begin
pos1 := Pos('http://',url);
if pos1 = 0 then
url := 'http://' + url;

IdURI := TIdURI.Create(url);

host := IdURI.Host;
pos1 := Pos('.',host)+1;
len := StrLen(PChar(host));
domain := MidStr(host,pos1,len-pos1+1);

if IdURI <> nil then
IdURI.Free;

Result := domain;
end;

'Computer > Delphi' 카테고리의 다른 글

델파이에서 Lua 사용을 위한 메모 (6)	2009.07.20
Indy 설치(Delphi, BCB 공통) (15)	2006.09.02
IRequest, TWebRequest 이용한 파라미터 접근 (4)	2005.07.10
TDateTime 사용하기 (4)	2005.07.10
Visual Basic에서 만든 dll 호출하기 (14)	2005.07.10
유니코드 변환 코드 (5)	2003.12.17
DLL 호출 관련 정리(임시) (16)	2003.12.14
테이블에 트랜잭션과 파라미터 이용해서 인서트 (2)	2003.11.16
TColor 값을 HTML color 로 변경하는 코드 (2)	2003.05.14
HTML에 문자 추가하기 (154)	2003.05.09