[aspgerman] =?iso-8859-1?Q?Re:_[aspgerman]_bildgr=F6=DFe_ver=E4ndern_mit?= AspImage

Wed, 06 Nov 2002 09:05:55 -0800

Hi!

Du musst das Bild zuerst mit LoadImage laden bevor du die Gr�sse �ndern kannst. Anbei mein Beispielscript:

f=Server.Mappath(imagefile)
set ASPIMG = Server.CreateObject("AspImage.Image")
ASPIMG.LoadImage(f)
ASPIMG.ResizeR cint(w),cint(w/ASPIMG.MaxX*ASPIMG.MaxY)
ASPIMG.ImageFormat = 1
ASPIMG.JPEGQuality = 60
ASPIMG.SaveImage
set ASPIMG=nothing


Gruss,
Christian


At 14:58 05.11.2002 +0100, you wrote:
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 [EMAIL PROTECTED] 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


| [aspgerman] als [email protected] 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