powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Работа со сторонней DLL
9 сообщений из 9, страница 1 из 1
Работа со сторонней DLL
    #34845954
Zitz
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Добрый день. Подскажите пожалуйста:
есть DLL, в описании написано, цитирую: "...клиент, использующий DLL создает объект как стандартный внутрипроцессорный COM-объект..."
С чего начать? Как правильно подключить DLL и создать объект?
Fox 8
Заранее спасибо :)
...
Рейтинг: 0 / 0
Работа со сторонней DLL
    #34846093
PaulWist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
1. Если dll зарегистрирована как СОМ-сервер (regsvr32 MyServer), то в фоксе просто:

Код: plaintext
COM = createobject('MyServer.Instance') 

2. Если же не зарегистрирован, то

Код: plaintext
1.
2.
DECLARE [cFunctionType] FunctionName IN LibraryName [AS AliasName]
	[cParamType1 [@] ParamName1,
		cParamType2 [@] ParamName2, ...]

и дальше по схеме crateobject()
...
Рейтинг: 0 / 0
Работа со сторонней DLL
    #34846097
vkluch
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ну начни с WINAPI функций, как пример
http://]http://www.foxclub.ru/articles/index.php?id=23
...
Рейтинг: 0 / 0
Работа со сторонней DLL
    #34846563
Zitz
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
При попытке создания объекта пишет Определение класса не найдено :(.
Попробую еще раз и по порядку: есть файл r2barcodes.dll Нужно создать COM-объект cAddIn.
DLL зарегистрирована Пуск->Выполнить->regsvr32 "C:\Program...\r2barcodes.dll" - т.е. я так понимаю что писать Declare-dll не нужно?

В руководстве написан пример для 1С:
...
Если ЗагрузитьВнешнююКомпоненту("R2BarCodes.dll")=1; тогда
ШтрихКод=СоздатьОбъект("AddIn.R2barcodes");
Иначе
Возврат;
КонецЕсли

соответсвенно в Fox-е не понимаю что писать вместо условия :
if ? ???????????????????
cAddIn=createObject("AddIn.R2barcodes")
else
return
endif
...
Рейтинг: 0 / 0
Работа со сторонней DLL
    #34846613
PaulWist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Zitz
соответсвенно в Fox-е не понимаю что писать вместо условия :
if ? ???????????????????
cAddIn=createObject("AddIn.R2barcodes")
else
return
endif


Код: plaintext
1.
2.
3.
4.
5.
 cAddIn=createObject("AddIn.R2barcodes")
if type('cAddIn') = 'O' and not isnull(cAddIn)
? 'обьект создан'
else
     return
endif
...
Рейтинг: 0 / 0
Работа со сторонней DLL
    #34847030
Zitz
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
В предыдущем посте: При попытке создания объекта пишет: Определение класса ADDIN.R2Barcodes не найдено -
Поэтому мне нужна не проверка, создан объект или нет,а проверка так сказать загрузки внешней компоненты.
...
Рейтинг: 0 / 0
Работа со сторонней DLL
    #34847179
Никакой "загрузки" до момента попытки создать объект нету. Поэтому проверить можно только создание/несоздание объекта.
...
Рейтинг: 0 / 0
Работа со сторонней DLL
    #34847533
oleg_km
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Внешняя компонента 1С это особый вид COM, и

ЗагрузитьВнешнююКомпоненту("R2BarCodes.dll")=1; тогда
ШтрихКод=СоздатьОбъект("AddIn.R2barcodes");

не эквивалентно

COM = createobject('MyServer.Instance')

Попробуй в реестре поискать по имени файла, как правильно называется COM
...
Рейтинг: 0 / 0
Работа со сторонней DLL
    #34847604
Zitz
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Попробуй в реестре поискать по имени файла, как правильно называется COM -
уже поискала, ничего :(
...
Рейтинг: 0 / 0
9 сообщений из 9, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Работа со сторонней DLL
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]