Bug & fix in detecting installation status of image uploader

I used the code included in the documentation, section "Detecting Whether Image Uploader is Already Installed" for detecting image uploader. However there is a subtle bug: if the image uploader is supported but not installed yet, it will be detected as "Installed"!

I found that the problem was due the following section:

...
4:      On Error Resume Next
5:    supportImageUploader = "NotInstalled"
6:    If (isObject(CreateObject("Aurigma.ImageUploader2")) Then
7:      supportImageUploader = "Installed"
8:    EndIf
...

Now, if the image uploader is installed, isObject(...) will return true. But if it's not, isObject() and/or CreateObject() seems to throw an error?! (Didn't check what the manual says, but it's what I've suspected & observed.) And due to "on error resume next", line 7 will always be executed! That gives us wrong info.

To workaround, I've used a new variable.

...
4:      On Error Resume Next
a:    installed = 0
b:    installed = isObject(CreateObject("Aurigma.ImageUploader2"))
c:    If (installed) Then
d:      supportImageUploader = "Installed"
e:    Else
f:      supportImageUploader = "NotInstalled"
8:    EndIf
...

And it works fine. Tested on Win2000 and XP.

Edited by user Monday, December 24, 2007 5:15:01 PM(UTC)  | Reason: Not specified