josmond
Apr 22nd, 2001, 10:27 AM
I am having trouble with a com+ dll. I am using VB6 and Windows 2000 Advanced Server.
I have downloaded imgsize.zip from http://www.serverobjects.com and imported it into Component Service Manager.
I have set the idle minutes for shutdown to 1 minute. I have called the object from a VB6 form using the following code:
Dim Img As ImgSize.Check
Private Sub Command1_Click()
CheckFile ("C:\WINNT\Coffee Bean.bmp")
End Sub
Sub CheckFile(strFileName)
Set Img = New ImgSize.Check
Img.FileName = strFileName
If Img.Error <> "" Then
MsgBox "Error"
Else
MsgBox "Height:" & Img.Height & Chr(10) & "Width:" & Img.Width
End If
Set Img = Nothing
End Sub
As expected, watching Component Service Manager the imgsize ball begins to spins and after a minute it stops - GREAT!!
Now I want this to happen with ASP. I call the Object from ASP using the following code:
<%
Dim Img
sub CheckFile (strFileName)
set Img = Server.CreateObject ("ImgSize.Check")
Img.FileName = strFileName
if Img.Error <> "" then
Response.Write "Error"
else
Response.Write "<p>Image <b>" & strFileName & "</b> successfully read.<br>"
Response.Write "Image Height = <b>" & Img.Height & "</b><br>"
Response.Write "Image Width = <b>" & Img.Width & "</b></p>"
end if
set Img = nothing
end sub
CheckFile ("C:\WINNT\Coffee Bean.bmp")
%>
As expected, watching Component Service Manager the imgsize ball begins to spins and after a minute it continues to spin - it never seems to stop - arrrgghhh!!!??
Why is this?? Is this a bug??
I have checked knowledge bases to no avail.
Could someone verify that it's not just my machine that is causing this problem??
Thankyou for your interest
I have downloaded imgsize.zip from http://www.serverobjects.com and imported it into Component Service Manager.
I have set the idle minutes for shutdown to 1 minute. I have called the object from a VB6 form using the following code:
Dim Img As ImgSize.Check
Private Sub Command1_Click()
CheckFile ("C:\WINNT\Coffee Bean.bmp")
End Sub
Sub CheckFile(strFileName)
Set Img = New ImgSize.Check
Img.FileName = strFileName
If Img.Error <> "" Then
MsgBox "Error"
Else
MsgBox "Height:" & Img.Height & Chr(10) & "Width:" & Img.Width
End If
Set Img = Nothing
End Sub
As expected, watching Component Service Manager the imgsize ball begins to spins and after a minute it stops - GREAT!!
Now I want this to happen with ASP. I call the Object from ASP using the following code:
<%
Dim Img
sub CheckFile (strFileName)
set Img = Server.CreateObject ("ImgSize.Check")
Img.FileName = strFileName
if Img.Error <> "" then
Response.Write "Error"
else
Response.Write "<p>Image <b>" & strFileName & "</b> successfully read.<br>"
Response.Write "Image Height = <b>" & Img.Height & "</b><br>"
Response.Write "Image Width = <b>" & Img.Width & "</b></p>"
end if
set Img = nothing
end sub
CheckFile ("C:\WINNT\Coffee Bean.bmp")
%>
As expected, watching Component Service Manager the imgsize ball begins to spins and after a minute it continues to spin - it never seems to stop - arrrgghhh!!!??
Why is this?? Is this a bug??
I have checked knowledge bases to no avail.
Could someone verify that it's not just my machine that is causing this problem??
Thankyou for your interest