Вверх ↑
Этот топик читают: Гость
Ответов: 5227
Рейтинг: 587
#1: 2008-03-25 20:12:10 ЛС | профиль | цитата
Уважаемые не подскажите где взять пример с ActiveX, не понятно как их (OCX) подключать и работать с ними?
карма: 4
Мой форум - http://hiasm.bbtalk.me/ схемы, компоненты...
0
Ответов: 2125
Рейтинг: 159
#2: 2008-03-25 21:33:16 ЛС | профиль | цитата
А какой ActiveX интересует? Нужно как минимум знать его зарегистрированное в реестре имя. Желательно знать и про его свойства и методы.
карма: 1

0
Ответов: 5227
Рейтинг: 587
#3: 2008-03-25 22:15:00 ЛС | профиль | цитата
Желательно пример с каким нибудь штатным из WINDOWS но с примером его регистации (предположим что он не зарегистрирован) и пару свойств и методов работы с ним. Есть OCX с описанием но не знаю пока с чего начать вот единственный пример который удалось найти

code_2180.txt
карма: 4
Мой форум - http://hiasm.bbtalk.me/ схемы, компоненты...
0
файлы: 1code_2180.txt [649B] [433]
Ответов: 2125
Рейтинг: 159
#4: 2008-03-25 22:20:26 ЛС | профиль | цитата
Пример у тебя есть. Задавай конкретные вопросы.
Регистрировать командой regsvr32 File.OCX, имея права администратора (или основного пользователя), есстественно.

После чего можно попробовать найти его имя в списке:

Add(MainForm,7880027,91,98)
{
Left=20
Top=105
Width=504
Height=446
BorderStyle=3
link(onCreate,5738059:doEnumKeys,[])
}
Add(Registry,5738059,140,119)
{
Key="CLSID"
Point(doEnumKeys)
Point(onEnumKey)
link(onEnumKey,12659907:doStrCat,[])
}
Add(ListBox,15968636,483,203)
{
Left=5
Top=5
Width=485
Height=380
TabOrder=1
DataType=1
Sort=0
link(onClick,3303332:doText,[])
}
Add(Registry,9660688,434,203)
{
NotEmpty=1
link(onRead,15968636:doAdd,[])
}
Add(Registry,15056806,287,189)
{
Point(doExistsKey)
Point(onExistsKey)
link(onExistsKey,12510956:doEvent,[])
}
Add(StrCat,13156511,385,203)
{
Str2="\ProgID"
link(onStrCat,9660688:doRead,[])
link(Str1,890290:Var3,[(391,177)])
}
Add(StrCat,12659907,189,126)
{
Str1="CLSID\"
link(onStrCat,13340177:doValue,[])
}
Add(Memory,13340177,238,126)
{
Default=String()
link(onData,5407421:doStrCat,[(279,132)(279,169)(81,169)(81,209)])
}
Add(StrCat,3393488,238,203)
{
Str2="\ToolboxBitmap32"
link(onStrCat,15056806:doExistsKey,[])
link(Str1,890290:Var2,[])
}
Add(IndexToChanel,12510956,336,196)
{
link(onEvent2,13156511:doStrCat,[])
}
Add(Edit,3303332,532,210)
{
Left=10
Top=395
Width=480
TabOrder=1
Text=""
}
Add(GetDataEx,890290,231,168)
{
link(Data,13340177:Value,[])
}
Add(Registry,395761,140,189)
{
Point(doExistsKey)
Point(onExistsKey)
link(onExistsKey,12737373:doEvent,[])
}
Add(StrCat,5407421,91,203)
{
Str2="\Control"
link(onStrCat,395761:doExistsKey,[])
}
Add(IndexToChanel,12737373,189,196)
{
link(onEvent2,3393488:doStrCat,[])
}

В списке имя с номером версии, обычно можно использовать без номера версии, т.е. последнюю версию.
карма: 1

0
Ответов: 5227
Рейтинг: 587
#5: 2008-03-26 05:13:46 ЛС | профиль | цитата
tsdima - спасибо большое, буду пробовать...
карма: 4
Мой форум - http://hiasm.bbtalk.me/ схемы, компоненты...
0
5
Сообщение
...
Прикрепленные файлы
(файлы не залиты)