Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Testing for success of CreateObject?
Message
From
30/04/2009 14:18:00
 
 
To
30/04/2009 14:08:48
General information
Forum:
Visual FoxPro
Category:
Classes - VCX
Miscellaneous
Thread ID:
01397276
Message ID:
01397286
Views:
87
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
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform