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

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

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

Ник:
Пароль:

Меню сайта




Ваше мнение
Какой язык программирования вы используете ?

ASP
Delphi
C/C++
Basic
PHP
Pascal
Java
Другой


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

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


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



Статистика




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




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

Читатель

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

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

Предупреждений: 0
---------------------------
Предупреждений: 0 
Можно ли подключить 1С dll к Access? Надо подключить компоненту GodexEZPL.dll - печать этикеток.
Сообщение отредактировалVitaly - 09.01.2010, 08:47
Vitaly
Дата: 09.01.2010, 08: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 - 14.02.2010, 07:28
Причина - Неверное оформление
deshenez
Дата: 25.07.2016, 21:19 Сообщение №:3

Новичок

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

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

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

Сообщение отредактировалdeshenez - 25.07.2016, 21:21
Marysocatei
Дата: 13.07.2018, 09:07 Сообщение №:4

Новичок

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

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

Предупреждений: 0
---------------------------
Предупреждений: 0 
by Pink Floyd in MP3 format.
life goods, thanks to an integration with digital gift card provider Gyft.
Simple SkyBlock Addon Mod 1.
Internet Component Download is a system service for downloading and installing software from Web sites on the Internet and intranets.
first visit to the U.
roo, Playa del Carmen, 77710, Mexico.
was created in 1947.
Gree Aircon, Hurom, Forever 21, Ace Hardware, Ansons.
Tbdress is a best place to buy Jumpsuits.
We serve Yonkers, NY; New Rochelle, NY; Norwalk, CT; and beyond!
such as emerging markets and currency exchange risk.
does not have a coin counting machine.
Instagram Facebook Page Tab.
from Yahoo Finance or anywhere on Yahoo.
end suite of solutions from SAP can help you transform your business.
video with his wife.
inch square screen with full HD capabilities.
Lyrics for the song The Breath You Take by George Strait.
base price, or silver value, you need to know how many ounces of the precious metal it contains.
How Much is My House Worth?

<a href=http://l-time.net/load/good-movies-to-watch-on-netflix-or-hulu/coin-bezels-wholesale.php>coin bezels wholesale</a>
<a href=http://nlcupc.com/wordpress/map79.php>nicehash calculator</a>
<a href=http://medinal.com.br/wp-includes/map38.php>argos coins</a>
<a href=http://sometimesometimes.com/download/meaning-bitcoins/are-old-european-coins-worth-anything.php>are old european coins worth anything</a>
<a href=http://pakettidung.com/wp-includes/current-gold-sell-prices/buying-bitcoins-anonymously.php>buying bitcoins anonymously</a>

(@!!!)
Тему читают 0 чел.
Пользователи(0):
Внимание! Если у вас не получилось найти нужную информацию, используйте рубрикатор или воспользуйтесь поиском


.



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