Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

E1508. Лечиться ли Delphi 7? [D7, WinXP]

oxffff © (2007-02-02 16:44:00)
type
TSlyObject=class(TObject,Iunknown)
protected
lUnknown:IUnknown;
property Unknown:IUnknown read lUnknown implements Iunknown;
public
end;

procedure TForm1.Button1Click(Sender: TObject);
var a:TSlyObject;
b:Iunknown;
begin
a:=TSlyObject2.Create;
b:=a; //Internal error here E1508.
end;

Delphi 2006 Sp2 не страдает этим.

Если bug fix для delphi 7

oxffff (2007-02-03 14:36:00) [1]

> ЮЮ © (03.02.07 10:58) [10]

> Делай билд, а не компиле или компилируй из командной строки,
> убивая dcu-шки, и будет работать всегда :)

Да полный Rebuild помогает. Благодарю вас.

ЮЮ (2007-02-03 10:58:00) [2]
Делай билд, а не компиле или компилируй из командной строки, убивая dcu-шки, и будет работать всегда :)

oxffff (2007-02-02 20:15:00) [3]

> clickmaker © (02.02.07 17:34) [6]
> ftp://ftpd.borland.com/devsupport/delphi/d7/update1r2/Delphi_71_Ent_Update_Inline/d7_ent_upd1_1.
> exe

Поставил update.
Уже internal error E1513.

Первый раз компилируешь при
b:=a; internal error E1513.

Меняешь на b:=a as iunknown; Работает.

НО!!!

internal error E1513. Вылетаешь и при b:=a as iunknown.
меняешь на b:=a; Работает.
Чудеса.!!!

oxffff (2007-02-02 17:35:00) [4]

> ftp://ftpd.borland.com/devsupport/delphi/d7/update1r2/Delphi_71_Ent_Update_Inline/d7_ent_upd1_1.
> exe

Ого. Огромнейшее спасибо.

clickmaker (2007-02-02 17:34:00) [5]
ftp://ftpd.borland.com/devsupport/delphi/d7/update1r2/Delphi_71_Ent_Update_Inline/d7_ent_upd1_1.exe

oxffff (2007-02-02 17:34:00) [6]

> Не могли ли вы предоставить link на update 1

Ой я что-то обленился. Не утруждайтесь. Саму надо бы поискать.
Да 3 недели дома и воспаление легких дают знать. :)

oxffff (2007-02-02 17:31:00) [7]

> clickmaker © (02.02.07 17:18) [4]
>
> > [3] oxffff © (02.02.07 17:08)
>
> у меня этот код работает
> D7 Build 8.1 (Update Pack 1)

У меня D7 4.453

Не могли ли вы предоставить link на update 1
на free :)

clickmaker (2007-02-02 17:18:00) [8]

> [3] oxffff © (02.02.07 17:08)

у меня этот код работает
D7 Build 8.1 (Update Pack 1)

oxffff (2007-02-02 17:08:00) [9]

> а почему не TInterfacedObject?

Хочется в зависимости от необходимость инстанцировать объекты, которые либо ref, либо NoRef counting. + динамически менять поведение Iunknown.

Я уже давно сталкнулся с этими проблемами.

Но тогда решал их так.
b:=a as Iunknown вместо b:=a; //Internal error here E1508.

Что делать если компилятор не совершенен.

Но здесь этот финт не проходит.

clickmaker (2007-02-02 16:58:00) [10]

> oxffff © (02.02.07 16:44)

а почему не TInterfacedObject?

oxffff (2007-02-02 16:45:00) [11]
TSlyObject2=TSlyObject

Наверх

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