Søg
Avatar billede kometen79 Nybegynder
29. april 2004 - 09:17 Der er 2 kommentarer og
1 løsning

ASP Image

Jeg kan simpelthen ikke få ASP.Image til at fungere som jeg ønsker. Det fungere fint hvis jeg angiver begge størrelser, men jeg vil gerne have det skallerbart således at hvis jeg sætter bredden til 150 at den selv finder den højde der passer således at billedet bevar sin oprindelige dimensioner.

<%
'*** lav thumbnail ***
Set Image = Server.CreateObject("AspImage.Image")

Sub ResizeX (intXSize)
  Dim intYSize
  intYSize = (intXSize / Image.MaxX) * Image.MaxY
  Image.ResizeR intXSize, intYSize
end sub

Image.LoadImage server.mappath("billeder\produkter\"&request.querystring("name"))
Image.ImageFormat = 1
Image.JPEGQuality = 75
Image.ResizeR 80, 85


Response.BinaryWrite Image.Image
Set Image = Nothing
%>
Avatar billede groenaert Novice
29. april 2004 - 11:24 #1
Prøv at se pm du kan bruge nedestående til noget.

Const MINPIXELS = 150 'Set width on thumbnail

'*** get width/height of original image
Set objImg = Server.CreateObject("AspImage.Image")
objImg.LoadImage (Server.MapPath("images/Dit billede.jpg"))
ImageHeight = objImg.MaxY
ImageWidth = objImg.MaxX

'*** calculate aspect ratio based on MINPIXELS
NewHeight = Cint(ImageHeight*MINPIXELS/ImageWidth)
NewWidth = MINPIXELS

Set objImg = Nothing

'*** creat thumbnail image
Set Image = Server.CreateObject("AspImage.Image")
Image.LoadImage (Server.MapPath("images/Dit billede.jpg"))
Image.ImageFormat = 1
Image.JPEGQuality = 75
Image.Resize NewWidth,NewHeight
Response.BinaryWrite Image.Image
Set Image = Nothing
Avatar billede kometen79 Nybegynder
14. juli 2004 - 00:21 #2
så virker det. Send et svar og  du får point
Avatar billede groenaert Novice
14. juli 2004 - 10:05 #3
Jamen det var jo godt, så her er et svar.

Groenaert
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel Indlæg Oprettet Seneste aktivitet
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP 9 25/06/202622:20 29/06/202621:55
Tjek alle checkbox i form Af bsn i ASP 4 18/05/202601:57 19/05/202613:33
Lost focus Af bsn i ASP 1 07/11/202415:34 01/01/202514:58
ASP classic Af bsn i ASP 8 28/10/202423:11 30/10/202422:51
Classic - filer vist med sidste fil først Af bsn i ASP 5 23/05/202409:56 24/05/202400:02
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
26 min siden Kan man undgå at få vist referer når der klikkes på links Af Strawberry i Browsere
I dag 12:21 Er det svindel eller fra Microsoft Af mort1 i Andet sikkerhed
I går 11:56 Er det muligt at lave sin egen webserver i boligforening? Af Strawberry i Cloudtjenester
14/0810:21 Ny printer, men hvilken Af mort1 i Printere
13/0819:41 USB på Linux Af Uvanga i Linux
White papers
Flere white papers »