Форум: "Основная";
Текущий архив: 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.038 c