Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Вызвать функцию, из библиотеки 
:(
    Опции темы
Лена
Дата 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   Вверх
Лена
Дата 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   Вверх
Страницы: (2) [Все] 1 2 
Ответ в темуСоздание новой темы Создание опроса
Правила форума "С++ Builder"
Rrader

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

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

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

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


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

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


 




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


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

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