Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> TMethod, преобразование типов 
:(
    Опции темы
stab
Дата 26.4.2004, 22:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

Репутация: 14
Всего: 48
Есть некоторая процедура, которой передается параметр типа TMethod. Не могу найти удобный способ преобразования любого метода в TMethod. Если просто написать MyProc(TMethod(SomeMethod)); компилер это не проглатывает. Приходится объявлять переменную процедурного типа ей присваивать SomeMethod, а уже потом писать MyProc(TMethod(SomeMethodVariable)); , т.е.:

Код

type
 TSomeMethod = procedure(p1: Integer) of object;


procedure TSomeClass.SomeMethod(p1: Integer);
begin
 // do something
end;

procedure MyProc(m: TMethod);
begin
 // do something
end;

...

var
 SomeMethodVariable: TSomeMethod;
 o1: TSomeClass;

SomeMethodVariable := o1.SomeMethod;
MyProc(TMethod(SomeMethodVariable));


а хотелось бы так:

Код

procedure TSomeClass.SomeMethod(p1: Integer);
begin
 // do something
end;

procedure MyProc(m: TMethod);
begin
 // do something
end;

...
var
 o1: TSomeClass;

MyProc(Какая_то_хитрость(o1.SomeMethod));



--------------------
6, 6, 6 - the number of the beast.
PM MAIL WWW   Вверх
x77
Дата 27.4.2004, 08:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1255
Регистрация: 25.3.2002

Репутация: 19
Всего: 22
сомневаюсь... метод - это запись. которая может быть и процедурой, и функцией. как ты хочешь привести запись - к процедуре?


--------------------
Я никогда не сопротивлялся искушению, поскольку узнал: что мне
не нравится, то меня не искушает. © Джордж Бернард Шоу (Ирландия)
PM MAIL ICQ   Вверх
<Spawn>
Дата 27.4.2004, 12:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Око кары:)
****


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

Репутация: 44
Всего: 64
Вот так может?

Код
type
 TSomeMethod = procedure(i: integer) of object;

 TForm1 = class(TForm)
   Button1: TButton;
   procedure Button1Click(Sender: TObject);
   procedure SomeMethod(i: integer);
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

procedure MyProc(Code: Pointer; Data: Pointer);
var
 Method: TMethod;
 Evt: TSomeMethod;
begin
 Method.Code := Code;
 Method.Data := Data;
 //Теперь ты передал сюда свой метод и можешь чего то сделать, например
 Evt := TSomeMethod(Method);
 Evt(10);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
 SomeClass: TSomeClass;
begin
 MyProc(Self.MethodAddress('SomeMethod'), Self);
end;

procedure TForm1.SomeMethod(i: integer);
begin
 ShowMessage(IntToStr(i));
end;


Это сообщение отредактировал(а) <Spawn> - 27.4.2004, 12:39


--------------------
"Для некоторых людей программирование является такой же внутренней потребностью, подобно тому, как коровы дают молоко, или писатели стремятся писать" - Николай Безруков.
PM MAIL ICQ   Вверх
x77
Дата 27.4.2004, 12:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1255
Регистрация: 25.3.2002

Репутация: 19
Всего: 22
<Spawn>, а если параметров больше? или нет вообще? а если методом является функция, возвращающая значение? это будет работать?



--------------------
Я никогда не сопротивлялся искушению, поскольку узнал: что мне
не нравится, то меня не искушает. © Джордж Бернард Шоу (Ирландия)
PM MAIL ICQ   Вверх
<Spawn>
Дата 27.4.2004, 13:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Око кары:)
****


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

Репутация: 44
Всего: 64
Передача в функцию метода будет работать, так как это всего лишь указатели(TMethod.Code и TMethod.Data)

Это сообщение отредактировал(а) <Spawn> - 27.4.2004, 13:47


--------------------
"Для некоторых людей программирование является такой же внутренней потребностью, подобно тому, как коровы дают молоко, или писатели стремятся писать" - Николай Безруков.
PM MAIL ICQ   Вверх
x77
Дата 27.4.2004, 13:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1255
Регистрация: 25.3.2002

Репутация: 19
Всего: 22
но ведь MetodAddres работает не для всех методов? только для published? или я путаю?


--------------------
Я никогда не сопротивлялся искушению, поскольку узнал: что мне
не нравится, то меня не искушает. © Джордж Бернард Шоу (Ирландия)
PM MAIL ICQ   Вверх
stab
Дата 27.4.2004, 19:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

Репутация: 14
Всего: 48
Цитата
сомневаюсь... метод - это запись. которая может быть и процедурой, и функцией. как ты хочешь привести запись - к процедуре?


Код
SomeMethodVariable := o1.SomeMethod;


Здесь же без проблем в переменную SomeMethodVariable заносится информация о методе, а все переменные такого рода ни что иное, как переменные типа TMethod. Надо просто как-то обмануть компилер, что бы он опустил проверку сигнатуры методов.

з.ы. жаль, что MethodAddress действительно не для всего работает sad.gif


--------------------
6, 6, 6 - the number of the beast.
PM MAIL WWW   Вверх
p0s0l
Дата 27.4.2004, 23:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Г-н Посол
****


Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

Репутация: 58
Всего: 112
Можно так, правда нужно знать класс объекта (в большинстве случаев я думаю это не проблема):
Код
type
 TSomeMethod = procedure(p1: Integer) of object;

procedure TfrmMain.SomeMethod(p1: Integer);
begin
 ShowMessage(IntToStr(p1));
end;

function MakeMethod(code, data : pointer) : TMethod;
begin
 Result.Code := Code;
 Result.Data := Data;
end;

procedure MyProc(code, data : pointer);
begin
 TSomeMethod(MakeMethod(code, data))(10);
end;

procedure TfrmMain.Button4Click(Sender: TObject);
begin
 MyProc(@TfrmMain.SomeMethod, frmMain);
end;




--------------------
С уважением, г-н Посол.
PM   Вверх
Gwire
Дата 22.8.2013, 14:19 (ссылка) | (голосов:2) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 216
Регистрация: 7.8.2007
Где: Николаев

Репутация: 1
Всего: 4
Если нужно получить указатель на метод объекта, не задумываясь какого он типа этот метод.
Код

      push   eax
      lea    eax, [TSomeClass.SomeMethod]   
      mov    M.Code, eax
      pop    eax

То есть
Код

procedure TSomeClass.SomeMethod(p1: Integer);
begin
end;

procedure MyProc(m: TMethod);
begin
end;

. . . 

procedure TForm1.sButton1Click(Sender: TObject);
var M: TMethod;
    O: TSomeClass;
begin
    O:= TSomeClass.Create;
    asm
      push   eax
      lea    eax, [TSomeClass.SomeMethod]   // Не "O." а именно "TSomeClass."
      mov    M.Code, eax
      pop    eax
    end;
    M.Data:= O;

    MyProc( M );
end;


Или проще
Код

procedure TForm1.sButton1Click(Sender: TObject);
var M: TMethod;
    O: TSomeClass;
begin
    O:= TSomeClass.Create;
    M.Code:= @TSomeClass.SomeMethod;
    M.Data:= O;
    MyProc( M );
end;



Это сообщение отредактировал(а) Gwire - 22.8.2013, 14:24
PM MAIL   Вверх
Gwire
Дата 22.8.2013, 16:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 216
Регистрация: 7.8.2007
Где: Николаев

Репутация: 1
Всего: 4
Прошу прощения. 
Похоже с 2004 года это никому не интересно. В 2013 ни кто не задается вопросом как получить указатель на метод.
Ведь все давно под .Net кодят. Один я тут такой застарелый решил поделится отстойной информацией. 
PM MAIL   Вверх
Poseidon
Дата 22.8.2013, 19:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Delphi developer
****


Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 53
Всего: 133
Нет, все в порядке. Да, где-то ты не прав в плане оживления старой темы, но в остальном молодец. Поисковики это проиндексируют и, возможно, кому-то твой код очень поможет. Не все еще на .Net сидят. 


--------------------
Если хочешь, что бы что-то работало - используй написанное, 
если хочешь что-то понять - пиши сам...
PM MAIL ICQ   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0565 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.