[aspgerman] =?iso-8859-1?Q?bildgr=F6=DFe_ver=E4ndern_mit_AspImage?=

Wed, 06 Nov 2002 08:34:33 -0800 

Hallo,

ich will mit aspimage 2.0 die Bildgr��e eines vorhandenen Bildes ver�ndern.
Mein Skript skaliert zwar die Bildgr��e richtig, das Bild ist aber nur noch
wei�.
Was mache ich falsch?

function bildgroesse(bild,reduzierung)

  DIM Image1,bildpfad,hoehe,breite,bildfaktor,erfolg

  set Image1 = server.createobject("AspImage.Image")
  bildPfad = Server.MapPath("../~upload/" & bild)

  Image1.Filename = bildpfad
  Image1.GetImageFileSize bildpfad,breite,hoehe

   IF hoehe > breite THEN
    bildfaktor = reduzierung/hoehe
   ELSE
    bildfaktor = reduzierung/breite
   END IF
   hoehe = INT(ROUND(hoehe * bildfaktor,0))
   breite = INT(ROUND(breite * bildfaktor,0))

   Image1.ResizeR breite,hoehe

  erfolg = Image1.SaveImage
  Response.Write erfolg
  Set Image1 = nothing
 END function

bildgroesse "test.jpg",100



| [aspgerman] als archive@jab.org subscribed
| http://www.aspgerman.com/archiv/aspgerman/ = Listenarchiv
| Sie k�nnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspgerman.asp

Antwort per Email an