Пользователь

Добро пожаловать,

Регистрация или входРегистрация или вход
Потеряли пароль?Потеряли пароль?

Ник:
Пароль:

Меню сайта




Ваше мнение
Какой браузер Вы предпочитаете?

Internet Explorer
Mozilla Firefox
Opera
Netscape
Chrome
Другой


Результаты
Другие опросы

Всего голосов: 1601
Комментарии: 10


Наши партнеры



Статистика




Programming books  Download software  Documentation  Scripts  Content Managment Systems(CMS)  Templates  Icon Sets  Articles  Contacts  Voting  Site Search




Vitaly
Дата: 08.01.2010, 21:43 Сообщение №:1

Читатель

Группа: Читатель

Регистрация: 09.01.2010
Пользователь №: 355
Сообщений: 2
Пол: Нет информации
Спасибо сказали: 0 раз(а)

Предупреждений: 0
---------------------------
Предупреждений: 0 
Можно ли подключить 1С dll к Access? Надо подключить компоненту GodexEZPL.dll - печать этикеток.
Сообщение отредактировалVitaly - 08.01.2010, 21:47
Vitaly
Дата: 08.01.2010, 21:50 Сообщение №:2

Читатель

Группа: Читатель

Регистрация: 09.01.2010
Пользователь №: 355
Сообщений: 2
Пол: Нет информации
Спасибо сказали: 0 раз(а)

Предупреждений: 0
---------------------------
Предупреждений: 0 
Действую так:
Код
Declare Function CoCreateInstance Lib "ole32.dll" _
(ByRef rclsid As Byte, _
ByVal pUnkOuter As Long, _
ByVal dwClsContext As Long, _
ByRef riid As Byte, _
ByRef ppv As Any) As Long

Declare Function CLSIDFromString Lib "ole32" _
(ByVal lpsz As Any, _
ByRef pclsid As Byte) As Long
Public Function ObjectCreate(CLSID As String, IID As String) As Object

Dim myObj As Object
Dim IID_C1(15) As Byte
Dim IID_C2(15) As Byte

Call CLSIDFromString(StrPtr(CLSID), IID_C1(0))
Call CLSIDFromString(StrPtr(IID), IID_C2(0))

If Not (CoCreateInstance(IID_C1(0),0&,CLSCTX_SERVER,IID_C2(0), myObj) = 0&) Then

Set myObj = Nothing

End If

Set ObjectCreate = myObj

End Function

Private Sub Кнопка1_Click()
Dim CLSID As String, IID As String, myObj As Object

CLSID = "{5E4D3816-8A1C-4900-BE1B-C79F878035E8}"
IID = "{AB634001-F13D-11D0-A459-004095E1DAEA}"

Set myObj = ObjectCreate(CStr(CLSID), CStr(IID))
...
End Sub

Получаю : CoCreateInstance = 0& , в пошаговом режиме Access вываливатся...

//V7 AddIn 1.0 Type Library
//Version: 1.0
AddInLib;
GUID = {4F0D4571-0E7B-11D1-A486-004095E1DAEA};


//GodexEZPL Class
CoClass AddIn;
GUID = {5E4D3816-8A1C-4900-BE1B-C79F878035E8};

//IInitDone Interface
Interface IInitDone;
GUID = {AB634001-F13D-11D0-A459-004095E1DAEA};
//method Init
function Init(pConnection: IDispatch): HResult; stdcall;
//method Done
function Done: HResult; stdcall;
//method GetInfo
function GetInfo(out pInfo: ^SafeArray): HResult; stdcall;

//ILanguageExtender Interface
Interface ILanguageExtender;
GUID = {AB634003-F13D-11D0-A459-004095E1DAEA};

...
Сообщение отредактировалadmin - 13.02.2010, 20:28
Причина - Неверное оформление
deshenez
Дата: 25.07.2016, 11:19 Сообщение №:3

Новичок

Группа: Новичок

Регистрация: 10.01.2013
Пользователь №: 1908
Сообщений: 2
Пол: Нет информации
Спасибо сказали: 0 раз(а)

Предупреждений: 0
---------------------------
Предупреждений: 0 
Опана, а что это за код?
-------------
http://zdorovja.in.ua/kosookist

Сообщение отредактировалdeshenez - 25.07.2016, 11:21
Тему читают 0 чел.
Пользователи(0):
Внимание! Если у вас не получилось найти нужную информацию, используйте рубрикатор или воспользуйтесь поиском


.



книги по программированию исходники компоненты шаблоны сайтов C++ PHP Delphi скачать