Добрый день!
Написал на С++ СОМ библиотеку.
В библиотеке всего одна функция
1.
2.
STDMETHODIMP TMyCodeBitmapGenerateImpl::GenerateMyFile(BSTR ATextToEncode,
BSTR APathToSaveFile)
Имя библиотеки MyCode_COM_Library
Библиотека зарегистрирована в системе.
Итак, попытка №1:
1.
2.
3.
4.
5.
DataString = "data123"
Filename = "D:\img.bmp"
with CreateObject("MyCode_COM_Library.TMyCodeBitmapGenerateImpl")
.GenerateMyFile(DataString,Filename)
end with
Выдает ошибку Object Required
делю на части
1.
2.
3.
4.
5.
dim ws
dim wd
Set ws = CreateObject("MyCode_COM_Library.TMyCodeBitmapGenerateImpl")
Set wd = ws.GenerateMyFile(datastring, FileName)
Ошибка та же самая.
Искал по форуму (отчего-то поиск не всегда отрабатывает :( ).
Нашел ссылку
http://www.sql.ru/forum/619196/sozdat-obekt-cherez-createobject
В VB в References подключил библиотеку
1.
2.
3.
4.
5.
6.
7.
8.
Dim wd
Dim wa As MyCodeBitmapGenerate
datastring = "data123"
FileName = "D:\img123.bmp"
wd = wa.GenerateMyFile(datastring, FileName) ' пишу так, т.к. функция возвращает int
При компиляции выделяет
и выдает ошибку Expected Function or Variable
Помогите, пожалуйста, разобраться с подключением COM библиотеки.
Спасибо.
Никогда не бойся делать то, что не умеешь.
Помни, профессионалы построили Титаник, а Ковчег любители.
