Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.11.14;
Скачать: CL | DM;

Вниз

проблема с ActiveKOL, точнее с KOLComObj   Найти похожие ветки 

 
Max Kozlov   (2004-04-22 17:57) [0]

в readme:
- In v1.1.106, events handling fixed (by Alexey Izyumov).
- In v2.0.160, Variants used for case of Delphi6 and higher.

а variants, однако, использует SysUtils. так что размер вылезает за сотню кило сразу.

но не это главное. главная проблема тут:
простенькая программа проверки активности ActiveDesktop"а:

function IsActiveDesktopEnable: Boolean;
const
 CLSID_ActiveDesktop: TGUID = "{75048700-EF1F-11D0-9888-006097DEACF9}";
var
 ActiveDesk: IActiveDesktop;
 ComponentsOpt: TComponentsOpt;
begin
 Result:=False;
 try
   ActiveDesk := CreateComObject(CLSID_ActiveDesktop) as IActiveDesktop;
 except
   on e: Exception do begin
     ShowMessage(e.Message);
     Exit;
   end;
 end;
 ZeroMemory(@ComponentsOpt, SizeOf(TComponentsOpt));
 ComponentsOpt.dwSize := SizeOf(TComponentsOpt);
 ActiveDesk.GetDesktopItemOptions(ComponentsOpt, 0);
 Result := ComponentsOpt.fActiveDesktop;
end;

сразу же генерит Exception(ole error -214722008) на CreateComObject()

аналогичный текст на VCL легко работает.

если использовать ComObj вместо KOLComObj то говорит, что CoInitialize has not been called (кстати с ним размер меньше :)

что чинить ?


 
Max Kozlov   (2004-04-22 19:23) [1]

... однако если в начале вызвать CoInitialize(nil), всё действительно заработало :)
но блин предупреждать надо где-нить...

ну и проблема с Variants осталась.
под D7 программа с KOLComObj занимает кил на 5 больше, чем с ComObj :)
может пора сделать KolVariants ??



Страницы: 1 вся ветка

Текущий архив: 2004.11.14;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.114 c
9-1088316706
X-Disa
2004-06-27 10:11
2004.11.14
Asteroid Killer


1-1099319513
alexa
2004-11-01 17:31
2004.11.14
INI файлы


3-1098106449
Vir
2004-10-18 17:34
2004.11.14
mssql+odbc+нестандартный порт


1-1098890179
ИМХО
2004-10-27 19:16
2004.11.14
Папка C: WINDOWS Application Data


6-1094142820
masqito
2004-09-02 20:33
2004.11.14
NETBIOS и IP