Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Вызвать функцию, из библиотеки 
:(
    Опции темы
Лена
Дата 19.9.2009, 20:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 879
Регистрация: 16.8.2006

Репутация: 11
Всего: 11



У меня есть библиотека, в которой согласно документации есть функция:
CString ZonePoiEncode(LPCTSTR PointString, short PointCount)

Как получить на нее указатель и вызвать? Так не работает:

Код

void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{

 typedef char (__import * FType(char *, int));
 FType * C_D;

 HINSTANCE dllInstance;
 dllInstance = LoadLibrary("ZoneCode.ocx");

 if(dllInstance)
   C_D = (FType *)GetProcAddress(dllInstance,"ZonePoiEncode");
 if(C_D)//почему-то false
   Edit1->Text = C_D("50.444825,30.448608,50.47892,30.521393,50.420331,30.551605",3);

 FreeLibrary(dllInstance);
 C_D = NULL;
}


Или эту библиотеку надо регистрировать в системе? Как достать функцию ZonePoiEncode?
Файл библиотеки и описание прилагаю. Спасибо.

Присоединённый файл ( Кол-во скачиваний: 9 )
Присоединённый файл  ZoneCode.zip 25,99 Kb
PM MAIL   Вверх
bems
Дата 19.9.2009, 20:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 1
Всего: 88



посмотри каким-нить дампером таблицы экспорта есть ли она там, и если есть - точно как называется

Добавлено через 5 минут и 45 секунд
ааа, ну так и есть. Нету ее там. Это ж ocx

Твоя функция вызывается через интерфейс '{2EFB7C1F-849A-4276-9B2E-F8B87688905D}'

Добавлено через 9 минут и 17 секунд
меню component - import component

Там выбираешь Import type library.

В конце мастера нужно выбрать создание юнита.

Читаешь юнит, и начинаешь понимать как добраться до метода.


--------------------
Обижено школьников: 8
PM MAIL   Вверх
Лена
Дата 22.9.2009, 15:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 879
Регистрация: 16.8.2006

Репутация: 11
Всего: 11



Большое спасибо!  smile 
Буду пробывать.
PM MAIL   Вверх
mrbrooks
Дата 22.9.2009, 15:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


трололомен
****


Профиль
Группа: Завсегдатай
Сообщений: 4259
Регистрация: 4.10.2006
Где: Дол Гулдур

Репутация: 167
Всего: 306



Цитата(Лена @  19.9.2009,  20:29 Найти цитируемый пост)
У меня есть библиотека, в которой согласно документации есть функция:
CString ZonePoiEncode(LPCTSTR PointString, short PointCount)

настораживает возвращаемое значение. а тебя? 

PM MAIL   Вверх
Лена
Дата 22.9.2009, 18:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 879
Регистрация: 16.8.2006

Репутация: 11
Всего: 11



Цитата(mrbrooks @  22.9.2009,  15:20 Найти цитируемый пост)
настораживает возвращаемое значение. а тебя? 


А что настараживает? 
Функция согласно документации к устройству принимает массив координат как строку и кол-во этих координат. После обработки функция возвращает кодированную строку. Эта строка шлется устройству.
Судя по описанию разработчики создовали этот ОСХ в VC++. Когда я попросила код функции, мне прислали по почте этот ОСХ. Вот я и пытаюсь взять эту функцию от туда. smile 
PM MAIL   Вверх
bems
Дата 22.9.2009, 20:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 1
Всего: 88



настораживать должно то, что 
а) тебе нужно выделить строку под результат
б) метод выделит все сам, но тебе нужно освободить

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


--------------------
Обижено школьников: 8
PM MAIL   Вверх
mrbrooks
Дата 23.9.2009, 07:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


трололомен
****


Профиль
Группа: Завсегдатай
Сообщений: 4259
Регистрация: 4.10.2006
Где: Дол Гулдур

Репутация: 167
Всего: 306



Цитата(Лена @  22.9.2009,  18:48 Найти цитируемый пост)
А что настараживает? 

Настораживает то - что возвращаемое значение класс MFC. И таким образом как ты подключала - не факт что все будет кошерно.

Общеизвестно - *.ocx - это элементы управления ActiveX. Собственно он устанавливается через меню Билдера. Хотя 
bems, как я понимаю, про это и говорил  smile 
PM MAIL   Вверх
Лена
Дата 23.9.2009, 14:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 879
Регистрация: 16.8.2006

Репутация: 11
Всего: 11



Цитата(bems @  19.9.2009,  20:37 Найти цитируемый пост)
Читаешь юнит, и начинаешь понимать как добраться до метода. 


Все таки не совсем понятно.
Запустила Builder. Затем Import type library. Вижу такое объявление в ZONECODELib_TLB.h
Код

// Interface: _DZoneCode
// Flags:     (4112) Hidden Dispatchable
// GUID:      {2EFB7C1F-849A-4276-9B2E-F8B87688905D}
// *********************************************************************//
interface _DZoneCode : public TDispWrapper<IDispatch>
{
  BSTR __fastcall ZonePoiEncode(BSTR PointString, short PointCount)
  {
    _TDispID _dispid(/* ZonePoiEncode */ DISPID(1));
    TAutoArgs<2> _args;
    _args[1] = PointString /*[VT_BSTR:0]*/;
    _args[2] = PointCount /*[VT_I2:0]*/;
    OleFunction(_dispid, _args);
    return _args.GetRetVariant();
  }

Вопросы такие:
1. Мне надо научиться получить указатель на Interface: _DZoneCode и потом можно будет вызвать ZonePoiEncode?
2. А какие шаги надо сделать чтобы вызвать эту функцию из уже существующего проекта? Мне надо регистрировать этот ОСХ в Windows через regserver32 и затем добавить include ZONECODELib_TLB.h?

Можно чуть подробнее, пожалуйста, расписать правильную последовательность.

Это сообщение отредактировал(а) Лена - 23.9.2009, 14:47
PM MAIL   Вверх
xvr
Дата 24.9.2009, 11:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 7046
Регистрация: 28.8.2007
Где: Дублин, Ирландия

Репутация: 48
Всего: 223



Цитата(Лена @ 23.9.2009,  14:46)

Все таки не совсем понятно.
Запустила Builder. Затем Import type library. Вижу такое объявление в ZONECODELib_TLB.h
Код

// Interface: _DZoneCode
// Flags:     (4112) Hidden Dispatchable
// GUID:      {2EFB7C1F-849A-4276-9B2E-F8B87688905D}
// *********************************************************************//
interface _DZoneCode : public TDispWrapper<IDispatch>
{
  BSTR __fastcall ZonePoiEncode(BSTR PointString, short PointCount)

Вопросы такие:
1. Мне надо научиться получить указатель на Interface: _DZoneCode и потом можно будет вызвать ZonePoiEncode?

Его надо создать. Как то так:
Код

TAutoDriver<_DZoneCode> dzone_code;
dzone_code.Bind(CLSID_<class ID from .h file>);
dzone_code->ZonePoiEncode(...)


Цитата

2. А какие шаги надо сделать чтобы вызвать эту функцию из уже существующего проекта? Мне надо регистрировать этот ОСХ в Windows через regserver32 
Да, причем на компе пользователя, где будет выполнятся твоя программа, тоже

Цитата

и затем добавить include ZONECODELib_TLB.h?
Это только у тебя. Можно ее сгенерить один раз и включить прямо в сорцы твоей проги



Это сообщение отредактировал(а) xvr - 24.9.2009, 11:30
PM MAIL   Вверх
Лена
Дата 24.9.2009, 11:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 879
Регистрация: 16.8.2006

Репутация: 11
Всего: 11



Большое спасибо! Сейчас буду пробывать.


P.S.
Еще вроде можно вызвать через обертку Variant (в книге нашла), как то так:
Код

Variant server=CreateOleObject("тут запись из реестра просле регистрации ОСХ");
server.OleFunction("ZonePoiEncode");
только не понятно как передать парамтры в ZonePoiEncode...

PM MAIL   Вверх
xvr
Дата 24.9.2009, 11:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 7046
Регистрация: 28.8.2007
Где: Дублин, Ирландия

Репутация: 48
Всего: 223



Цитата(Лена @ 24.9.2009,  11:37)
Еще вроде можно вызвать через обертку Variant (в книге нашла), как то так:
Код

Variant server=CreateOleObject("тут запись из реестра просле регистрации ОСХ");
server.OleFunction("ZonePoiEncode");


Можно
Цитата

только не понятно как передать парамтры в ZonePoiEncode...
Так и передать - параметрами  smile 
Код

server.OleFunction("ZonePoiEncode",WideString(...),100);

PM MAIL   Вверх
Лена
Дата 24.9.2009, 12:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 879
Регистрация: 16.8.2006

Репутация: 11
Всего: 11



Спасибо!
Значит последователность такая:
1. Размещаю например мой ОСX в папке Windows и запускаю его с опцией командной строки regserver32.
2. В проект добавляю этот OCX через Import type library.
3. Пробую вызвать функцию ZonePoiEncode.


PM MAIL   Вверх
Лена
Дата 24.9.2009, 12:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 879
Регистрация: 16.8.2006

Репутация: 11
Всего: 11



Я хочу со временем добавить этот ОСХ в инсталляционную программу, чтобы этот ОСХ в процессе инсталляции регистрировался в системе. Однако я хочу, чтобы при этом не было никаких дополнительных окон.
В данный момент я поместила вручную этот ОСХ в папку Windows и через меню Run запустила регистрацию:
C:\WINDOWS\ZoneCode.ocx /RegSvr32 /s
Однако окно все равно появилось (см. рис.). Как его подавлять при инсталляции?


Присоединённый файл ( Кол-во скачиваний: 6 )
Присоединённый файл  reg.gif 5,19 Kb
PM MAIL   Вверх
Alca
Дата 24.9.2009, 12:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 3993
Регистрация: 14.6.2006

Репутация: 25
Всего: 50



Код

RegSvr32 /s  "C:\WINDOWS\ZoneCode.ocx"


Добавлено @ 12:47
Код

Использование: regsvr32 [/u] [/s] [/n] [/i[:строка_команд]] DLL-файл
/u -    Отменяет регистрацию DLL
/s -    "Тихий" режим; окна сообщения не отображаются
/i -    Вызывает DllInstall, передавая параметром необязательную строку_команд,
     при использовании с ключом /u вызывает DllUnInstall
/n -    Не вызывает DllRegisterServer; это может использоваться с ключом /i


Это сообщение отредактировал(а) Alca - 24.9.2009, 12:48


--------------------
PM WWW ICQ Skype Jabber   Вверх
Лена
Дата 24.9.2009, 13:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 879
Регистрация: 16.8.2006

Репутация: 11
Всего: 11



Все ясно, спасибо.

С вызовом функции проблемы. Ругается при передче параметров. Пишет "Разрушительный сбой". 
Пробую другой вариант, тоже не помогает:
Код

Variant server = CreateOleObject("ZONECODE.ZoneCodeCtrl.1");
 TAutoArgs<2> args;
 Variant result;
 Variant result2;

 String temp = "50.444825,30.448608,50.47892,30.521393,50.420331,30.551605";
 BSTR x = SysAllocString(WideString(temp).c_bstr());
 result.vt = VT_BSTR;
 result.bstrVal = x;
 SysFreeString(x);

 short countPoint = 3;
 result2.vt = VT_I2;
 result2.iVal = countPoint;

 args[1] = result;
 args[2] = result2;

 Edit1->Text = server.OleFunction("ZonePoiEncode", static_cast<TAutoArgsBase*>(&args)); //ошибка


Что не так? smile 

Это сообщение отредактировал(а) Лена - 24.9.2009, 13:31
PM MAIL   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "С++ Builder"
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по С++ Builder обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Настоятельно рекомендуем заглянуть в DRKB (Delphi Russian Knowledge Base) - крупнейший в рунете сборник материалов по Дельфи


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Rrader.

 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | C++ Builder | Следующая тема »


 




[ Время генерации скрипта: 0.1326 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.