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

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

Нужен толковой пример по работе с интерфейсами...

WoW ©   (2006-10-08 12:46:00) 

Совсем небольшой... Но понятный...

---

Kolan   (2006-10-08 13:52:00) [1]

> GUID

Скачай книгу
Delphi 5. Руководство разработчика, том 1 и 2
Отсюда:
http://www.podgoretsky.com/ddp.html

В томе 2 про COM ввсе расписано.

А GUID используется для уникальнойидентификации интерфейсов в COM.

---

WoW   (2006-10-08 13:46:00) [2]

Kolan ©   (08.10.06 13:43) [2]
Спасибо, одно осталось не ясно зачем нужен GUID?

---

Kolan   (2006-10-08 13:43:00) [3]

Забыл реализация MyProc в классе TMyClass:
procedure TMyClass.MyProc;
begin
 ShowMessage('Hellow world!');
end;

---

Kolan   (2006-10-08 13:42:00) [4]

Интерфейс
IMyInterface = interface
   procedure MyProc;
 end;

Поддерживающий его класс
 TMyClass = class(TInterfacedObject, IMyInterface)
   procedure MyProc;
 end;

Приер использования:
procedure TForm3.BitBtn1Click(Sender: TObject);
var
 MyInterface: IMyInterface;
begin
 MyInterface := TMyClass.Create;
 MyInterface.MyProc;
end;

---

Наверх