delphi - Coinitialize has not been called error message -


i in process of coding console application create firewall exception main app called client.exe uploads few documents our servers via ftp. borrowed rruz code delphi 7 windows vista/7 firewall exception network locations code looks this:

program changefw;  {$apptype console}  {$r *.res}  uses   system.sysutils,   comobj;  var   execname: string;  procedure addexceptiontofirewall(const caption, executable: string); const net_fw_profile2_domain  = 1; net_fw_profile2_private = 2; net_fw_profile2_public  = 4;  net_fw_ip_protocol_tcp = 6; net_fw_action_allow    = 1; var   fwpolicy2      : olevariant;   rulesobject    : olevariant;   profile        : integer;   newrule        : olevariant; begin   profile             := net_fw_profile2_private or net_fw_profile2_public;   fwpolicy2           := createoleobject('hnetcfg.fwpolicy2');   rulesobject         := fwpolicy2.rules;   newrule             := createoleobject('hnetcfg.fwrule');   newrule.name        := caption;   newrule.description := caption;   newrule.applicationname := executable;   newrule.protocol := net_fw_ip_protocol_tcp;   newrule.enabled := true;   newrule.profiles := profile;   newrule.action := net_fw_action_allow;   rulesobject.add(newrule); end;  begin   try     { todo -ouser -cconsole main : insert code here }     execname := getcurrentdir + '\' + 'client.exe';     addexceptiontofirewall('sip inventory',execname);   except     on e: exception       writeln(e.classname, ': ', e.message);   end; end.

when execute application following error message: eoiesyserror: coinitialize has not been called, progid: “hnetcfg.fwpolicy2” idea doing wrong? please point me in right direction? thank much.

if want use com - objects have call coinitialize corresponding couninitialize.

in usual application done.
far program console program have call on own.

..... coinitialize(nil); try   try     { todo -ouser -cconsole main : insert code here }     execname := getcurrentdir + '\' + 'client.exe';     addexceptiontofirewall('sip inventory',execname);   except     on e: exception       writeln(e.classname, ': ', e.message);   end;   couninitialize; end; .....

Comments

Post a Comment

Popular posts from this blog

linux - xterm copying to CLIPBOARD using copy-selection causes automatic updating of CLIPBOARD upon mouse selection -

i've tried various ways coerce xterm (versions 285 , 292) copy selection clipboard clipboard whenever press ctrl-shift-c. promising way far has been, in ~/.xresources, put this: xterm*vt100.translations: #override \ ctrl shift <keypress> c: copy-selection(clipboard) \n\ ctrl shift <keypress> v: insert-selection(clipboard) ctrl-shift-v works perfectly, copying has nuance... if restart xterm, highlighting text puts things in primary clipboard; expected, proper, default behavior. if hit ctrl-shift-c, copies current selection clipboard clipboard. the bug, however, if highlight text after first time pressed ctrl-shift-c, you'll see highlighting copies both primary and clipboard. cannot figure out how stop xterm updating clipboard upon selection... , doesn't make sense me in first place. i said, @ specific point in time, copy selection clipboard... yet starts updating automatically upon selection after doing once... anyone have workaround...
Read more

c++ - qgraphicsview horizontal scrolling always has a vertical delta -

Image
i've subclassed qgraphicsview custom canvas used in cad application. i've reimplemented qgraphicsview::wheelevent check keyboard modifiers control key and, if control key pressed, zoom. i'm trying implement horizontal scroll when user holds shift , uses wheel. the problem i'm having horizontal scrolling always scrolls 0.279. not huge problem, hugely annoying , points else being wrong. so, here questions: is right way implement horizontal scrolling? if not, is? how eliminate delta of 0.279? thanks in advance. code , sample output below void myview::zoom(int delta) { double factor = pow(1.2, delta/abs(delta)); this->scale(factor, factor); } void myview::scrollhorizontal(int level) { qpointf center = maptoscene(viewport()->rect().center()); qdebug() << "center: " << center.x() << ", " << center.y(); centeron(qpointf(center.x() - level, center.y())); } void myview::wheelevent(qwheeleve...
Read more