VPF::ActiveX - Форум программистов

dser

Дата 8.2.2003, 22:54 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 33
Регистрация: 3.2.2003
Где: Украина Харьковск ая обл.

Репутация: нет
Всего: нет

Как зарегистрировать в Win98/WinNT/WinXP компоненты ActiveX, в частности компонент F1Book со станицы компонент ActiveX.

Vit

Дата 8.2.2003, 22:57 (ссылка)

(нет голосов)

Загрузка ...

Vitaly Nevzorov

Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

Репутация: 48
Всего: 207

запустить "Regsvr32.exe имя_файла" из каталога c:\windows\system(32)

--------------------

With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru

stab

Дата 10.2.2003, 02:08 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Экс. модератор
Сообщений: 1839
Регистрация: 1.1.2003

Репутация: 14
Всего: 48

Vit может этот вопрос уже поместить на верх?

--------------------

6, 6, 6 - the number of the beast.

Vit

Дата 10.2.2003, 05:43 (ссылка)

(нет голосов)

Загрузка ...

Vitaly Nevzorov

Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

Репутация: 48
Всего: 207

Помещу обязательно в FAQ, пока жду Админа, когда он доработает FAQ (нужен как минимум быстрый поиск по нему), как только бедет готов, то я переброшу ответы за последний месяц и этот в том числе.

--------------------

Fantasist

Дата 11.2.2003, 01:51 (ссылка)

(нет голосов)

Загрузка ...

Лентяй

Профиль
Группа: Участник Клуба
Сообщений: 1517
Регистрация: 24.3.2002

Репутация: нет
Всего: 41

Давайте тогда и еще пару способов добавим:

1. Регистрация ActiveX:

Код


function RegActiveX(FileName:string):HRESULT;
var
   hMod:Integer;
   RegProc:function:HRESULT; //HRESULT = Longint
begin
   hMod:=LoadLibrary(FileName);
   if hMod=0 then
      raise Exception.Create('Unable to load library"'+FileName+'". GetLastError = '+IntToStr(GetLastError));
 
   RegProc:=GetProcAddress(hMod,'DllRegisterServer');
   if RegProc=nil then
      raise Exception.Create('Unable to load "DllRegisterServer" function from "'+FileName+'". GetLastError = '+IntToStr(GetLastError));
 
   Result:=RegProc;
end;

2. Регистрация Type Library:

Код


procedure RegisterTypeLibrary(FileName:string);
var
  Name: WideString;
  HelpPath: WideString;
  TypeLib: ITypeLib;
begin
  if LoadTypeLib(PWideChar(WideString(FileName)), TypeLib)=S_OK then
  begin
    Name := FileName;
    HelpPath := ExtractFilePath(ModuleName);
    RegisterTypeLib(TypeLib, PWideChar(Name), PWideChar(HelpPath));
  end;
end;

Здесь используется интерфейс ITypeLib и API функция RegisterTypeLib. И то и другое объявленно в модуле ActiveX, если я не ошибаюсь.

Hint: если вы регистрируете библиотеку типов изнутри модулчя, то его имя можно получить с помощью следующей функции:

Цитата

function GetModuleFileName: string;
var
Buffer: array[0..261] of Char;
begin
SetString(Result, Buffer, Windows.GetModuleFileName(HInstance,
Buffer, SizeOf(Buffer)));
end;

--------------------

Волны гасят ветер...

dser

Дата 11.2.2003, 07:09 (ссылка)

(нет голосов)

Загрузка ...

Спасибо, попробую.

Medved

Дата 12.2.2003, 03:04 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 7209
Регистрация: 15.9.2002
Где: Kazakhstan, Astan a

Репутация: 14
Всего: 154

вот собственно говоря http://forum.vingrad.ru/index.php?act=ST&f=11&t=5697

--------------------

http://extreme.sport-express.ru/
...и неважно сколько падал, важно сколько ты вставал...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »