Rambler's Top100
"Knowledge itself is power"
F.Bacon
Поиск | Карта сайта | Помощь | О проекте | ТТХ  
 Круглый стол
  
Правила КС
>> Настройки

Фильтр вопросов
>> Новые вопросы
отслеживать по
>> Новые ответы

Избранное

Страница вопросов
Поиск по КС


Специальные проекты:
>> К л ю к в а
>> Г о л о в о л о м к и

Вопрос №

Задать вопрос
Off-topic вопросы

Помощь

 
 К н и г и
 
Книжная полка
 
 
Библиотека
 
  
  
 


Поиск
 
Поиск по КС
Поиск в статьях
Яndex© + Google©
Поиск книг

 
  
Тематический каталог
Все манускрипты

 
  
Карта VCL
ОШИБКИ
Сообщения системы

 
Форумы
 
Круглый стол
Новые вопросы

 
  
Базарная площадь
Городская площадь

 
   
С Л С

 
Летопись
 
Королевские Хроники
Рыцарский Зал
Глас народа!

 
  
ТТХ
Конкурсы
Королевская клюква

 
Разделы
 
Hello, World!
Лицей

Квинтана

 
  
Сокровищница
Подземелье Магов
Подводные камни
Свитки

 
  
Школа ОБЕРОНА

 
  
Арсенальная башня
Фолианты
Полигон

 
  
Книга Песка
Дальние земли

 
  
АРХИВЫ

 
 

Сейчас на сайте присутствуют:
 
  
 
Во Флориде и в Королевстве сейчас  01:11[Войти] | [Зарегистрироваться]
Ответ на вопрос № 56522

30-10-2007 05:13
Есть такой вопросик:


type
  TMax = procedure(P:PChar) of object;
  TMax2 = procedure(P:PChar); stdcall;

  procedure Hello(T:TMax);
  begin
  T('Hello');
  end;


  Как вызвать эту же процедуру - но вкачесве параметра указать тип TMax(TMax2), и при
  этом не получить ошибку.

[+] Добавить в избранные вопросы

Отслеживать ответы на этот вопрос по RSS

Ответы:


Уважаемые авторы вопросов! Большая просьба сообщить о результатах решения проблемы на этой странице.
Иначе, следящие за обсуждением, возможно имеющие аналогичные проблемы, не получают ясного представления об их решении. А авторы ответов не получают обратной связи. Что можно расценивать, как проявление неуважения к отвечающим от автора вопроса.

31-10-2007 02:23 | Сообщение от автора вопроса
Спасибо - дальше я сам разберусь

30-10-2007 09:30
На всякий случай привожу описание:


type
    // TMax и TMax2 должны использовать одинаковое соглашение о вызове
    // для всех стандартных обработчиков и процедур
    // в Delphi по умолчанию используется модель register
    // можно указать модель вызова явно
  TMax = procedure (P:PChar) of object; stdcall; <- метод класса
  TMax2 = procedure (Self: TObject; P:PChar); stdcall; <- процедура
 
  // В процедуре, которая должна быть обработчиком события,
  // необходимо явно описать еще один, дополнительный параметр,
  // который будет получать значение Self.
  // Self скрытый параметр, который передается каждому методу в объекте.
  // Он позволяет методу обратиться к объекту.
  // поэтому в описание TMax2 добавлен первым параметр Self: TObject.

  TSomeObject = class(...)
    ...
    procedure Max(P: PChar); stdcall;
    ...
  end;

procedure TSomeObject.Max(P: PChar);
begin
  ShowMessage(P);
end;

procedure Max2(Self: TObject; P:PChar); stdcall;
begin
  ShowMessage(P)
end;

procedure Hello(T: TMax);
begin
  T('Hello');
end;

  // Наша задача: вызвать процедуру Hello, передав ей процедуру типа TMax2
  // вместо ожидаемого ею метода класса
procedure Test;
var
  Method: TMethod;
begin
    // TMethod - специальный тип TMethod, описанный в модуле System
    // используемый для приведения типов.
    // Он представляет собой внутреннюю реализацию объектного процедурного типа.
 
    // Method.Code - указатель на метод класса
  Method.Code := @Max2;
    // Method.Data - объект, который будет передан в качестве Self
    // в метод
  Method.Data := nil

    // Вызываем Hello с помощью приведения типов...
  Hello(TMax(Method))
end;


30-10-2007 08:39 | Комментарий к предыдущим ответам
Max(P: PChar); stdcall;
Забыл procedure указать :-)


  procedure Max(P: PChar); stdcall;



Что такое метод класса, как переменные такого типа представляются в памяти (TMethod) и чем это отличается от процедурного типа.
Я надеюсь автор или сам разберется, как работает этот "обман" Delphi, или попросит пояснений :)

30-10-2007 08:20
Может начать с основ? Что такое метод класса, как переменные такого типа представляются в памяти (TMethod) и чем это отличается от процедурного типа.

30-10-2007 08:02 | Комментарий к предыдущим ответам
Дополнение:


type
  TSomeObject = class(...)
    ...
    Max(P: PChar); stdcall;
    ...
  end;


30-10-2007 07:58
Ну тогда вот Вам пища для размышлений:


type
  TMax = procedure (P:PChar) of object; stdcall;
  TMax2 = procedure (Self: TObject; P:PChar); stdcall;

procedure TSomeObject.Max(P: PChar);
begin
  ShowMessage(P);
end;

procedure Max2(Self: TObject; P:PChar); stdcall;
begin
  ShowMessage(P)
end;

procedure Hello(T: TMax);
begin
  T('Hello');
end;

procedure Test;
var
  Method: TMethod;
begin
  Method.Code := @Max2;
  Method.Data := nil;
  Hello(TMax(Method))
end;



TMax и TMax2 должны использовать одинаковое соглашение
о связях (calling convention).

30-10-2007 07:43 | Сообщение от автора вопроса
Так, поломать голову немного BlackHole - может пригодится.

30-10-2007 07:36 | Сообщение от автора вопроса
Да, на счет повтора вопроса 56520 с 56522, "Panda" - это разные вопросы.
http://www.delphikingdom.com/asp/answer.asp?IDAnswer=56520

30-10-2007 07:35 | Вопрос к автору: запрос дополнительной информации
Однако зачем вам такое извращение? :)

30-10-2007 07:27 | Сообщение от автора вопроса
Или наоборот


type
  TMax = procedure(P:PChar) of object;
  TMax2 = procedure(P:PChar); stdcall;

  procedure TForm1.Max(P:PChar);
  begin
  ShowMessage(P);
  end;

  procedure Hello(T:TMax2);
  begin
  T('Hello');
  end;


И потом вызвать Hello(TMax2(Max)) - получим ошибку, так как object и stdcall;


30-10-2007 07:20 | Сообщение от автора вопроса
Да! BlackHole

30-10-2007 05:38 | Вопрос к автору: запрос дополнительной информации
Т.е. Вы хотите вызвать нечто такое


procedure Max2(P:PChar); stdcall;
begin
end;

Hello(TMax(Max2))?


30-10-2007 05:27 | Вопрос к автору: запрос дополнительной информации
Для начала покажите, как Вы вызываете и получаете ошибку.

Добавьте свое cообщение

Вашe имя:  [Войти]
Ваш адрес (e-mail):На Королевстве все адреса защищаются от спам-роботов
контрольный вопрос:
Зимой — белый, летом — серый. Кто?
в качестве ответа на вопрос или загадку следует давать только одно слово в именительном падеже и именно в такой форме, как оно используется в оригинале.
Надоело отвечать на странные вопросы? Зарегистрируйтесь на сайте.
Тип сообщения:
Текст:
Жирный шрифт  Наклонный шрифт  Подчеркнутый шрифт  Выравнивание по центру  Список  Заголовок  Разделительная линия  Код  Маленький шрифт  Крупный шрифт  Цитирование блока текста  Строчное цитирование
  • вопрос Круглого стола № XXX

  • вопрос № YYY в тесте № XXX Рыцарской Квинтаны

  • сообщение № YYY в теме № XXX Базарной площади
  • обсуждение темы № YYY Базарной площади
  •  
     Правила оформления сообщений на Королевстве

    Страница избранных вопросов Круглого стола.
      
    Время на сайте: GMT минус 5 часов

    Если вы заметили орфографическую ошибку на этой странице, просто выделите ошибку мышью и нажмите Ctrl+Enter.
    Функция может не работать в некоторых версиях броузеров.

    Web hosting for this web site provided by DotNetPark (ASP.NET, SharePoint, MS SQL hosting)  
    Software for IIS, Hyper-V, MS SQL. Tools for Windows server administrators. Server migration utilities  

     
    © При использовании любых материалов «Королевства Delphi» необходимо указывать источник информации. Перепечатка авторских статей возможна только при согласии всех авторов и администрации сайта.
    Все используемые на сайте торговые марки являются собственностью их производителей.

    Яндекс цитирования