| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как присвоить типу OleVariant адресс процедуры? [D6, WinXP]

oleg_SYS ©   (2005-03-02 20:18:00) 

Мне необходимо через COM-объект выловить некоторые события. Но при попытке присвоить этим параметра адресса процедур, компилятор выдаёт ошибку Incompatible types. Вот пример:


procedure MyProcedure;
begin
ShowMessage(':)');
end;

procedure TForm1.Button1Click(Sender: TObject);
var
ptrAddr: Pointer;
ov: OleVariant;
begin
ptrAddr := @MyProcedure;
ov := ptrAddr;
end;


---

Digitman   (2005-03-03 12:45:00) [1]

> через COM-объект выловить


это как ?!

---

Erik1   (2005-03-03 12:37:00) [2]

А вобще можно, что угодно запихать куда угодно. Для этого есть приведение типов. Или вобще непрямую Move писать.
ov := Integer(@MyProcedure);
Еще прикол:
Var
  a: Boolean;
begin
 Move(77, a, SizeOf(Byte));
end;

---

Набережных С.   (2005-03-02 21:56:00) [3]

> oleg_SYS ©   (02.03.05 20:53) [2]

Процедура тут не причем. Туда нужно передать интерфейс объекта, который и будет обрабатывать факт события. Т.е. при событии будет вызываться метод этого объекта. Какой нужен интерфейс в данном случае, я не знаю, никогда с ним не работал.

---

oleg_SYS   (2005-03-02 20:53:00) [4]

Набережных С., например у объекта IHTMLDOcument2 есть property:


property onreadystatechange: OleVariant read Get_onreadystatechange write Set_onreadystatechange;


тип - OleVariant. Мне необходимо его выловить, чтобы узнавать, когда юзер перешёл на новую страницу или нажал кнопку Refresh.

---

Набережных С.   (2005-03-02 20:41:00) [5]

> oleg_SYS ©   (02.03.05 20:18)  

Ни-и-че не понял:( А нормальным языком изложить все это никак нельзя? Ну а несовместимость типов - все правильно, OleVariant принимает только OLE-совместимые типы, а Pointer к таковым не относится.

---

Наверх