Форум: "Основная";
Текущий архив: 2003.11.17;
Скачать: [xml.tar.bz2];

Вниз

Добраться до объекта реализующего интерфейс   Найти похожие ветки 

← →
kanych   (2003-11-05 04:20) [0]

Здравствуйте.
Может кто сталкивался с подобной проблемой.
Есть класс который реализует интерфейс:

type
TSBMessage = class(TAutoObject, ISBMessage)
private
FMessage: TIdMessage;

function GetMessage: TIdMessage;
protected
function Get_Sender: WideString; safecall;
procedure Set_Sender(const Value: WideString); safecall;
function Get_From: WideString; safecall;
procedure Set_From(const Value: WideString); safecall;
function Get_ReplyTo: WideString; safecall;
procedure Set_ReplyTo(const Value: WideString); safecall;
function Get_Recipients: WideString; safecall;
procedure Set_Recipients(const Value: WideString); safecall;
function Get_ReceiptRecipient: WideString; safecall;
procedure Set_ReceiptRecipient(const Value: WideString); safecall;
function Get_Subject: WideString; safecall;
procedure Set_Subject(const Value: WideString); safecall;
function Get_InReplyTo: WideString; safecall;
procedure Set_InReplyTo(const Value: WideString); safecall;
function Get_Body: WideString; safecall;
procedure Set_Body(const Value: WideString); safecall;
procedure Clear; safecall;
function Get_MessageParts: ISBMessageParts; safecall;
function Get_UID: WideString; safecall;
public
constructor Create(AOwner: TIdMessage = nil);
procedure Initialize; override;

property Message: TIdMessage read GetMessage write FMessage;
end;

А теперь я хочу добраться до свойства Message экземпляра этого класса имея интерфейс ISBMessage.
Такое возможно сделать? И если возможно, то каким образом?

---

← →
alex_***   (2003-11-05 09:04) [1]

Нельзя. И это противоречит концепции интерфейсов.

---

← →
kanych   (2003-11-05 09:12) [2]

Спасибо, я уже разобрался.
Интересно, а чем это противоречит концепции интерфейсов? ;)

---

← →
alex_***   (2003-11-05 17:43) [3]

Интерфейс для того и создан чтоб скрывать внутреннюю реализацию. Ты смог обратится?

---

← →
Dimka Maslov   (2003-11-05 17:47) [4]

Пытался я сделать такое. В принципе это возможно. Но мероприятие зависит от количества интерфейсов, реализуемых объектом (в том числе объявленных в классах-предках), а вот уже эту величину определить уже невозможно.

---

← →
nikkie   (2003-11-05 17:48) [5]

да нет проблем - as TSBMessage
концепции интерфейсов это не противоречит, но осадок неприятный :)

---

← →
Юрий Федоров   (2003-11-05 17:57) [6]

>>nikkie © (05.11.03 17:48) [5]
Неправда, это не откомпилируется

Елинственный вариант -
в интерфейс добавить метод
GetObject : TMyObject
(вернуть Self)
но в Com это недопустимо

---

← →
nikkie   (2003-11-05 18:15) [7]

>Неправда, это не откомпилируется
ну тогда TSBMessage(...)

---

← →
Ломброзо   (2003-11-05 18:22) [8]

> GetObject : TMyObject
а вернуть нетипизированный указатель? или адрес в long? )

>ну тогда TSBMessage(...)
AV

---

← →
vuk   (2003-11-05 18:24) [9]

to Ломброзо:
>а вернуть нетипизированный указатель? или адрес в long? )
Угу. Из другого процесса. :o)

---

← →
Ломброзо   (2003-11-05 18:28) [10]

Да что уж там, с другого хоста )

---

← →
Юрий Федоров   (2003-11-05 18:29) [11]

>>nikkie © (05.11.03 18:15) [7]
>>ну тогда TSBMessage(...)
Не пройдет, это будет совсем другой адрес. Даже в рамках одного процесса

---

← →
nikkie   (2003-11-05 18:42) [12]

type
iZZZ = interface
procedure xxx;
end;

tZZZ = class(TInterfacedObject, iZZZ)
public
procedure xxx;
procedure yyy;
end;

procedure tZZZ.xxx;
begin
ShowMessage("xxx");
end;

procedure tZZZ.yyy;
begin
ShowMessage("yyy");
end;

procedure TForm1.Button1Click(Sender: TObject);
var
x: iZZZ;
begin
x := tZZZ.Create;
x.xxx;
tZZZ(x).yyy;
end;
проблем не наблюдается.

---

← →
Юрий Федоров   (2003-11-05 18:49) [13]

>>nikkie © (05.11.03 18:42) [12]
Это Compilier Magic
Посмотри, что он в Асме делает в ответ на этот код )))

---

← →
Ломброзо   (2003-11-05 18:56) [14]

имхо здесь компилятор просто знает смещение адреса интерфейса относительно адреса класса, потому что их описание находится в одном модуле, потому приведение типов работает корректно, за это спасибо компилятору. А вообще чревато ) Ср. с tZZZ(Pointer(x)) - шансы получить AV возрастают на порядок. Допустим, кто-то изменил реализацию класса, добавил пару полей, у него код более новый, а у вас старый. И вы генерируете TLB и делаете вот такое "насильное" приведение типов.

---

← →
vuk   (2003-11-05 19:00) [15]

to nikkie:


type

ISampleIntf1 = interface
["{38B86F8F-633D-4F01-A2BC-5C39330309A5}"]
procedure xxx;
end;

ISampleIntf2 = interface
["{9993B622-7946-4ECE-860D-F497B1FA7E5F}"]
procedure yyy;
end;

tZZZ = class(TInterfacedObject, ISampleIntf1, ISampleIntf2)
protected
FData: integer;
public
constructor Create(Data: integer);
procedure xxx;
procedure yyy; virtual; //<- Это имеет значение
end;

constructor tZZZ.Create(Data: integer);
begin
FData := Data;
end;

procedure tZZZ.xxx;
begin
ShowMessage("xxx " + IntToStr(FData));
end;

procedure tZZZ.yyy;
begin
ShowMessage("yyy " + IntToStr(FData));
end;

procedure TestProc(Ref: IUnknown);
begin
tZZZ(Ref).XXX;
tZZZ(Ref).YYY;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
x: ISampleIntf1;
begin
x := tZZZ.Create(1);
TestProc(x);
end;



---

← →
nikkie   (2003-11-05 19:01) [16]

какая разница, что он там делает? я догадываюсь, что VMT разные, поэтому реально это разные указатели. но ведь так сделать можно? и AV не будет.

---

← →
vuk   (2003-11-05 19:24) [17]

to nikkie:
Там даже не в VMT дело, а в том, что указатель на экземпляр и указатель на интерфейс, реализуемый этим экземпляром - это указатели в разные места. Со всеми вытекающими... А в Вашем примере все работало только потому, что методы статические и не используют данных экземпляра.

---

← →
nikkie   (2003-11-05 20:51) [18]

>Ломброзо
>И вы генерируете TLB...
вообще-то про COM и разные модули в теме ничего сказано не было... когда я говорил о приведении типов, подразумевал, что все происходит в одном модуле.

>vuk
пример убедителен. мне казалось, что если приведение iXXX(z) меняет значение указателя, то и tZZZ(x) также мог бы это делать, благо вся информация компилятору доступна.

кстати, в c++ преобразование проходит нормально в обе стороны

#include <stdio.h>

class iXXX {
public:
virtual char *xxx() = 0;
};

class iYYY {
public:
virtual char *yyy() = 0;
};

class ZZZ : public iXXX, public iYYY {
public:
int z;
ZZZ(int z) { this->z = z; }
char *xxx() { return "xxx"; };
char *yyy() { return "yyy"; };
};

void main()
{
ZZZ z(77);
iXXX *px = (iXXX *)(&z);
printf("%s\n", px->xxx());

iYYY *py = (iYYY *)(&z);
printf("%s\n", py->yyy());

ZZZ *pz;
pz = (ZZZ *)px;
printf("%s %d\n", pz->xxx(), pz->z);
printf("%s %d\n", pz->yyy(), pz->z);
pz = (ZZZ *)py;
printf("%s %d\n", pz->xxx(), pz->z);
printf("%s %d\n", pz->yyy(), pz->z);

printf("%d %d %d\n", px, py, pz);
}


результат работы:

xxx
yyy
xxx 77
yyy 77
xxx 77
yyy 77
1245044 1245048 1245044


---

← →
vuk   (2003-11-05 20:54) [19]

Угу. Потому, что классы - это не интерфейсы.

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2003.11.17;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.49 MB
Время: 0.01 c