Try calling CoInitialize(Nil) first and make sure you call CoUninitialize
before exiting. You can also try OLEInitialize and OLEUninitialize.
These are called during application.initialize but (I think) only if the
app is an automation server. Also, if you are doing this in your won
thread, then you must call the coinitialize yourself.
"Jeremy Coulter" <[EMAIL PROTECTED]> on 09/04/99 13:12:13
Please respond to [EMAIL PROTECTED]
To: Multiple recipients of list delphi <[EMAIL PROTECTED]>
cc: (bcc: Peter Jones/Logistics&Information
Technology/Christchurch/Foodstuffs)
Subject: [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@9F%C93U!<FEA;"!S:7IE/3(^/%-004X@
M8VQA<W,],S,U,S(P-S`P+3`Y,#0Q.3DY/DAI(&%L;"!)(&%M('1R>6EN9R`-
M"G1O('5S92!A;B!A8W1I=F58(&1L;"!T:&%T($D@9V]T('1H870@8VAE8VMS
M($Y4(%5S97)S('1O('-E92!I9B!T:&5Y(&5X:7-T("AA;F0@#0IL;V<@=&AE
M;2!O;B!I9B!T:&4@97AI<W0I+CPO4U!!3CX\+T9/3E0^/"]$258^#0H\1$E6
M/CQ&3TY4(&9A8V4]07)I86P@<VEZ93TR/CQ34$%.(`T*8VQA<W,],S,U,S(P
M-S`P+3`Y,#0Q.3DY/CPO4U!!3CX\+T9/3E0^)FYB<W`[/"]$258^#0H\1$E6
M/CQ&3TY4(&9A8V4]07)I86P@<VEZ93TR/CQ34$%.(&-L87-S/3,S-3,R,#<P
M,"TP.3`T,3DY.3Y)="!W;W)K<R!F:6YE(`T*=6YD97(F;F)S<#M60B!A;F0@
M5D)38W)I<'0L(&)U="!W:&5N($D@<G5N(&ET(&EN($1E;'!H:2P@22!G970@
M=&AE(&5R<F]R(`T*(D-O26YI=&EA;&EZ92!C86X@;F]T(&)E96X@0V%L;&5D
M(CPO4U!!3CX\+T9/3E0^/"]$258^#0H\1$E6/CQ&3TY4(&9A8V4]07)I86P@
M<VEZ93TR/CQ34$%.(`T*8VQA<W,],S,U,S(P-S`P+3`Y,#0Q.3DY/CPO4U!!
M3CX\+T9/3E0^)FYB<W`[/"]$258^#0H\1$E6/CQ&3TY4(&9A8V4]07)I86P@
M<VEZ93TR/CQ34$%.(&-L87-S/3,S-3,R,#<P,"TP.3`T,3DY.3Y7:&%T(&1O
M97,@=&AI<R!M96%N(`T*(2$A($D@:&%V92!S965N('1H92!E<G)O<B!B969O
M<F4L(&)U="!N;W0@<W5R92!W:&%T('1H92!E<G)O<B`-"FUE86YS+CPO4U!!
M3CX\+T9/3E0^/"]$258^#0H\1$E6/CQ&3TY4(&9A8V4]07)I86P@<VEZ93TR
M/CQ34$%.(&-L87-S/3,S-3,R,#<P,"TP.3`T,3DY.3Y(97)E<R!M>2`-"F-O
M9&4\+U-004X^/"]&3TY4/CPO1$E6/@T*/$1)5CX\1D].5"!F86-E/4%R:6%L
M('-I>F4],CX\4U!!3B`-"F-L87-S/3,S-3,R,#<P,"TP.3`T,3DY.3X\+U-0
M04X^/"]&3TY4/B9N8G-P.SPO1$E6/@T*/$1)5CX\1D].5"!F86-E/4%R:6%L
M('-I>F4],CX\4U!!3B`-"F-L87-S/3,S-3,R,#<P,"TP.3`T,3DY.3YV87(\
M+U-004X^/"]&3TY4/CPO1$E6/@T*/$1)5CX\1D].5"!F86-E/4%R:6%L('-I
M>F4],CX\4U!!3B!C;&%S<STS,S4S,C`W,#`M,#DP-#$Y.3D^)FYB<W`[/$9/
M3E0@#0IF86-E/4%R:6%L('-I>F4],CX\4U!!3B!C;&%S<STS,S4S,C`W,#`M
M,#DP-#$Y.3D^)FYB<W`[9DQO9V]N3V)J96-T.B`-"D],159A<FEA;G0[/"]3
M4$%./CPO1D].5#X\+U-004X^/"]&3TY4/CPO1$E6/@T*/$1)5CX\1D].5"!F
M86-E/4%R:6%L('-I>F4],CX\4U!!3B!C;&%S<STS,S4S,C`W,#`M,#DP-#$Y
M.3D^/$9/3E0@9F%C93U!<FEA;"`-"G-I>F4],CX\4U!!3B!C;&%S<STS,S4S
M,C`W,#`M,#DP-#$Y.3D^8F5G:6X\+U-004X^/"]&3TY4/CPO4U!!3CX\+T9/
M3E0^/"]$258^#0H\1$E6/CQ&3TY4(&9A8V4]07)I86P@<VEZ93TR/CQ34$%.
M(&-L87-S/3,S-3,R,#<P,"TP.3`T,3DY.3X\1D].5"!F86-E/4%R:6%L(`T*
M<VEZ93TR/CQ34$%.(&-L87-S/3,S-3,R,#<P,"TP.3`T,3DY.3X\+U-004X^
M/"]&3TY4/B9N8G-P.SPO4U!!3CX\+T9/3E0^/$9/3E0@#0IF86-E/4%R:6%L
M('-I>F4],CX\4U!!3B!C;&%S<STS,S4S,C`W,#`M,#DP-#$Y.3D^9DQO9V]N
M3V)J96-T.CT@#0I#<F5A=&5/3$5/8FIE8W0H)TY406-C97-S+E5S97(N,2<I
M.SQ"4CY[;7D@;W1H97(@8V]D92!G;V5S(&AE<F4@8G5T('1H92!L:6YE(`T*
M86)O=F4@:7,@=&AE(&]F9F5N9&EN9R!L:6YE?3PO4U!!3CX\+T9/3E0^/"]$
M258^#0H\1$E6/CQ&3TY4(&9A8V4]07)I86P@<VEZ93TR/CQ34$%.(&-L87-S
M/3,S-3,R,#<P,"TP.3`T,3DY.3XF;F)S<#L\1D].5"`-"F9A8V4]07)I86P@
M<VEZ93TR/CQ34$%.(`T*8VQA<W,],S,U,S(P-S`P+3`Y,#0Q.3DY/B9N8G-P
M.V9,;V=O;D]B:F5C=#H]56YA<W-I9VYE9#L\+U-004X^/"]&3TY4/CPO4U!!
M3CX\+T9/3E0^/"]$258^#0H\1$E6/CQ&3TY4(&9A8V4]07)I86P@<VEZ93TR
M/CQ34$%.(`T*8VQA<W,],S,U,S(P-S`P+3`Y,#0Q.3DY/CPO4U!!3CX\+T9/
M3E0^)FYB<W`[/"]$258^#0H\1$E6/CQ&3TY4(&9A8V4]07)I86P@<VEZ93TR
M/CQ34$%.(`T*8VQA<W,],S,U,S(P-S`P+3`Y,#0Q.3DY/G1H86YK<RP\+T1)
M5CX\+U-004X^/"]&3TY4/@T*/$1)5CXF;F)S<#L\+T1)5CX-"CQ$258^#0H\
M4#X\1D].5"!S:7IE/3(^/$9/3E0@8V]L;W(](V9F,#`P,#Y*97)E;7D@0V]U
M;'1E<CPO1D].5#X@/$9/3E0@8V]L;W(](S@P.#`X,"`-"F9A8V4](B(@<VEZ
M93TQ/BAC:&EE9B!S;V9T=V%R92!E;F=I;F5E<BD\0E(^/"]&3TY4/CQ&3TY4
M(&-O;&]R/2,P,#`P9F8^5FES=6%L(`T*4V]F='=A<F4@4V]L=71I;VYS/$)2
M/D-H<FES=&-H=7)C:"P@3F5W(%IE86QA;F0\0E(^4$@@,#,M,S4R,34Y-3Q"
M4CY&05@@#0HP,RTS-3(Q-3DV/$)2/DU/0DE,12`P,C$M,C$U,#0S-3Q"4CYW
M=W<N=G-S+F-O+FYZ(#PO1D].5#X\+T9/3E0^/"]0/CPO1$E6/@T*/$1)5CXF
=;F)S<#L\+T1)5CX\+T)/1%D^/"](5$U,/@T*#0H`
`
end
---------------------------------------------------------------------------
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
Website: http://www.delphi.org.nz
