ActiveX
"Jeremy Coulter" <[EMAIL PROTECTED]> on 09/04/99 13:41:28
Please respond to [EMAIL PROTECTED]
To: Multiple recipients of list delphi <[EMAIL PROTECTED]>
cc: (bcc: Peter Jones/Logistics&Information
Technology/Christchurch/Foodstuffs)
Subject: RE: [DUG]: CreateOLEObject Error
Cool...Thanks, But what Units do I need to include to use them ??
Cheers, Jeremy Coulter
-----Original Message-----
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]On
Behalf Of [EMAIL PROTECTED]
Sent: Friday, April 09, 1999 12:41
To: Multiple recipients of list delphi
Subject: Re: [DUG]: CreateOLEObject Error
Hi all I am trying to use an activeX dll that I got that checks NT Users
to see if they exist (and log them on if the exist).
It works fine under VB and VBScript, but when I run it in Delphi, I get
the error "CoInitialize can not been Called"
What does this mean !!! I have seen the error before, but not sure what
the error means.
Heres my code
var
fLogonObject: OLEVariant;
begin
fLogonObject:= CreateOLEObject('NTAccess.User.1');
{my other code goes here but the line above is the offending line}
fLogonObject:=Unassigned;
thanks,
Jeremy Coulter (chief software engineer)
Visual Software Solutions
Christchurch, New Zealand
PH 03-3521595
FAX 03-3521596
MOBILE 021-2150435
www.vss.co.nz
(UUEncoded file named: att1.htm follows)
(Its format is: Internet HTML )
begin 644 att1.htm
M/"%$3T-465!%($A434P@4%5"3$E#("(M+R]7,T,O+T141"!(5$U,(#0N,"!4
M<F%N<VET:6]N86PO+T5.(CX-"CQ(5$U,/CQ(14%$/@T*/$U%5$$@8V]N=&5N
M=#TB=&5X="]H=&UL.R!C:&%R<V5T/6ES;RTX.#4Y+3$B(&AT='`M97%U:78]
M0V]N=&5N="U4>7!E/@T*/$U%5$$@8V]N=&5N=#TB35-(5$U,(#4N,#`N,C`Q
M-"XR,3`B(&YA;64]1T5.15)!5$]2/CPO2$5!1#X-"CQ"3T19(&)G0V]L;W(]
M(V9F9F9F9CX-"CQ$258^/$9/3E0@8V]L;W(](S`P,#!F9B!F86-E/4%R:6%L
M('-I>F4],CX\4U!!3B`-"F-L87-S/3<Y.34W-#`P,"TP.3`T,3DY.3Y#;V]L
M+BXN5&AA;FMS+"!"=70@=VAA="!5;FET<R!D;R!)(&YE960@=&\@:6YC;'5D
M92!T;R`-"G5S92!T:&5M(#\_(#PO4U!!3CX\+T9/3E0^/"]$258^#0H\1$E6
M/CQ&3TY4(&-O;&]R/2,P,#`P9F8@9F%C93U!<FEA;"!S:7IE/3(^/%-004X@
M#0IC;&%S<STW.3DU-S0P,#`M,#DP-#$Y.3D^/"]34$%./CPO1D].5#XF;F)S
M<#L\+T1)5CX-"CQ$258^/$9/3E0@8V]L;W(](S`P,#!F9B!F86-E/4%R:6%L
M('-I>F4],CX\4U!!3B`-"F-L87-S/3<Y.34W-#`P,"TP.3`T,3DY.3Y#:&5E
M<G,L($IE<F5M>2!#;W5L=&5R/"]34$%./CPO1D].5#X\+T1)5CX-"CQ"3$]#
M2U%53U1%(`T*<W1Y;&4](D)/4D1%4BU,1494.B`C,#`P,&9F(#)P>"!S;VQI
M9#L@34%21TE.+4Q%1E0Z(#5P>#L@34%21TE.+5))1TA4.B`P<'@[(%!!1$1)
M3D<M3$5&5#H@-7!X(CX-"B`@/$1)5B!C;&%S<SU/=71L;V]K365S<V%G94AE
M861E<CX\1D].5"!F86-E/2)4:6UE<R!.97<@4F]M86XB(`T*("!S:7IE/3(^
M+2TM+2U/<FEG:6YA;"!-97-S86=E+2TM+2T\0E(^/$(^1G)O;3H\+T(^(&]W
M;F5R+61E;'!H:4!D96QP:&DN;W)G+FYZ(`T*("!;;6%I;'1O.F]W;F5R+61E
M;'!H:4!D96QP:&DN;W)G+FYZ73Q"/D]N($)E:&%L9B!/9CPO0CX@#0H@('!J
M;VYE<T!F;V]D<W1U9F9S+7-I+F-O+FYZ/$)2/CQ"/E-E;G0Z/"]"/B!&<FED
M87DL($%P<FEL(#`Y+"`Q.3DY(`T*("`Q,CHT,3Q"4CX\0CY4;SH\+T(^($UU
M;'1I<&QE(')E8VEP:65N=',@;V8@;&ES="!D96QP:&D\0E(^/$(^4W5B:F5C
M=#H\+T(^(%)E.B`-"B`@6T151UTZ($-R96%T94],14]B:F5C="!%<G)O<CQ"
M4CX\0E(^/"]$258^/"]&3TY4/@T*("`\1$E6/CQ&3TY4(&9A8V4]07)I86P@
M<VEZ93TR/CQ34$%.(&-L87-S/3,S-3,R,#<P,"TP.3`T,3DY.3Y(:2!A;&P@
M22!A;2!T<GEI;F<@#0H@('1O('5S92!A;B!A8W1I=F58(&1L;"!T:&%T($D@
M9V]T('1H870@8VAE8VMS($Y4(%5S97)S('1O('-E92!I9B!T:&5Y(&5X:7-T
M(`T*("`H86YD(&QO9R!T:&5M(&]N(&EF('1H92!E>&ES="DN/"]34$%./CPO
M1D].5#X\+T1)5CX-"B`@/$1)5CX\1D].5"!F86-E/4%R:6%L('-I>F4],CX\
M4U!!3B`-"B`@8VQA<W,],S,U,S(P-S`P+3`Y,#0Q.3DY/CPO4U!!3CX\+T9/
M3E0^)FYB<W`[/"]$258^#0H@(#Q$258^/$9/3E0@9F%C93U!<FEA;"!S:7IE
M/3(^/%-004X@8VQA<W,],S,U,S(P-S`P+3`Y,#0Q.3DY/DET('=O<FMS(&9I
M;F4@#0H@('5N9&5R)FYB<W`[5D(@86YD(%9"4V-R:7!T+"!B=70@=VAE;B!)
M(')U;B!I="!I;B!$96QP:&DL($D@9V5T('1H92!E<G)O<B`-"B`@(D-O26YI
M=&EA;&EZ92!C86X@;F]T(&)E96X@0V%L;&5D(CPO4U!!3CX\+T9/3E0^/"]$
M258^#0H@(#Q$258^/$9/3E0@9F%C93U!<FEA;"!S:7IE/3(^/%-004X@#0H@
M(&-L87-S/3,S-3,R,#<P,"TP.3`T,3DY.3X\+U-004X^/"]&3TY4/B9N8G-P
M.SPO1$E6/@T*("`\1$E6/CQ&3TY4(&9A8V4]07)I86P@<VEZ93TR/CQ34$%.
M(&-L87-S/3,S-3,R,#<P,"TP.3`T,3DY.3Y7:&%T(&1O97,@=&AI<R`-"B`@
M;65A;B`A(2$@22!H879E('-E96X@=&AE(&5R<F]R(&)E9F]R92P@8G5T(&YO
M="!S=7)E('=H870@=&AE(&5R<F]R(`T*("!M96%N<RX\+U-004X^/"]&3TY4
M/CPO1$E6/@T*("`\1$E6/CQ&3TY4(&9A8V4]07)I86P@<VEZ93TR/CQ34$%.
M(&-L87-S/3,S-3,R,#<P,"TP.3`T,3DY.3Y(97)E<R!M>2`-"B`@8V]D93PO
M4U!!3CX\+T9/3E0^/"]$258^#0H@(#Q$258^/$9/3E0@9F%C93U!<FEA;"!S
M:7IE/3(^/%-004X@#0H@(&-L87-S/3,S-3,R,#<P,"TP.3`T,3DY.3X\+U-0
M04X^/"]&3TY4/B9N8G-P.SPO1$E6/@T*("`\1$E6/CQ&3TY4(&9A8V4]07)I
M86P@<VEZ93TR/CQ34$%.(`T*("!C;&%S<STS,S4S,C`W,#`M,#DP-#$Y.3D^
M=F%R/"]34$%./CPO1D].5#X\+T1)5CX-"B`@/$1)5CX\1D].5"!F86-E/4%R
M:6%L('-I>F4],CX\4U!!3B!C;&%S<STS,S4S,C`W,#`M,#DP-#$Y.3D^)FYB
M<W`[/$9/3E0@#0H@(&9A8V4]07)I86P@<VEZ93TR/CQ34$%.(&-L87-S/3,S
M-3,R,#<P,"TP.3`T,3DY.3XF;F)S<#MF3&]G;VY/8FIE8W0Z(`T*("!/3$56
M87)I86YT.SPO4U!!3CX\+T9/3E0^/"]34$%./CPO1D].5#X\+T1)5CX-"B`@
M/$1)5CX\1D].5"!F86-E/4%R:6%L('-I>F4],CX\4U!!3B!C;&%S<STS,S4S
M,C`W,#`M,#DP-#$Y.3D^/$9/3E0@9F%C93U!<FEA;"`-"B`@<VEZ93TR/CQ3
M4$%.(&-L87-S/3,S-3,R,#<P,"TP.3`T,3DY.3YB96=I;CPO4U!!3CX\+T9/
M3E0^/"]34$%./CPO1D].5#X\+T1)5CX-"B`@/$1)5CX\1D].5"!F86-E/4%R
M:6%L('-I>F4],CX\4U!!3B!C;&%S<STS,S4S,C`W,#`M,#DP-#$Y.3D^/$9/
M3E0@9F%C93U!<FEA;"`-"B`@<VEZ93TR/CQ34$%.(&-L87-S/3,S-3,R,#<P
M,"TP.3`T,3DY.3X\+U-004X^/"]&3TY4/B9N8G-P.SPO4U!!3CX\+T9/3E0^
M/$9/3E0@#0H@(&9A8V4]07)I86P@<VEZ93TR/CQ34$%.(&-L87-S/3,S-3,R
M,#<P,"TP.3`T,3DY.3YF3&]G;VY/8FIE8W0Z/2`-"B`@0W)E871E3TQ%3V)J
M96-T*"=.5$%C8V5S<RY5<V5R+C$G*3L\0E(^>VUY(&]T:&5R(&-O9&4@9V]E
M<R!H97)E(&)U="!T:&4@;&EN92`-"B`@86)O=F4@:7,@=&AE(&]F9F5N9&EN
M9R!L:6YE?3PO4U!!3CX\+T9/3E0^/"]$258^#0H@(#Q$258^/$9/3E0@9F%C
M93U!<FEA;"!S:7IE/3(^/%-004X@8VQA<W,],S,U,S(P-S`P+3`Y,#0Q.3DY
M/B9N8G-P.SQ&3TY4(`T*("!F86-E/4%R:6%L('-I>F4],CX\4U!!3B`-"B`@
M8VQA<W,],S,U,S(P-S`P+3`Y,#0Q.3DY/B9N8G-P.V9,;V=O;D]B:F5C=#H]
M56YA<W-I9VYE9#L\+U-004X^/"]&3TY4/CPO4U!!3CX\+T9/3E0^/"]$258^
M#0H@(#Q$258^/$9/3E0@9F%C93U!<FEA;"!S:7IE/3(^/%-004X@#0H@(&-L
M87-S/3,S-3,R,#<P,"TP.3`T,3DY.3X\+U-004X^/"]&3TY4/B9N8G-P.SPO
M1$E6/@T*("`\1$E6/CQ&3TY4(&9A8V4]07)I86P@<VEZ93TR/CQ34$%.(`T*
M("!C;&%S<STS,S4S,C`W,#`M,#DP-#$Y.3D^=&AA;FMS+#PO1$E6/CPO4U!!
M3CX\+T9/3E0^#0H@(#Q$258^)FYB<W`[/"]$258^#0H@(#Q$258^#0H@(#Q0
M/CQ&3TY4('-I>F4],CX\1D].5"!C;VQO<CTC9F8P,#`P/DIE<F5M>2!#;W5L
M=&5R/"]&3TY4/B`\1D].5"!C;VQO<CTC.#`X,#@P(`T*("!F86-E/2(B('-I
M>F4],3XH8VAI968@<V]F='=A<F4@96YG:6YE97(I/$)2/CPO1D].5#X\1D].
M5"!C;VQO<CTC,#`P,&9F/E9I<W5A;"`-"B`@4V]F='=A<F4@4V]L=71I;VYS
M/$)2/D-H<FES=&-H=7)C:"P@3F5W(%IE86QA;F0\0E(^4$@@,#,M,S4R,34Y
M-3Q"4CY&05@@#0H@(#`S+3,U,C$U.38\0E(^34]"24Q%(#`R,2TR,34P-#,U
M/$)2/G=W=RYV<W,N8V\N;GH@/"]&3TY4/CPO1D].5#X\+U`^/"]$258^#0H@
M(#Q$258^)FYB<W`[/"]$258^/"]"3$]#2U%53U1%/CPO0D]$63X\+TA434P^
$#0H-"CL\
`
end
---------------------------------------------------------------------------
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
Website: http://www.delphi.org.nz
