Solved

ActiveX DLL to scale-resize an image (jpg or gif) from ASP.

Posted on 2003-11-21
14
1,849 Views
Last Modified: 2013-11-19
Hi,

I am trying to build an ActiveX Dll for use from ASP, to resize a specified image to the required size.  The image resize must be to scale and the program must support JPG, GIF and BMP.

I have some code (in VB6) which I have started with (not sure if this will only work for bitmaps - if at all).

=============Code in VB6 (the dll file) ====================
Public Sub ResizeImage(sImgPath, sNewPath, iWidth, iHeight)

Form1.Image1.Picture = LoadPicture(sImgPath)
Set Picture1.Picture = Image1.Picture

Form1.Picture1.AutoRedraw = 1

Form1.Picture1.PaintPicture Form1.Image1.Picture, 1, 1, iWidth, iHeight
SavePicture Form1.Picture1.Picture, sNewPath

End Sub


I then call this from the ASP page:

========ASP Code (in the resizeimage.asp file)==========
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
Dim objResize

Set objResize = Server.CreateObject("MyResize.ImageResizer")
MyResize.ResizeImage "C:\Site\htDocs\Futurama.bmp","C:\Site\htDocs\Futurama_sm.bmp",80,60
Set MyResize=Nothing
%>

NB: This is example code and intentionally uses literals.


The ASP page returns "Object Required" on line 6 (MyResize.ResizeImage) - but does seem to execute past the Form1.Image1.Picture = LoadPicture(sImgPath) line because if you pass an invalid filename to MyResize.ResizeImage then the ASP error returns "File not found".

P.S

The DLL file is correctly registered and I cannot see any permissions problems (either to the DLL file or the Image Files).

Please advise if this method is innappropriate for my requirements.

Thank you for your time,

James.
0
Comment
Question by:James_Andrews
  • 4
  • 3
  • 2
  • +2
14 Comments
 
LVL 5

Accepted Solution

by:
rajaamirapu earned 125 total points
ID: 9796424
0
 
LVL 16

Assisted Solution

by:Richie_Simonetti
Richie_Simonetti earned 125 total points
ID: 9796660
0
 
LVL 9

Assisted Solution

by:Dang123
Dang123 earned 125 total points
ID: 9796726
0
Netscaler Common Configuration How To guides

If you use NetScaler you will want to see these guides. The NetScaler How To Guides show administrators how to get NetScaler up and configured by providing instructions for common scenarios and some not so common ones.

 

Author Comment

by:James_Andrews
ID: 9796953
Thanks for your responses.

The resizing of the image is not for display.  I want to take load an image file, "Dog_Big.jpg", and create a scaled down version of it "Dog_Small.jpg".

Sorry if this wasn't clear.
0
 
LVL 28

Assisted Solution

by:AzraSound
AzraSound earned 125 total points
ID: 9799333
Shouldn't your ASP code say:

objResize.ResizeImage ??


Have you tried debugging the dll at all?
0
 
LVL 16

Expert Comment

by:Richie_Simonetti
ID: 9799459
:))
, azra is right!
0
 

Author Comment

by:James_Andrews
ID: 9799710
Yes, sorry, that is a typo.

Azra,

I am trying to debug the DLL, but the only error I get is the error from the ASP page, which is object required (the other code does not have that typo).
0
 
LVL 28

Expert Comment

by:AzraSound
ID: 9799769
How far into the code of the DLL do you get when debugging before the error occurs?
0
 

Author Comment

by:James_Andrews
ID: 9799792
From above:

The ASP page returns "Object Required" on line 6 (MyResize.ResizeImage) - but does seem to execute past the Form1.Image1.Picture = LoadPicture(sImgPath) line because if you pass an invalid filename to MyResize.ResizeImage then the ASP error returns "File not found".
0
 
LVL 28

Expert Comment

by:AzraSound
ID: 9799826
Is the picture saved to the file?  I assume Set MyResize = Nothing is a typo as well?

What I meant be debugging was, go to Project -> Properties in your DLL project, select the Debugging tab, ensure "wait for components to be created" option is selected.  Press F5 to put your project in "run" mode with a breakpoint set on the first line in your ResizeImage sub routine.  Then open your ASP page that calls this dll and it should jump into your DLL project allowing you to step through the code.
0
 

Author Comment

by:James_Andrews
ID: 9799865
Yes, thats's a typo as well.  I renamed it MyResize in the code to make it obvious that it was my component - must have missed those two.

OK - Thanks very much - I didn't know you could do that.
0

Featured Post

Master Your Team's Linux and Cloud Stack!

The average business loses $13.5M per year to ineffective training (per 1,000 employees). Keep ahead of the competition and combine in-person quality with online cost and flexibility by training with Linux Academy.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Title # Comments Views Activity
Sending a email via excel using vba 6 82
Microsoft Access combo box help 2 47
svg images disappeared after editing 7 51
fso.FolderExists("\\server\HiddenFolder$") 4 68
The debugging module of the VB 6 IDE can be accessed by way of the Debug menu item. That menu item can normally be found in the IDE's main menu line as shown in this picture.   There is also a companion Debug Toolbar that looks like the followin…
Since upgrading to Office 2013 or higher installing the Smart Indenter addin will fail. This article will explain how to install it so it will work regardless of the Office version installed.
Get people started with the utilization of class modules. Class modules can be a powerful tool in Microsoft Access. They allow you to create self-contained objects that encapsulate functionality. They can easily hide the complexity of a process from…
Learn the basics of inputting and editing your text components in Prezi. We will cover how to set styles, position, and group your text components. In your Prezi editor, click anywhere on the canvas to add text: A flashing cursor informs you that yo…

803 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question