--- In [email protected], "forxtra" <forx...@...> wrote:
>
> --- In [email protected], "entropyreduction"
> <alancampbelllists+yahoo@> wrote:
> >
> > Hi,
> >
> > Wanna test com0.63_090627.zip in
> > http://tech.groups.yahoo.com/group/power-pro/files/0_TEMP_/AlansPluginProvisional/?
> >
> > (One)Problem was my bad scripting in
> > comPluginDemoScriptFileSysObjDotSyntax.powerpro; can't do
> > objFolderEnum.next.Name because sooner or later objFolderEnum.next will
> > return null string instead of a handle, and it'll be too late to test
> > com_type or com_status.
> >
> > There's also a script using word. All three scripts in archive, on both XP
> > and W2K machines I have access to, allow powerpro to exit cleanly. For
> > you?
> >
>
> Sorry. It fails.
> I experience the same problems like Message #35488
> - http://tech.groups.yahoo.com/group/power-pro/message/35488
>
On my machine, yesterday they hung. Today, the scripts appeared to work (i.e.,
not hang) the first time I ran them. On second and subsequent runs, they hung.
Even after killing and restarting Powerpro I can't get them to again run
without hanging. I noticed that while they are hung, my task manager has two
entries for Powerpro Debug on the Applications pane. Don't know if there's an
aspect of the debug window itself that affects it. I do have my script that
changes fonts on the debug window (when it opens) active, and the time they
worked that worked too. The debug window was already open for the 2nd and third
scripts. Also the one and only time they ran without hanging, I didn't use the
Word script first.
Here was the output from the time they all ran (one after the other) without
hanging. Notice that even though they didn't hang, there did appear to be a
problem where "com handle isn't"). This debug output was obtained from the
debug window using a script (not from any other debug logging option).
com.create_object("Scripting.FileSystemObject") returns: c_3000, com_status -
OK
com.method(objFSO, "OpenTextFile", "C:\Program
Files\PowerProBeta\com063_090627\test.txt") returns: c_3001 (type: object),
com_status - OK
com.method(objFSO, "GetFolder", "C:\Program Files\PowerProBeta\com063_090627")
returns: c_3001 (type: object), com_status - OK
com.get_property(objFolder, "DateLastAccessed") returns: 6/28/2009 8:39:59 AM
(type: date), com_status - OK
com.method(objFolder, "Files") returns: c_3002 (type: object), com_status - OK
com.get_enum(objFiles) returns: e_2000 com_status - OK
Here's a list of files in C:\Program Files\PowerProBeta\com063_090627:
com.dll
comPluginDemoScriptFileSysObj.powerpro
comPluginDemoScriptFileSysObjDotSyntax.powerpro
comPluginDemoScriptWord.powerpro
test.txt
com.create_object("Scripting.FileSystemObject") returns: c_3000, com_status -
OK
c_3001
com.get_property(objFolder, "DateLastAccessed") returns: 6/28/2009 8:47:27 AM
(type: date), com_status - OK
com.get_enum(objFiles) returns: e_2000 com_status - OK
Here's a list of files in C:\Program Files\PowerProBeta\com063_090627:
com.dll
comPluginDemoScriptFileSysObj.powerpro
comPluginDemoScriptFileSysObjDotSyntax.powerpro
comPluginDemoScriptWord.powerpro
test.txt
com.create_object("Word.Application") returns: c_3000 (type: ), com_status - OK
com.set_property(objApp, "Visible", 1) returns: OK
com.method(objApp, "Documents.Add") returns: c_3001 (type: object), com_status
- OK
OK
com.method(objApp, "Selection.Range") returns: c_3002 (type: object),
com_status - OK
OK
com.with(objRange, "Font") returns: OK
com.set_property(".Bold", 1) returns: OK
com.set_property( ".Animation", 3) returns: OK
com.set_property(".Size", 30) returns: OK
com.method(objDoc, "Shapes.AddShape", 10, 50, 50, 100, 200) returns: c_3003,
com_status - OK
com.method(objDoc, "Shapes.AddTextEffect", 15 , "Obsessive Powerpro User" ,
"Arial Black" , 12 , 0 , 0 , 50 , 300) returns: c_3003, com_status - OK
com.set_property(objDoc, "Saved", 1) returns: OK
com.release(c_3001) (objDoc) returns:
com.method(objApp, "Quit") returns:
com.release(c_3000) (objApp) returns:
com.get_object("C:\Program Files\PowerProBeta\com063_090627\test.doc") returns:
(type: none), com_status - ERROR: com.get_object: Can't create object
com.method(objDoc, "Range.Text") returns: (type: none), com_status - ERROR:
com.method: Object handle, isn't
com.release() (objDoc) returns: ERROR: com.release: Object handle, isn't
