Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Testing for success of CreateObject?
Message
De
30/04/2009 14:18:00
 
 
À
30/04/2009 14:08:48
Information générale
Forum:
Visual FoxPro
Catégorie:
Classes - VCX
Divers
Thread ID:
01397276
Message ID:
01397286
Vues:
88
Your program is supposed to have general error handling routine. Special cases are needed usually in case of some external factors, e.g. you try CreateObject('Word.Application') and you are unsure if MS-Word is installed on every user computer, and you want to alert user right away.

>Is this overkill, or do most programmers actually do this with every CreateObject request? Or should I just pay attention to what I am doing and rely on my manual testing to make sure I did it correcty?
>
>
>
>>Wrap CREATEOBJECT() with TRY...ENDTRY
>>
>>>I thought it would be a good idea to test for the success of a CreateObject call, and handle the case that would occur if it does not find the class for some reason. So, my code looks like what I show below.
>>>
>>>However, the problem is that you get a run-time error if the class 'searchcustom' is not found, so my test for < type('loSearch')='O' > is never executed . So, how should I test for the (unlikely, but possible) event that the requested cannot be found?
>>>
>>>
>>>
>>>Select Job_Info
>>>
>>> loSearch=createobject('searchcustom', 'Job_Info')
>>>
>>> if type('loSearch')='O'
>>>  loSearch.SearchClass1.cboFields2.value='QUOTED_BY'
>>>  loSearch.SearchClass1.type=2
>>>  loSearch.SearchClass1.init()
>>>  loSearch.show(1)
>>>  loSearch.release()
>>> else
>>>  messagebox('Error creating search object.', 0, 'Notice:')
>>> endif
>>> 
>>> goto bottom
>>> 
>>> thisform.recordPointerMovedParent()
>>>
>>>
Edward Pikman
Independent Consultant
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform