OLE

[STAKANOV]

Код: Выделить всё

program speech;
uses
  windows,comobj,ActiveX;
var
  voice:OLEVariant;
begin
  CoInitialize(nil);
  voice:=CreateOLEObject('SAPI.SpVoice');
  voice.Speak('Hello',0);
end.

при компиляции выдает

speech.pas(9,8) Error: Illegal expression
speech.pas(9,8) Fatal: Syntax error, ";" expected but "identifier SPEAK" found

Наверно что-еще надо указать (-Mdelphi не помогает)

[STAKANOV]

Кажется это только в версии 2.2 будет работать

[Иван Шихалев]

Кажется это только в версии 2.2 будет работать

Совершенно верно. По крайней мере — не раньше.

[STAKANOV]

Но модули comobj,ActiveX приствуют ....
Есть где-нибудь инфа(с примерами) по работе с OLE на FreePascal ?

[Иван Шихалев]

Должно работать через интерфейсы просто... Но ни диспинтерфейсов, ни автоматизации через варианты пока нетути.

[STAKANOV]

Должно работать через интерфейсы просто... Но ни диспинтерфейсов, ни автоматизации через варианты пока нетути.

я вот об этом и подумал, но совершенно не могу найти ни документации ни примеров

[IUnknown]

В модуле ComObj,Ole2 вообще отсутствует реализация чего-либо. Я тут недавно исправил это упущение, но... оказалось действительно через варианты не хотит работать. Есть в таком случае 2 выхода
1. Работать непосредственно через VTBL и IUnknown. В этом случае программисту надо закладывать самому в свой модуль доступ к интерфейсам. Если интерфейсов сотни 2, то это конечно тяжко Зато этот способ самый быстрый в плане производительности и дает возможность компилятору контролировать большинство типов.
2. Работать c IDispatch. Достоинства - достаточно правльно реализовать метод Invoke чтобы получить взможность вызвать любой метод того же Word например. Этот способ реализован в Делфи и Бейсике. Недостаток - тормознутость, может возникнуть большое кол-во ошибок в рантайме, и еще можно ощутить всю радость работы с маловразумительными типами Com.

Вот теперь не знаю стоит ли браться за реализацию всего этого, а если да, то какой способ лучше. :unsure: Мож кто присоветует что-то...

[STAKANOV]

1. Работать непосредственно через VTBL и IUnknown. В этом случае программисту надо закладывать самому в свой модуль доступ к интерфейсам. Если интерфейсов сотни 2, то это конечно тяжко  Зато этот способ самый быстрый в плане производительности и дает возможность компилятору контролировать большинство типов.

есть где пример или описание как это сделать?

[IUnknown]

Минимальный пример есть в МСДН, есть еще у меня самодельный модуль для работы с Word, могу поделиться, но не раньше понедельника (винчестер осыпался, так что может еще и по памяти придется восстанавливать)

[STAKANOV]

Минимальный пример есть в МСДН, есть еще у меня самодельный модуль для работы с Word, могу поделиться, но не раньше понедельника (винчестер осыпался, так что может еще и по памяти придется восстанавливать)

В МСДН все на Си, если с обчнным АПИ это не важно, то здесь я не уверен. Хотя если я не прав, то мне просто надо взять книжку по OLE из соседней комнаты. :rolleyes:

А вот примерчик маленький на FreePascal было бы самое оно.

У меня тут был пример из Delphi для работы со SpeechAPI, точнее даже пример + модуль с уже определенными классами. Все даже собиралось без проблем. Только вот не работало. Оказалось в используемых для работы с OLE модулях fpc в реализации методов только генерация run-time error. Это заставило меня думать, что в fpc работа с OLE вообще не реализована, даже через IUnknown.

Вот модуль если кому интересно. Только он не работает.

[IUnknown]

Вот простейший примерчик на паскале сделал вчера. Собственно проигрывает звуковой файл через DirectShow. Разумеется пример рабочий и и работа только через интерфейсы. Только как его приаттачить на форум этот архивчик-то?

[GigoVich]

IUnknown, спаситель мой... я тоже пример работы с интерфейсами искал. Дома талмуд валяется о 600 страницах, но руки до него никак не дотянутся. Плиз аттач пример, ну ил если не трудно будет слей мне на \[EMAIL=gigovich@yandex.ru\]ящик\[/EMAIL\]. На дельфях во всю IE юзаю, когда-то чисто на интерфейсах делал потом обленился и начал варианты юзать... окончательно всё забыл...

[IUnknown]

Блин, на форум аттачить не могу, гугловкий ящик ругается на вложение типа zip (illegal attachment) :blink:

[Janus]

Кидай сюда: <a href='http://zero.kanet.ru/upload/index.php?page=/@FreePascal' target='_blank'>http://zero.kanet.ru/upload/index.php?page=/@FreePascal</a>

[IUnknown]

В вообще для создания документов офиса не обязательна возня с Automation.
Можно пойти на МСДН почитать схему по нужному продукту (это обычный xml) и вооружившись подходящим xml парсером можно создавать полноценные документы без наличия самого офиса, каких-то библиотек, запутанных COM-интерфейсов.
Например документы OpenOffice - как раз и есть по сути xml файлы упакованные каким-то алгоритмом (7zip их легко распакует).