komprimering af jpg-fil virker ikke

Det var ikke meningen... = Det var ikke meningen, at "færdigkomprimeret" skulle havde skrevet en værdi, som er under 10000. Men den skriver fejlagtigt nul.

Hold kæft noget vrøvl :-) prøver igen igen

Det var meningen, at "færdigkomprimeret" skulle have skrevet en værdi, som var under 10000. Men den skriver fejlagtigt nul.

Her kommer lige den seneste kode - men problemstillingen er stadig den samme:

function setSize(strNavn)

    Set FS = CreateObject("Scripting.FileSystemObject")
    FileName = Server.MapPath (strNavn)
   
    Set Image = Server.CreateObject("AspImage.Image")
      Image.LoadImage(FileName)
      'Er koblet fra for at teste om scriptet overhovedet kan komprimere
      'Image.resize 80, 100
      Image.FileName = (FileName)
      Image.SaveImage

    Set newfile = FS.GetFile(FileName)

    If inStr(strNavn, ".jpg") or inStr(strNavn, ".jpeg") then
        do while newfile.size > 10000
            response.write "<br>størrelse: " & newfile.size
              Image.JPEGQuality = 80
              Image.FileName = (FileName)
              Image.SaveImage
          loop
          response.write "<br>er færdigkomprimeret " & newfile.size
      else
          sendBack("Billedet var for stort og kunne ikke gøres mindre, da der ikke er tale om en JPG-fil")
      end if
   
    Set Image = nothing
         
end function

jeg har også prøvet at indsætte en wait-sætning, men det virker heller ikke... hjælp!!!!

function setSize(strNavn)

    Set FS = CreateObject("Scripting.FileSystemObject")
    FileName = Server.MapPath (strNavn)
   
    Set Image = Server.CreateObject("AspImage.Image")
      Image.LoadImage(FileName)
      'Er koblet fra for at teste om scriptet overhovedet kan komprimere
      'Image.resize 80, 100
      Image.FileName = (FileName)
      Image.SaveImage

    Set newfile = FS.GetFile(FileName)

    If inStr(strNavn, ".jpg") or inStr(strNavn, ".jpeg") then
        do while newfile.size > 10000
            response.write "<br>størrelse: " & newfile.size
              Image.JPEGQuality = 80
              Image.FileName = (FileName)
              for intloop=1 to 10000000
            next
              Image.SaveImage
              for intloop=1 to 10000000
            next
          loop
          response.write "<br>er færdigkomprimeret " & newfile.size
      else
          sendBack("Billedet var for stort og kunne ikke gøres mindre, da der ikke er tale om en JPG-fil")
      end if
   
    Set Image = nothing
         
end function

fsize = newfile.size
  do while fsize > 10000
            response.write "<br>størrelse: " & newfile.size
              Image.JPEGQuality = 80
              Image.FileName = (FileName)
              Image.SaveImage
' evt set newfile = nothing

' du skal have fat i filen igen for at læse størrelsen
Set newfile = FS.GetFile(FileName)
' grab størrelse.
fsize = newfile.size

          loop


//akj

Ok, men kan du ikke lige skrive hele koden sådan, som den skal se ud?

... gerne med en korrekt wait-sætning (jeg har desværre ingen modul hertil)

der burde ikke være behov for at vente.


Set FS = CreateObject("Scripting.FileSystemObject")
    FileName = Server.MapPath (strNavn)
   
    Set Image = Server.CreateObject("AspImage.Image")

    Set newfile = FS.GetFile(FileName)
    fsize = newfile.size

    If inStr(strNavn, ".jpg") or inStr(strNavn, ".jpeg") then
        do while fsize > 10000
            response.write "<br>størrelse: " & newfile.size
              Image.JPEGQuality = 80
              Image.FileName = (FileName)
              Image.SaveImage

        set newfile = nothing   
        Set newfile = FS.GetFile(FileName)
        fsize = newfile.size


          loop
          response.write "<br>er færdigkomprimeret " & fsize
      else
          sendBack("Billedet var for stort og kunne ikke gøres mindre, da der ikke er tale om en JPG-fil")
      end if

    Set Image = nothing


//akj

Den giver desværre det samme resultat - f.eks.:
størrelse: 21856
er færdigkomprimeret 0

Set FS = CreateObject("Scripting.FileSystemObject")
    FileName = Server.MapPath (strNavn)
   
    Set Image = Server.CreateObject("AspImage.Image")

    Set newfile = FS.GetFile(FileName)
    fsize = newfile.size

    If inStr(strNavn, ".jpg") or inStr(strNavn, ".jpeg") then
        do while fsize > 10000

response.write "str = " &  fsize & "<br>"

            response.write "<br>størrelse: " & newfile.size
              Image.JPEGQuality = 80
              Image.FileName = (FileName)
              Image.SaveImage

        set newfile = nothing   
' måske virker denne forsinkelse
i = 0
for i = 1 to 10000
  doevents
loop

        Set newfile = FS.GetFile(FileName)
        fsize = newfile.size


          loop
          response.write "<br>er færdigkomprimeret " & fsize
      else
          sendBack("Billedet var for stort og kunne ikke gøres mindre, da der ikke er tale om en JPG-fil")
      end if

    Set Image = nothing

hvad skal der stå i stedet for doevents?

jeg har brug for en hurtig løsning, så jeg bliver nødt til at lukke her og fortsætte et andet sted :-)

http://www.eksperten.dk/spm/347445