VPF::Как добраться до адреса функции по ее строк. имени

Vyacheslav

Дата 23.10.2002, 00:01 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Экс. модератор
Сообщений: 2124
Регистрация: 25.3.2002
Где: Москва

Репутация: 47
Всего: 59

В Builder C++ задача получения адреса функции по ее символьному имени решается не просто, а очень просто. Правда с одним ограничением: эта функция должна быть опубликованным методом класса.

Код


class TMyForm : public TForm
{
   
   TNotifyEvent fastcall GetProcByName(AnsiString);
published:
     void fastcall MyFunc1(TObject* Sender);  
     void fastcall MyFunc2(TObject* Sender);  
 
};
TNotifyEvent fastcall  TMyForm ::GetProcByName(AnsiString ProcName)
{
//формируем __closure адрес
TMethod Method;
             Method.Data = this;
    if(Method.Code)
   { 
             Method.Code = MethodAddress(ShortString(ProcName));
        return  *(TNotifyEvent*)&Method;
   }
   return NULL;        
}
....
//получаем адрес функции по имени 
TNotifyEvent AdrFunc = GetProcByName("MyFunc1");
//теперь мы ее можем запустить
if (AdrFunc)   AdrFunc(NULL);
//или присвоить событию в качестве какого либо обработчика
Button->OnClick = AdrFunc;
...
AdrFunc = GetProcByName("MyFunc2");
Button->OnClick = AdrFunc;

естественно, возможен обратный процесс получения символьного имени по адресу. Например, определим как называется функция, которая в данный момет является обработчиком события Button->OnClick;

Код


TMethod Method = *(TMethod*)&(Button->OnClick);
ShortString ProcName = MethodName(Method.Code);

--------------------

С уважением, Вячеслав Ермолаев

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| C++ Builder \| Следующая тема »