볼랜드포럼: MethodAddress 사용.

	C++Builder \| Delphi \| FireMonkey \| C/C++ \| Free Pascal \| Firebird

경고! 게시물 작성자의 사전 허락없는 메일주소 추출행위 절대 금지

C++빌더 포럼

볼랜드포럼 홈

회원 메뉴

C++빌더 팁&트릭		C++Builder Programming Tip&Tricks

[708] MethodAddress 사용.
[cppbuilder]	10180 읽음 2007-09-08 23:54

MethodAddress는 실행시간(Run-time)에 published 된 메소드에 대한 주소를 구하는 함수입니다.
이는 아래와 같이 사용하는 것이 정석입니다.

//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
   ShowMessage(this->Caption + " " + ((TButton*)Sender)->Caption);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
	TMethod  Method;
	Method.Code = MethodAddress("Button1Click");
	if (Method.Code)
	{
		Method.Data = this;
		TNotifyEvent  BtnClick = *(TNotifyEvent *)&Method;
		BtnClick(Sender);
	}
}
//---------------------------------------------------------------------------

하지만 코드를 보다 짧게 쓰고 싶으면 다음과 같이 해도 됩니다.

//---------------------------------------------------------------------------
typedef void __fastcall (*TObjectEvent)(void *, System::TObject* Sender);

void __fastcall TForm1::Button4Click(TObject *Sender)
{
	TObjectEvent BtnClick = (TObjectEvent)MethodAddress("Button1Click");
	if (BtnClick)
		BtnClick(this, Sender);
}
//---------------------------------------------------------------------------

이는 멤버함수는 숨겨진 첫번째 파라메터가 객체의 인스턴스 포인트라는 점을 이용해
첫번째 파라메터로 this를 주고 두번째 부터는 실제 파라메터를 넣는 방법을 쓰는 것입니다.

둘 중 어느 것이나 동작은 같으므로
내키는 것으로 사용하면 됩니다.

조금 더 간편하게 쓸려면 아래처럼 GetMethodAddress(String name) 함수를 정의해
사용하면 됩니다.

//---------------------------------------------------------------------------

TNotifyEvent	TForm1::GetMethodAddress(String name)
{
	TMethod  Method;
	Method.Code = MethodAddress(name);
	if (Method.Code)
	{
		Method.Data = this;
		TNotifyEvent  event = *(TNotifyEvent *)&Method;
		return event;
	}
	return NULL;
}

void __fastcall TForm1::Button3Click(TObject *Sender)
{
	TNotifyEvent event = GetMethodAddress("Button1Click");
	if (event)
		event(Sender);
}
//---------------------------------------------------------------------------

그럼.

Trackback : http://cbuilder.borlandforum.com/impboard/impboard.dll/trackback?sn=98595

[nasilso] 2007-09-09 00:17 X

아하....
감사합니다.
두번째 짧게하는 방법은 Q&A 게시판에 두분의 답변을 통해 알게되었구요

첫번째 복잡한 방법!
저걸 찾고있었는데....

히야.... 저것이 되면...
하여간 너무너무 감사합니다. 복 많이 받을꺼예요

요즘 VCL에 대해 좀 깊이 보려고 하고있는데
앞으로도 많은 지도 편달 부탁드립니다.

[nasilso] 2007-09-09 00:23 X

위에 첫번째 기능이 되면 아래와 같은 코드가 가능하네요 ㅋㅋ

//-------------------------------------------------------
TButton *btn=new TButton(this);
btn->Parent = this;
btn->Caption = "Test";
...

TMethod Method;
    Method.Code = MethodAddress("Button1Click");
    if (Method.Code)
    {
        Method.Data = this;
        btn->OnClick = *(TNotifyEvent *)&Method;
    }

//-------------------------------------------------------

이걸 어디에 써먹지???

[cppbuilder] 2007-09-09 00:39 X

TButton *btn=new TButton(this);
btn->Parent = this;
btn->Caption = "Test";
btn->OnClick = GetMethodAddress("Button1Click");

바로 이렇게 간편하게 해도 될 것 같습니다.
^^;

[nasilso] 2007-09-09 01:20 X

허걱....
그럼 MethodAddress <-- 이놈은 왜 있당가요?

[cppbuilder] 2007-09-09 01:40 X

GetMethodAddress는 저 위에 제가
작성한 함수입니다. ^^;;;

[nasilso] 2007-09-09 01:54 X

허걱... 방금 해보니까 안나와서 인터넷 뒤지니까
아래와같은 함수가 나오네요

function GetMethodAddress(Forma:TForm;const Name: ShortString): TMethod;
begin
Result.Code := Forma.MethodAddress(Name);
Result.Data := Forma;
end;
//-------------------------------------------------------

아래는 제가 좀 수정한것 ..
TMethod __fastcall GetMethodAddress(TObject *Obj, String const Name)
{
    TMethod Method;
    Method.Code = Obj->MethodAddress(Name);
    Method.Data = Obj;
    return Method;
}