Поиск:

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


Опытный
**


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

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



Попытка номер 2:


Код

 _DZoneCodeDisp dispServer;
  dispServer.BindDefault();
  Edit1->Text = dispServer.ZonePoiEncode(WideString(temp),3);



Ошибка:
[ILINK32 Error] Error: Unresolved external 'Zonecodelib_tlb::CLSID_ZoneCode' referenced from E:\OCX\RELEASE_BUILD\UNITOCX.OBJ

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


Эксперт
****


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

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



SysFreeString(x); в строке 10 разрушает BSTR строку, которая помещена в Variant result. Убери SysFreeString вообще.
Оригинальный вариант с параметрами должен работать. Попробуй вместо WideString подать литерал
Код

server.OleFunction("ZonePoiEncode",L"50.444825,30.448608,50.47892,30.521393,50.420331,30.551605",3);

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

Добавлено через 6 минут и 51 секунду
Цитата(Лена @ 24.9.2009,  15:09)
Попытка номер 2:


Код

 _DZoneCodeDisp dispServer;
  dispServer.BindDefault();
  Edit1->Text = dispServer.ZonePoiEncode(WideString(temp),3);



Ошибка:
[ILINK32 Error] Error: Unresolved external 'Zonecodelib_tlb::CLSID_ZoneCode' referenced from E:\OCX\RELEASE_BUILD\UNITOCX.OBJ

Как исправить?

Нужно добавить в проект сгенеренные tlibimp *.cpp файлы

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


Опытный
**


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

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



Попробовала, не помогает. Ошибка "разрушительный сбой" и попадаю в файл sysvari.h:
Код

template <class P1, class P2>
  Variant Variant::OleFunction(const String& name, P1 p1, P2 p2)
  {
    TAutoArgs<2> args;
    args[1] = p1;  args[2] = p2;
    return OleFunction(name, static_cast<TAutoArgsBase*>(&args));//cюда
  }



Вот еще такой вариант придумала. Исключения нет, но где-то ошибка т.к. все время вовращает 0
Код

CLSID clsid;
  CLSIDFromProgID(WideString("ZONECODE.ZoneCodeCtrl.1"),&clsid);
  _di_IUnknown pDispU = CreateComObject(clsid);
  IDispatch * pInterfaceIDiapatch = NULL;
  if(0 == (pDispU->QueryInterface(IID_IDispatch,(LPVOID*)&pInterfaceIDiapatch)) && (pInterfaceIDiapatch != NULL))
   {
    WideString ws = WideString ("ZonePoiEncode");
    OLECHAR FAR* szMember  = ws;

    HRESULT hresult;
    DISPID dispid;
    hresult = pInterfaceIDiapatch->GetIDsOfNames(IID_NULL, &szMember, 1,LOCALE_SYSTEM_DEFAULT, &dispid);

    DISPPARAMS dispparam;
    memset(&dispparam, 0, sizeof(dispparam));
    dispparam.cArgs=2;
    dispparam.rgvarg=new VARIANTARG[2];
    dispparam.rgvarg[0].vt=VT_I2;
    short countPoint = 5;
    dispparam.rgvarg[0].iVal=countPoint;
    dispparam.rgvarg[1].vt=VT_BSTR;
    dispparam.rgvarg[1].bstrVal=::SysAllocString(L"121.64429,25.06125,121.64569,25.05905,121.64936,25.05931,121.64953,25.06078,121.64845,25.06244");


    VARIANT result;
    VariantInit( &result);


    hresult = pInterfaceIDiapatch->Invoke(
      dispid,
      IID_NULL,
      LOCALE_SYSTEM_DEFAULT,
      DISPATCH_METHOD,
      &dispparam, &result, NULL, 0);

      Edit1->Text = result.lVal;

         SysFreeString(dispparam.rgvarg[1].bstrVal);

         delete [] dispparam.rgvarg;

         pInterfaceIDiapatch->Release();


   }


Никак не получается. smile 
PM MAIL   Вверх
xvr
Дата 25.9.2009, 07:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

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



Цитата(Лена @ 24.9.2009,  21:21)
Попробовала, не помогает. Ошибка "разрушительный сбой" и попадаю в файл sysvari.h:

Попробуй в 1й параметр вместо WideString() передать WideString().Detach()

Цитата

Вот еще такой вариант придумала. Исключения нет, но где-то ошибка т.к. все время вовращает 0
А это нормально - параметры для invoke передаются задом-наперед. Т.е. вместо этого
Код

    dispparam.rgvarg[0].vt=VT_I2;
    short countPoint = 5;
    dispparam.rgvarg[0].iVal=countPoint;
    dispparam.rgvarg[1].vt=VT_BSTR;
    dispparam.rgvarg[1].bstrVal=::SysAllocString(L"121.64429,25.06125,121.64569,25.05905,121.64936,25.05931,121.64953,25.06078,121.64845,25.06244");
надо писать
Код

    dispparam.rgvarg[1].vt=VT_I2;
    short countPoint = 5;
    dispparam.rgvarg[1].iVal=countPoint;
    dispparam.rgvarg[0].vt=VT_BSTR;
    dispparam.rgvarg[0].bstrVal=::SysAllocString(L"121.64429,25.06125,121.64569,25.05905,121.64936,25.05931,121.64953,25.06078,121.64845,25.06244");


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


Опытный
**


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

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



Заработало другим способом. smile 
Импортируем OCX (import type library) в наш проект, при этом выбираем add unit to XXX.bdsproj. Далее в ZONECODELib_OCX.h находим класс TZoneCode:
Код

include "ZONECODELib_OCX.h"
....
__fastcall TForm1::TForm1(TComponent* Owner)
   : TForm(Owner)
{
   CoInitialize(NULL);
}
//---------------------------------------------------------------------------
void __fastcall TForm55::Button1Click(TObject *Sender)
{
   TZoneCode *lpZone = new TZoneCode(this);
   lpZone->AboutBox();
   WideString temp = "50.444825,30.448608,50.47892,30.521393,50.420331,30.551605";
   LPWSTR lpRes = lpZone->ZonePoiEncode(temp.c_bstr(), 3);   
   delete lpZone; 
}

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


Опытный
**


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

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



Доп.вопрос:
надо ли добавлять очистку:
SysFreeString(lpRes);

Code Guard молчит в обоих случаях и если есть SysFreeString(lpRes) и если нет.
Так как правильнее?
PM MAIL   Вверх
xvr
Дата 25.9.2009, 16:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

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



Цитата(Лена @ 25.9.2009,  14:19)
Доп.вопрос:
надо ли добавлять очистку:
SysFreeString(lpRes);

Да

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


Опытный
**


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

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



А если так написать, то что освобождать?
Код

   TZoneCode *lpZone = new TZoneCode(this);
   //lpZone->AboutBox();
   WideString temp = "50.444825,30.448608,50.47892,30.521393,50.420331,30.551605";
   Edit1->Text = lpZone->ZonePoiEncode(temp.c_bstr(), 3);   
   delete lpZone; 



2.
И все таки я так и не поняла, почему не работает вариант описанный ниже? Умные книги, говорят, что должно работать, однако не работает...
Код

WideString temp = "50.444825,30.448608,50.47892,30.521393,50.420331,30.551605";
Variant server=CreateOleObject("ZONECODE.ZoneCodeCtrl.1");
Edit1->Text = server.OleFunction("ZonePoiEncode",WideString(temp),3);

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


Эксперт
****


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

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



Цитата(Лена @ 25.9.2009,  21:06)
А если так написать, то что освобождать?
Код

   TZoneCode *lpZone = new TZoneCode(this);
   //lpZone->AboutBox();
   WideString temp = "50.444825,30.448608,50.47892,30.521393,50.420331,30.551605";
   Edit1->Text = lpZone->ZonePoiEncode(temp.c_bstr(), 3);   
   delete lpZone; 




Ничего, будет утечка памяти из под строки  smile 

Цитата

И все таки я так и не поняла, почему не работает вариант описанный ниже? Умные книги, говорят, что должно работать, однако не работает...
Код

WideString temp = "50.444825,30.448608,50.47892,30.521393,50.420331,30.551605";
Variant server=CreateOleObject("ZONECODE.ZoneCodeCtrl.1");
Edit1->Text = server.OleFunction("ZonePoiEncode",WideString(temp),3);

Судя по всему бедную строку удаляют 2 раза - один раз в деструкторе WideString, второй - в деструкторе Variant'а (параметр в OleFunction это именно он)
А так тоже ломается?
Цитата

Edit1->Text = server.OleFunction("ZonePoiEncode",temp.Detach(),3);


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


Опытный
**


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

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



Цитата(xvr @  25.9.2009,  21:49 Найти цитируемый пост)
Edit1->Text = server.OleFunction("ZonePoiEncode",temp.Detach(),3);



Код

WideString temp = "50.444825,30.448608,50.47892,30.521393,50.420331,30.551605";
  Variant server=CreateOleObject("ZONECODE.ZoneCodeCtrl.1");
  //if(server != NULL)
   Edit1->Text = server.OleFunction("ZonePoiEncode",temp.Detach(),3);


На последней строке возникает AV.



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


Эксперт
****


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

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



Цитата(Лена @ 25.9.2009,  22:03)
Цитата(xvr @  25.9.2009,  21:49 Найти цитируемый пост)
Edit1->Text = server.OleFunction("ZonePoiEncode",temp.Detach(),3);



Код

WideString temp = "50.444825,30.448608,50.47892,30.521393,50.420331,30.551605";
  Variant server=CreateOleObject("ZONECODE.ZoneCodeCtrl.1");
  //if(server != NULL)
   Edit1->Text = server.OleFunction("ZonePoiEncode",temp.Detach(),3);


На последней строке возникает AV.

попробуй поменять местами параметры, похоже тут они тоже задом-наперед передаются
Код

server.OleFunction("ZonePoiEncode",3,temp.Detach());

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


Опытный
**


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

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



Цитата(xvr @  26.9.2009,  16:40 Найти цитируемый пост)
попробуй поменять местами параметры, похоже тут они тоже задом-наперед передаются


Не помогло. Тоже AV.  

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


Эксперт
****


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

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



Цитата(Лена @ 26.9.2009,  20:28)
Цитата(xvr @  26.9.2009,  16:40 Найти цитируемый пост)
попробуй поменять местами параметры, похоже тут они тоже задом-наперед передаются


Не помогло. Тоже AV.

Увы, тогда только отладчик  smile 
PM MAIL   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "С++ Builder"
Rrader

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

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

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

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


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

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


 




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


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

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