OLE

Вопросы программирования на Free Pascal, использования компилятора и утилит.

Модератор: Модераторы

IUnknown
новенький
Сообщения: 73
Зарегистрирован: 10.03.2006 13:25:02
Откуда: Донецк

Сообщение IUnknown »

О, закачал <a href='http://zero.kanet.ru/upl/@FreePascal/pasdshow.zip' target='_blank'>http://zero.kanet.ru/upl/@FreePascal/pasdshow.zip</a>
Аватара пользователя
STAKANOV
энтузиаст
Сообщения: 1069
Зарегистрирован: 14.05.2006 21:26:24
Откуда: Зеленоград

Сообщение STAKANOV »

Только как его приаттачить на форум этот архивчик-то?

если нажмешь кнопку "Цитата" сообщения или "Ответить" (внизу или верху темы), то появится соответвующее поле для загрузки файла

Так же оно поялятется когда пытаешься отредактировать старое сообщение.
Аватара пользователя
STAKANOV
энтузиаст
Сообщения: 1069
Зарегистрирован: 14.05.2006 21:26:24
Откуда: Зеленоград

Сообщение STAKANOV »

О, закачал <a href='http://zero.kanet.ru/upl/@FreePascal/pasdshow.zip' target='_blank'>http://zero.kanet.ru/upl/@FreePascal/pasdshow.zip</a>


Собирается нормально, но работать не хочет. Это точно работает на FreePascal?

Вариант с DirectX это конечно хорошо, а нет ли чего маленького и рабочего?
IUnknown
новенький
Сообщения: 73
Зарегистрирован: 10.03.2006 13:25:02
Откуда: Донецк

Сообщение IUnknown »

Странно что не хочет. Там экзешник скомпилированый FP 2.02. По идее использование такое : в командной строке dsplay <путь к файлу>. Или можно принудительно прописать в dsplay.pas вместо m_pMC.RenderFile(ParamStr(0)) что -то типа m_pMC.RenderFile('C:\mymusicfile.mp3'). Работает точно, на разных компах проверял.

Пока больше ничего нету из примеров. Их посто нелегко найти даже на С++, сами майкрософты COM без всяких оберток особо не используют.Они-то распишут все заумные интерфейсы в МСДН, а потом покажут пример как с этим управляться... с помощью MFC и ATL :o
Аватара пользователя
STAKANOV
энтузиаст
Сообщения: 1069
Зарегистрирован: 14.05.2006 21:26:24
Откуда: Зеленоград

Сообщение STAKANOV »

в командной строке dsplay <путь к файлу>.

наверно дело только в этом :D
Janus
постоялец
Сообщения: 134
Зарегистрирован: 07.11.2005 16:06:49

Сообщение Janus »

Дело в том, что не

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

m_pMC.RenderFile(ParamStr(0))

а, конечно же,

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

m_pMC.RenderFile(ParamStr(1))

ParamStr(0) - полное имя самой программы, а не первый параметр.
IUnknown
новенький
Сообщения: 73
Зарегистрирован: 10.03.2006 13:25:02
Откуда: Донецк

Сообщение IUnknown »

ParamStr(0) - полное имя самой программы, а не первый параметр


Извините, затупил :rolleyes:
Аватара пользователя
VAshot
постоялец
Сообщения: 128
Зарегистрирован: 01.11.2007 11:31:21
Откуда: Пермь

Сообщение VAshot »

s

Добавлено спустя 14 часов 27 минут 22 секунды:
Ерунда какая-то. Написал сообщение, исправил, всё отображалось, а после оно затёрлось буквой "s"..... :(


Вопрос был такой, кто-нибудь может поделиться демонстрационным проектом?
На внутренней реализации (после создания объекта вылетает ошибка "Member not found", даже на примере создания листа Excel)
или по средствам MgOLE2forFPC (пример работает, но при попытке откомпилировать в Лазарус вылеает ошибка переопределения функций).

Lazarus 0.9.25 от 16.04.08
Ответить