Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Instance will not release
Message
De
08/09/2004 13:26:53
 
 
À
08/09/2004 13:21:35
Steven Dyke
Safran Seats USA
Texas, États-Unis
Information générale
Forum:
Visual FoxPro
Catégorie:
COM/DCOM et OLE Automation
Divers
Thread ID:
00940350
Message ID:
00940353
Vues:
17
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.)
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform