Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 18.07.2012, 11:55
Riota Riota вне форума
Прохожий
 
Регистрация: 18.07.2012
Сообщения: 2
Репутация: 10
По умолчанию Регистрация com-объекта через командную строку

Нужно зарегистрировать com объект через командную строку,сom объект выполнен в виде exe файла,если бы это был dll то через команду regsvr32 можно зарегистрировать компонент в системе,а как exe файл регистрируется в системе,через delphi (run-activex register не подходит),причем на delphi7 все работает,а на xe2 нет
Ответить с цитированием
  #2  
Старый 18.07.2012, 15:05
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
По умолчанию

посмотри что пишется в реестр Delphi 7 и найди отличия от XE2.
__________________
Пишу программы за еду.
__________________
Ответить с цитированием
  #3  
Старый 19.07.2012, 06:38
Riota Riota вне форума
Прохожий
 
Регистрация: 18.07.2012
Сообщения: 2
Репутация: 10
Восклицание

посмотрела как и куда записываются гуиды у com сервера http://blog.not-a-kernel-guy.com/2007/04/18/173 не помогло

проблема в том что он должен автоматически регистрироваться через командную строку вот код
procedure ServerRegister;
var
stGUID: string;
begin
try
CoInitialize(nil);
stGUID := GUIDToString(CLASS_SferaAppServer);
with TRegistry.Create do
try
RootKey := HKEY_CLASSES_ROOT;
if not OpenKey('\CLSID\' + stGUID, True) then
exit;
WriteString('AppID', stGUID);
CloseKey;
if not OpenKey('\AppID\' + stGUID, True) then
exit;
WriteString('', 'Sfera Application Server');
WriteString('RunAs', 'Interactive User');
CloseKey;
finally
Free;
end;
if CreateComponentCategory(ID_SFERACAT , 'OPC Daten Server V2.0') <> 0 then exit;
if RegisterCLSIDInCategory(CLASS_Sfera AppServer, ID_SFERACAT) <> 0 then exit;
ToLog('Регистрация сервера выполнена');
MessageBox(0, 'Регистрация сервера выполнена', 'Sfera Application Server', 0);
except
ErrorHandler(Exception(ExceptObject ).Message, 'ServerRegister');
end;
end;
вот почему он на xe2 не работает загадка,и реестр я уже изрядно засрала поэтому посмотреть что он записывает проблемно,unregister не удаляет раннее созданные в ветке записи о гуидах com объекта
Ответить с цитированием
  #4  
Старый 19.07.2012, 08:20
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
По умолчанию

Цитата:
Сообщение от Riota
реестр я уже изрядно засрала поэтому посмотреть что он записывает проблемно
VirtualBox
__________________
Пишу программы за еду.
__________________
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 01:00.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter