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

Вниз

TShockwaveFlash и интерфейсы ....   Найти похожие ветки 

← →
ki11er   (2005-02-24 20:32) [0]

Здравствуйте.


procedure TForm1.SpeedButton1Click(Sender: TObject);
var i: IUnknown;
   i1: IShockwaveFlash;
   hRes: HResult;
const IID_IShockwaveFlash: TGUID = "{D27CDB6C-AE6D-11CF-96B8-444553540000}";
     IID_IUnknown: TGUID = "{00000000-0000-0000-C000-000000000046}";
begin
 hRes := IUnknown(ShockwaveFlash1).QueryInterface(IID_IUnknown, i);
 hRes := i.QueryInterface(IID_IShockwaveFlash, i1);
end;


Объясните пожалуйста неграмотному, почему второй вызов дает ошибку ($80004002). И как правильно получить указатель на
нужный интерфейс.

И попутно еще один вопрос. Почему
...
ShockwaveFlash1.Movie := "c:\123.swf";
ShockwaveFlash1.Play;
...
Работает, а
...
str: WideString;
...
str := "c:\123.swf";
ShockwaveFlash1.Movie := LoadMovie(0, str);
ShockwaveFlash1.Playж
...
Не работает
???

Спасибо.

---

← →
Набережных С. ©   (2005-02-24 21:19) [1]

$80004002 - Interface not supported
Нет у него такого интерфейса
ShockwaveFlash1 - дельфийская обертка? Ну дак откуда он у нее возьмется.
ShockwaveFlash1.DefaultInterface?

---

← →
ki11er   (2005-02-24 22:10) [2]

>Ну дак откуда он у нее возьмется.
Что значит откуда?  Поясните пожалуйста. Я никогда раньше подобные вещи на Дэлфи не делал...  Но вызвает же он как-то
функцию Play именно того интерфейса, который я пытаюсь получить.
Что-то я не догоняю...

Спасибо.

---

← →
ki11er   (2005-02-24 22:15) [3]

Хмм. Кажется понял, посмотрев на объявление класса
TShockwaveFlash. Но зачем так хитро сделано? Кто-нибудь может
пояснить? И в чем разница между ControlInterface и DefaultInterface?

спасибо.

---

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

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

Наверх

Память: 0.44 MB
Время: 0.041 c