No luck; I even tried Modules[1] and it gives the same error. I'm using the information here btw:
http://www.microsoft.com/mind/0799/script/script.asp ----- Original Message ----- From: "DogWalker" <[EMAIL PROTECTED]> To: <[EMAIL PROTECTED]> Sent: Tuesday, April 27, 2004 2:43 PM Subject: Re: MSScriptControl & ActivePython > > ----- Original Message ----- > From: Lee > To: [EMAIL PROTECTED] > Sent: Monday, April 26, 2004 7:26 PM > Subject: MSScriptControl & ActivePython > > > Hi, > > I'm adding Python and PerlScript support to my Delphi application and am > having trouble with retreiving the names of the functions/pocedures in a > chunk of code. The following code works perfectly for VBScript and > Javascript but it gives an OleException whan accessing the Count property of > the Procedures object with Python and PerlScripts: > > with ScriptObject.ActiveXScriptControl.Modules['Global'] do begin > for Loop := 1 to Procedures.Count do begin // ***EOLEException ON > THIS LINE*** > if (Procedures[Loop].HasReturnValue) and not > (Procedures[Loop].Name[Length(Procedures[Loop].Name)] = '_') then begin > StringList.Add(Procedures[Loop].Name); > end; > end; > end; > > The ActiveXScriptControl object is a standard MS Script Control object. > > Does anyone know what the problem might be? Perhaps the 'Global' module does > not exist for Perl/Python scripts? If this is the case, what should be used > here instead? > ---------------------------------------- > iirc, you can either add a module or use "__main__". > > _______________________________________________ > ActivePython mailing list > [EMAIL PROTECTED] > To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs > Other options: http://listserv.ActiveState.com/mailman/listinfo/ActivePython > > _______________________________________________ ActivePython mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs Other options: http://listserv.ActiveState.com/mailman/listinfo/ActivePython
