function URLEncode(const S: string): string;
var
  Idx: Integer; // loops thru characters in string
begin
  Result := '';
  for Idx := 1 to Length(S) do
  begin
    if S[Idx] in ['A'..'Z', 'a'..'z', '0'..'9', '-', '=', '&', ':', '/', '?', ';', '_', '.'] then
        Result := Result + S[Idx]
    else
      Result := Result + '%' + IntToHex(Ord(S[Idx]), 2);
  end;
end;

var

  ThisHook : hHook;

.....

  ThisHook := SetWindowsHookEx (WH_CALLWNDPROC,
HookProc, HInstance, GetCurrentThreadID);

function HookProc (nCode: Integer; wParam, lParam:
Longint): Longint; stdcall;

begin

//.... my code goes here

  Result := CallNextHookEx (ThisHook, nCode,
wParam, lParam);

//.... or goes in here

end;

동일한 문제가 클래스의 내부에 '윈도우 메세지 프로시져'를 작성하기를 원할 때 발생한다. 그러나, 볼랜드사는 클래스내의 '메소드'가 '윈도우 메세지 프로시져' 가 될 수 있도록 MakeObjectInstance(그리고 거기에 대응하는 FreeObjectInstace)를 제공해 주었다. 그래서, 본인은 동일한 기법으로 훅 함수로 메소드를 사용할 수 있지 않을까 하고 짐작했다. 그 결과가 되는 코드는 MakeObjectInstance를 위한 볼랜드가 제공했던 코드를 사용했지만 훅에 적절하도록 손을 봤다. 볼랜드의 원래 코드(Forms.Pas내에 있는 코드)에 약간의 변경을 가한 코드를 다음과 같이 제시한다.

unit

  HookInst;



interface



uses

  Windows;



type

  THookCall = packed record

    Code   : integer;

    WParam : WPARAM;

    LParam : LPARAM;

    Result : LResult

  end;



  THookMethod = procedure (var HookCall: THookCall)
of object;



function  MakeHookInstance (Method: THookMethod):
pointer;

procedure FreeHookInstance (ObjectInstance: pointer);



implementation



const

  InstanceCount = 313;  // set so that
sizeof (TInstanceBlock) < PageSize



type

  PObjectInstance = ^TObjectInstance;

  TObjectInstance = packed record

    Code: Byte;

    Offset: Integer;

    case Integer of

      0: (Next: PObjectInstance);

      1: (Method: THookMethod);

  end;



type

  PInstanceBlock = ^TInstanceBlock;

  TInstanceBlock = packed record

    Next: PInstanceBlock;

    Code: array[1..2] of Byte;

    WndProcPtr: Pointer;

    Instances: array[0..InstanceCount]
of TObjectInstance;

  end;



var

  InstBlockList : PInstanceBlock  = nil;

  InstFreeList  : PObjectInstance = nil;



function StdHookProc (Code, WParam: WPARAM; LParam:
LPARAM): LResult; stdcall; assembler;

asm

        XOR    
EAX,EAX

        PUSH   
EAX

        PUSH   
LParam

        PUSH   
WParam

        PUSH   
Code

        MOV    
EDX,ESP

        MOV    
EAX,[ECX].Longint[4]

        CALL   
[ECX].Pointer

        ADD    
ESP,12

        POP    
EAX

end;



{ Allocate a hook method instance }



function CalcJmpOffset(Src, Dest: Pointer): Longint;

begin

  Result := Longint(Dest) - (Longint(Src) +
5);

end;



function MakeHookInstance(Method: THookMethod): Pointer;

const

  BlockCode: array [1..2] of Byte = ($59, $E9);

  PageSize = 4096;

var

  Block: PInstanceBlock;

  Instance: PObjectInstance;

begin

  if InstFreeList = nil then

  begin

    Block := VirtualAlloc (nil, PageSize,
MEM_COMMIT, PAGE_EXECUTE_READWRITE);

    Block^.Next := InstBlockList;

    Move(BlockCode, Block^.Code, SizeOf(BlockCode));

    Block^.WndProcPtr := Pointer(CalcJmpOffset(@Block^.Code[2],
@StdHookProc));

    Instance := @Block^.Instances;

    repeat

      Instance^.Code :=
$E8;

      Instance^.Offset :=
CalcJmpOffset(Instance, @Block^.Code);

      Instance^.Next :=
InstFreeList;

      InstFreeList := Instance;

      Inc(Longint(Instance),
SizeOf(TObjectInstance));

    until Longint(Instance) - Longint(Block)
>= SizeOf(TInstanceBlock);

    InstBlockList := Block

  end;

  Result := InstFreeList;

  Instance := InstFreeList;

  InstFreeList := Instance^.Next;

  Instance^.Method := Method

end;



{ Free a hook method instance }



procedure FreeHookInstance (ObjectInstance: Pointer);

begin

  if ObjectInstance <> nil then

  begin

    PObjectInstance(ObjectInstance)^.Next
:= InstFreeList;

    InstFreeList := ObjectInstance

  end

end;



end.

어떻게 사용할 것인가?

여러분이 클래스내에서 WH_CALLWNDPROC를 사용하기를 원한다고 하자. 여러분의 훅 함수, 포인터 변수(메소드에 대한 포인터가 될 것임), 그리고 훅 핸들(훅 이벤트를 올바르게 연결할 수 있기 위해서임)을 선언하라.

type

  TMyClass = class (TWhat)

....

  private

    ThisHook : hHook;

    HookProc : pointer;

....

   function MyHookProc (var HookCall: THookCall);

....

  end;

  HookProc := MakeHookInstance (MyHookProc);

  ThisHook := SetWindowsHookEx (WH_CALLWNDPROC, HookProc, HInstance, GetCurrentThreadID);

function TMyClass.MyHookProc (var HookCall: THookCall);

begin

....

  with HookCall do

    Result := CallNextHookEx (ThisHook,
Code, wParam, lParam);

....

end;

  UnhookWindowsHookEx (ThisHook);

  FreeHookInstance (HookProc);

그래서, 결론을 내리면...

전역 변수는 없다! 독립적으로 떨어져 나와 있는 훅 함수도 없다! 훅 함수는 쉽게 클래스 메소드를 참조할 수 있다.

------------------------------------------------------------
먼저 상위 클래스 메서드를 재정의할 때 사용하는 override문을 언제 사용하는가에 관한 것입니다.

이에 대한 룰은 다음과 같이 정리할 수 있습니다.

상위 클래스에서 virtual로 정의한 메서드를 하위 클래스에서 재정의할 때는 반드시 override 문을 사용하십시요.

이렇게 하지 않는 것은 virtual 메커니즘을 사용하는 근본 원칙을 위배하기 때문입니다. 따라서, 다음과 같은 코드로 작성하면, 상위 클래스의 virtual 메서드를 하위 클래스에서 일반 메서드로 바꾸는 것이 되기 때문에, 델파이 컴파일러는 경고를 날립니다.

TBase = class(TObject)
  public
    procedure VirtualMethod; virtual;
    procedure StaticMethod;
  end;

  TDerived = class(TBase)
  public
    procedure VirtualMethod; // override; 오버라이드 문이 없으면 경고 발생
  end;
 
  델파이 컴파일러 경고문.
  [Warning]Method 'VirtualMethod' hides virtual method of base type 'TBase';
 
virtual메서드를 사용한다는 것은 하위 클래스에서 이 메서드를 재정의할 필요가 있다고 선언하는 것이기 때문에, override를 사용하지 않으면, 이 virtual 메커니즘이 무효화되어, 하위 클래스에서 VirtualMethod는 일반 메서드가 되어 버립니다. 이는 virtual 메서드가 실제 실행시 클래스에 따라서 호출된다는 메커니즘이 사라진다는 것이 됩니다.

------------------------------------------------------------
그렇다면 상위 클래스의 일반 메서드를 하위 클래스에서 재정의하면 어떻게 될까요? 이 경우 델파이는 아무런 경고도 없지만, 이는 심각한 클래스 설계 오류일 수 있습니다. 상위 클래스와 하위 클래스에 동일한 메서드가 존재한다는 것은 사용법이 엄청 까다로운 클래스가 되기 때문입니다.

// 위험함 클래스 설계
  TBase = class(TObject)
  public
    procedure VirtualMethod; virtual;
    procedure StaticMethod;
  end;

  TDerived = class(TBase)
  public 
    procedure StaticMethod; // override; 이 경우는 override문을 사용하면 명백히 컴파일 에러입니다.
                                // override는 상위 클래스에서 이 메서드가 virtual일때만 사용가능합니다       
  end;

------------------------------------------------------------ 
객체지향에서 virtual에 대한 또하나의 묵시적 코딩 룰은, 모든 파괴자 메서드는 반드시 virtual로 선언하라는 것입니다. 이는 대부분 객체들의 파괴자가, 실행시 클래스 타입에 따라서 올바른 파괴자가 호출되도록 보장하기 위함입니다. 여기서 그 이유를 설명하는 것은 복잡하므로 생략하지만, 이는 대부분 객체지향에 관한 책에서 필히 그렇게 할 것을 권하는 불문율입니다. 이 코딩 약속을 지켜야만 안전합니다. 이 때문에 파괴자를 재정의할 때 델파이 컴파일러는 강요하지 않지만, override를 반드시 사용해야만 합니다. 이 메커니즘을 깨면 엄청 골치 아픈 버그를 경험할 수 있으니 필히 지키길 권합니다.

  TDerived = class(TBase)
  public
    destructor Destroy; override; // 만일 override문을 지우면, 저 앞과 비슷한 경고 발생
  end;

TObject.Destroy는 이미 virtual로 정의되어 있습니다.

------------------------------------------------------------
객체를 파괴할 때는 반드시 Free메서드나 FreeAndNil함수를 사용하십시요. Destroy메서드를 직접 부르는 것은 위험한 상황을 초래할 수 있습니다. 그 이유는 델파이 매뉴얼에 잘 기술되어 있습니다.

------------------------------------------------------------
생성자와 파괴자를 재정의할 때, 사용자가 추가하는 코드의 위치가 서로 반대입니다.

constructor TDerived.Create;
begin 
  // 간혹가다 사용자 코드를 여기에 둡니다.
  inherited;
  // 대부분의 경우 사용자 코드는 여기 둡니다.
end;

destructor TDerived.Destroy;
begin
  // 파괴자인 경우, 사용자 코드는 여기 둡니다.
  inherited;
  // 파괴자에서 이부분에 코드를 둬야 할 경우는 아직 저는 찾지 못했습니다.
end;

inherited문은 상위 클래스에서 현재 메서드와 동일한 메서드를 호출하는 약어입니다. 생성자의 경우 사용자 코드를 필요에 따라서 inherited문을 아래위에 코드를 둘 수 있지만, 파괴자의 경우, 대부분 inherited 이전에 사용자 코드를 둡니다. 생성자는 자신의 최상위 클래스 생성자, 그 다음 상위 클래스 생성자 순으로 호출하지만, 파괴자는 이와 역순으로 상위 클래스의 파괴자를 호출하기 때문입니다.

따라서 명백한 이유가 없다면 생성자와 파괴자에 코드를 추가할 때는 반드시 이 원칙을 따르십시요

----------------------------------------------------------------
C++과는 달리 델파이에는 클래스 레퍼런스 혹은 메타 클래스라는 개념이 있습니다. 이는 클래스 자체를, 즉 클래스 타입 자체를 함수나 메서드에 인수로 전달할 수 있는 기능입니다. 이는 C++의 템플리트 기능과 유사한 면이 많지만, 제 개인적으로는 C++ 템플리트보다 월등히 편하다고 생각합니다. 어쨋든 이 클래스 레퍼런스를 제대로 사용하려면, TObject의 생성자와 TComponent의 생성자의 모양이 좀 다르다는 점에 유의해야 합니다.

TObject의 생성자
            constructor Create;

TComponent의 생성자
        constructor Create(AOwner: TComponent); virtual;
       
TObject와 달리 TComponent의 생성자는 virtual로 선언되어 있다는 점에 유의해야 합니다. 따라서 TComponent 이하의 클래스에서 상속받아 만든 클래스는 생성자를 재정의 할 때 반드시 override문을 사용해야 합니다. 이를 잊어먹으면 후일 그 클래스의 클래스 레퍼런스를 사용할 때 원치 않는 결과가 발생합니다.

  TMyComponent = class(TComponent)
  public
    constructor Create(Owner:TComponent); override; // 반드시 override문을 사용 하십시요.   
    destructor Destroy; override;        // 파괴자역시 반드시 override문을 사용하십시요.
  end;
 
------------------------------------------------------------------
virtual 메서드는 객체지향에서 매우 중요하며너 막강한 기능입니다.

여러분들이 이미 알고 있듯이, "About Delphi Programming"은 기사와, Chat, Forum, RTL Reference,
Glossory, Free Source Code VCL과 더 많은 것들을 포함하는 Delphi/Kylix 개발의 모든 관점을
다루고 있습니다. 이 사이트는 매우 활발하게 운영되고 있습니다. 새로운 내용들이 델파이
초보자들을 위해 튜토리얼에서부터 더 빠르고 더 훌륭하며 더 견고한 개발을 위한 코드를 포함하는
더 개선된 기사들을 날마다 사이트에 추가되고 있습니다.

---------------------------
주의: 우리는 이 사이트에 새 기사를 올리는 방법을 변경해 왔습니다. "What's new and Hot" 섹션이
"In the Spotlight"로 변경되었습니다. 이 기사에서 그 생각이 "valid"일지라도, 만약 "About Delphi
Programming" 사이트로부터 *Current Headlines*를 낚아채고 싶다면, "About Delphi Programming
*Current Headlines* sticker" 페이지를 방문하기 바랍니다.
---------------------------

이 사이트의 한 섹션에서 당신이 가져온 최신뉴스는 최신의 새롭고 변경된 것입니다. 이 페이지는
"What's New and Hot"페이지에 위치해 있습니다. 여러분이 매번 방문할 때마다 필자는 여러분이
그 페이지를 열어볼 것을 추천하고 새로운 기사가 추가되었는지 확인하길 바랍니다.

이러한 페이지에 유용한 정보를 추가하기 위해 사이트 웹 마스터와 관련된 델파이 프로그래밍을
가능하게 하기 위해서 필자는 "About Delphi Programming *New and Hot* sticker"를 개발해 왔습니다.
자바스크립트 파일이 그것이고 웹 마스터는 빈번히 업데이트 되는 프로페셔널 델파이 / 카일릭스
프로그래밍 컨텐츠의 소스를 뷰어에서 볼 수 있게 웹 페이지에 포함시킬 필요성을 충족시키게 됩니다.

자바스크립트 파일(.js)는 델파이로 개발된 유틸리티로 고안되었습니다. 이 어플리케이션은
이 사이트에서 What's New and Hot page를 다운로드 합니다. 그 다음은 페이지로부터 확실한 데이터를
추출하기 위한 정규식을 사용하게 됩니다. 마지막으로 추출된 데이터를 사용해서 .js 파일을 생성합니다.

이 기사의 논점은 인터넷에서 페이지를 다운로드하고 페이지를 스크래핑하여 더 "situation-friendly"
방법에서 정보를 보여주는데 사용된 테크닉을 소개하는 것입니다.

이 기사에서 소개된 데이터 추출 방법의 키는 "situation-friendly" 소스로 HTML문서를 변환하는 것입니다.
아래에 검토할 단계를 보겠습니다:

·HTML 소스 문서를 검색
·HTML 문서를 처리하고 불필요한 데이터는 제거
·결과를 문자열 타입의 변수로 전송
·ListView로 추출된 정보를 출력

주의: 위에서 기술된 Sticker 자바스크립트 파일은 이 기사에서 검토한 테크닉을 사용합니다 -
자바스크립트 document.write 메소드가 포맷된 HTML 코드를 문서에 추가한다는 사실에 따라
다양한 HTML 태그로 구성됩니다. 중요한 것은 Sticker핵인 .js가 필자가 추출하는 방법을
여러분에게 보여주는 데이터라는 것입니다.

Preparing the Delphi Project

이 기사를 기억에 남기기기 위해서 여러분들에게 Delphi를 시작해서 새 프로젝트를 생성할 것을
제안합니다. 폼 위에 TButton을 올려놓고 TListView도 올려놓습니다.

델파이 디폴트 컴포넌트 명을 그대로 사용하도록 합니다. 이제, Button1을 이용해서 인터넷으로부터
파일을 가져오고 정보검색을 해서 ListView1에 결과를 보여줍니다. 또한, ListView1에는 4개의
컬럼을 추가하도록 합니다: Title, URL, 설명, 언제/어디서. ListView1의 ViewStyle은 vsReport로
합니다.

· HTML 소스 문서를 검색

HTML 파일로부터 데이터를 추출하기 전에 확실히 해야할 것이 있습니다.
여러분의 첫 작업은 인터넷에서 파일을 다운로드하는데 사용된 델파이 함수를 생성하는 것입니다.
이 작업을 수행하는 방법은 WinInet API 호출을 사용하는 것이죠. 델파이는 HTTP나 FTP를 사용해서
어느 웹 사이트나 접속하고 파일을 추출할 수 있도록 WinInet API(wininet.pas)를 전적으로 액세스
하도록 하고 있습니다. 필자는 이미 "Get File From the Net"이라는 테크닉을 설명하는 기사를 쓴
적이 있습니다.

다른 접근 방법으로는 델파이 6를 사용한다면, TDownloadURL 객체를 사용하는 것입니다.
객체는 ExtActns.pas 유닛에 적의되어 있는 TDownloadURL는 특정 URL에서 파일의 내용을 저장하기 위해
고안된 것입니다. 여기 이 사이트에 "What's New and Hot" 페이지를 다운로드하는 TDownloadURL을
사용하는코드가 있습니다.

---------------------------------------------------------------------------
function Download_HTM(const sURL, sLocalFileName:string): boolean;
begin
  Result := True;
  with TDownLoadURL.Create(nil) do
  try
    URL := sURL;
    Filename := sLocalFileName;
    try
      ExecuteTarget(nil);
    except
      Result := False
    end;
  finally
    Free;
  end;
end;
---------------------------------------------------------------------------

Download_HTM 함수는 sURL 파라메터에서 지정된 URL로부터 파일을 다운로드하고 sLocalFileName 명으로
PC에 파일을 저장합니다. 이 함수는 성공이면 True를, 그렇지 않으면 False를 리턴합니다.
물론, 이 함수는 Button1 OnClick 이벤트 핸들러에서 호출됩니다. 아래에 코드가 있습니다.
주의할 것은, 이 파일은 "C:\temp_adp.newandhot"으로 저장된다는 것입니다.

---------------------------------------------------------------------------
procedure TForm1.Button1Click(Sender: TObject);
const
  ADPNEWHOTURL = 'http://delphi.about.com/cs/newandhot/index.htm';
  TmpFileName = 'c:\temp_adp.newandhot';
begin
  if NOT Download_HTM(ADPNEWHOTURL,TmpFileName) then
  begin
    ShowMessage('Error in HTML file download');
    Exit;
  end;

  {
  more code to be added
  }

end;
---------------------------------------------------------------------------

주의: 파일 받기 처리에서 TDownloadURL은 주기적으로 OnDownloadProgress 이벤트를 발생합니다.
이는 처리과정을 사용자에게 피드백으로 제공하기 위해서 입니다. 필자는 여러분이 구현할 수 있도록
이 부분을 남겨둘 것입니다.

지금, 우리는 디스크에 HTM 페이지 파일을 갖고 있으며 오브젝트 파스칼 코드로 ASCII 핸들링하는
테크닉을 사용할 수 있습니다.

· HTML 문서 처리

다음 단계는 HTML 문서 내부에 관심있는 데이터에 위치를 찾고 이를 추출하는 것 입니다. HTML 문서는
순수 ASCII파일이기 때문에, 델파이에서 text파일로 작없하듯 액세스하면 됩니다.

Before we move on

이 기사에서 설명된 테크닉은 XSLT를 사용해서 XML로 HTML처럼 "new"라는 지능적인 정보검색 테크닉과는
어째꺼나 상반된다는 것을 염두하는 것이 중요한데, 여러분이 이야기하는 것에 대해서 모르더라도
걱정은 안해도 됩니다.

웹페이지로부터 데이터를 성공적으로 추출하기 위해 패턴매칭의 몇가지 정규식이 필요합니다. 특히
이는 여러분이 만약 HTML 문서의 구조를 알고 있는 경우에 한해서 페이지를 스크래핑할 수 있을
것입니다.

이것은 여러분이 웹페이지를 생성하는 사람이라면 큰 문제는 아닙니다. 웹페이지 배후의 인물이
아니더라도 여러분은 패턴매칭을 할 수 있지만 HTML이 동적인 컨텐츠이고 문서구조가 다양한 배너광고
시스템과 동적인 서버 사이드 스크립트 엔진일 경우에 변화가 있을 수 있기때문에 종종 여러분의
코드를 체크해야만 합니다.

패턴 매칭결과를 도출못할 때의 상황에서 여러분은 HTML 문서를 XMl로 변환하는 것처럼 더 지능적인
해결책을 찾을 수 있습니다 - 구조화된 문서를 생성하는 표준: 그러나, 여기서 논의할 꺼리는 아닙니다.

여러분이 Notepad로 다운로드된 파일을 열어본다면, 우리가 추출하기 원하는 정보가 내부에 있는지
태크가 있는지 알아야 합니다. 해당 부분을 추출한 후, 서버/클라이언트 사이드 스크립트가 배제되도록
해야합니다 - 태그 사이에 있는 문자들. 남아있는 것은 다음처럼 10개의 포맷된 항목처럼 HTML
코드입니다.

---------------------------------------------------------------------------
<a href="http://delphi.about.com/library/weekly/aa061802a.htm">A Beginner's Guide to Delphi Programming: Chapter 5</a>

06/18 in BEGINNERS COURSE. Take a closer look at exactly what each keyword means by examining each line of the Delphi form unit source code. Interface, implementation, uses and other keywords explained in easy language!
---------------------------------------------------------------------------
(※ 위의 Html코드 예제가 제대로 보이지 않을수도 있습니다.)

자, 여기서 "item" 이라는 4가지 관심있는 정보가 나왔습니다. 코드에서 이 아이템은 ItemBuf 문자열
변수에 저장됩니다. red 마크는 특별히 뉴스 아이템의 URL입니다. blue 마크는 아이템의 title 입니다.
설명은 green마크이며 날짜나 위치는 maroon 마크입니다.

정보의 특정요소를 얻기위해서는 다음코드를 살펴봅니다:

---------------------------------------------------------------------------
// title 찾기
iStart := Pos('', ItemBuf) + Length('');
iStop := Pos('', ItemBuf);
sTitle := Copy(ItemBuf, iStart, iStop-iStart);
---------------------------------------------------------------------------

마침내 여러분들이 각 아이템을 4개의 문자열 변수로 변환하고 ListView에 정보를 출력합니다.
필자는 여러분에게 여기 상세한 프로젝트로 성가시게 하지 않을 것입니다. 전체코드를 확실히
본다면, 분석하는 만큼 많은것을 얻게 될 것입니다.

이 프로젝트는 실시간 동작합니다:

여러분이 이 기사에 대하여 어떤 문의나 의견이 있다면, Delphi Programming Forum에 게시를 해주기를
바랍니다.

p.s.
Delphi IDE에 남겨지지 않은 최근의 새로운 기사가 여러분들을 도와줄 수 있는 expert, Delphi IDE
add-on 개발하는 방법을 설명하는 기사를 확인해보세요.

---------------------------------------------------------------------------
From Zarko Gajic,
Your Guide to Delphi Programming.
FREE Newsletter. Stay up to date!

원문: http://delphi.about.com/od/internetintranet/l/aa062502a.htm