'2005/07'에 해당되는 글 18건

  1. 2005.07.10 URL에서 도메인 분리하기 6
  2. 2005.07.10 Visual Basic에서 만든 dll 호출하기 14

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
Posted by Gu Youn
,

Visual Basic에서 만든 dll 호출하기

Computer/Delphi 2005. 7. 10. 00:20
1. 설명
ㄱ. com으로 등록해서 CreateObject를 함수 이용해서 vb dll의 특정 함수를 호출한다.
ㄷ. Import Type Library를 이용해서 컴포넌트로 등록하고 사용할 수 있다.

2. 소스
-Decrypt라는 함수를 호출하는 예-
  Variant userObj;
  userObj = Variant::CreateObject("Crypto.Crypto2");
  Variant name = userObj.OleFunction("Decrypt","O/bNd{Me?");

'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
URL에서 도메인 분리하기  (6) 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
Posted by Gu Youn
,

티스토리툴바