Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Instance will not release
Message
From
08/09/2004 13:26:53
 
 
To
08/09/2004 13:21:35
General information
Forum:
Visual FoxPro
Category:
COM/DCOM and OLE Automation
Miscellaneous
Thread ID:
00940350
Message ID:
00940353
Views:
18
You also must release avDocM.

>My first post was not correct! This is the correct code. I cannot figure out why the instance will not release.
>
>avDocM = CreateObject("AcroExch.AVDoc")
>avDocM.Open((acltvar.hold_path) + AllT(myvee3(1,2)),"")
>dfr = avDocM.GetPDDoc()
>rtheno = dfr.GetNumPages()
>dfr45 = avDocM.GetAvPageView()
>dfr46 = dfr45.GetPage()
>dfr47 = dfr46.SetRotate(270)
>
>Do Case
>Case acltvar.sflag = 'Writer'
>
>For x = 2 To Alen(myvee3,1)
>avDocE = CreateObject("AcroExch.AVDoc")
>avDocE.Open((acltvar.hold_path) + AllT(myvee3(x,2)),"")
>dfr2 = avDocE.GetPDDoc()
>dfr45b = avDocE.GetAvPageView()
>dfr46b = dfr45b.GetPage()
>dfr47b = dfr46b.SetRotate(270)
>sde123 = dfr.InsertPages(x-2,dfr2,0,1,.F.)
>dfr2 = Null
>avDocE.Close(.T.)
>Erase (acltvar.hold_path) + AllT(myvee3(x,2))
>EndFor
>
>EndCase
>
>dfr.Save(0x20+0x4+0x1,(acltvar.hold_path) + AllT(myvee3(1,2)))
>dfr = null
>avDocM.Close(.T.)
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform