Avatar billede harlequin Nybegynder
20. november 2001 - 12:49 Der er 17 kommentarer og
1 løsning

ASPImage laver en hvid kant

Jeg bruger ASPImage til at reducer KB og pixel på jpg billeder, det virker fint. Der kommer bare en hvid kant i bunden og venstre side af billedet, nogen der ved hvorfor?

Set Image = Server.CreateObject(\"AspImage.Image\")

Image.LoadImage Path
Image.GetImageFileSize Path, X, Y

Image.MaxX = X
Image.MaxY = Y

If X > Y Or X > 150 Then
    ResizedX = 150
    ResizedY = (ResizedX * Y / X)
    Image.Resize ResizedX, ResizedY
End If   

Image.ImageFormat = 1
Image.JPEGQuality = 50
Image.FileName = Path
Image.SaveImage

Set Image = Nothing
Avatar billede webbe Nybegynder
20. november 2001 - 18:15 #1
Hvordan udskriver du dit billede???
Avatar billede harlequin Nybegynder
21. november 2001 - 08:29 #2
efter billedet er resized, er der kommet en hvid kant på 4 pixels på!
som kan se på web og i de photoshop.
Avatar billede webbe Nybegynder
21. november 2001 - 08:37 #3
Hvordan udskriver du billedet???

Som response.write \"<img src=\"...\">\"

eller hvad??
Avatar billede harlequin Nybegynder
21. november 2001 - 08:48 #4
billedet bliver ikke udskrevet med det samme
<img border=\"0\" src=\"log/db/590_1000.jpg\">
bliver brugt når det bliver udskrevet, men jeg kan ikke se hvad det skulle sige da border er på 0
Avatar billede harlequin Nybegynder
21. november 2001 - 08:49 #5
det er altså i selve jpg billedet at der kommer en hvid kan på 4 pixel i bunden og venstre side
Avatar billede webbe Nybegynder
21. november 2001 - 08:52 #6
Hmmm - lyder underligt....bruger selv ASPImage, men har ikke det samme problem!
Avatar billede harlequin Nybegynder
21. november 2001 - 09:00 #7
det synes jeg også, kan bare ikke hitte ud af hvorfor. Hvordan ser din kode ud ?
Avatar billede webbe Nybegynder
21. november 2001 - 09:02 #8
If rs(\"Billed1\") <> \"\" Then
               
                    Set Image = Server.CreateObject(\"AspImage.Image\")
                   
                    ImgFullPath = (Server.MapPath(\"./media/\"&rs(\"Billed1\")&\"\"))
               
                    Image.LoadImage ImgFullPath
               
                    strMessage = \"\"
               
                    Image.GetImageFileSize imgFullPath, X, Y
                    Image.MaxX = X
                    Image.MaxY = Y
               
                    If X > Y OR X > 150 Then
                        ResizedX = 125
                        ResizedY = (ResizedX * Y/X)
                    End if
               
                    Image.Resize ResizedX, ResizedY
                   
                    Image.ImageFormat = 1
                    Image.JPEGQuality = 100
                    Image.FileName = Server.MapPath(\"./media_tmp/\"&rs(\"Billed1\")&\"\")
                    Image.SaveImage
               
                    Response.Write \"<a href=\"\"java script:window.openPopUp(\'popup.asp?filmnr=\"&rs(\"Filmnr\")&\"&pic_no=\"&rs(\"Billed1\")&\"\', 800, 600)\"\"><img src=\"\"media_tmp/\"&rs(\"Billed1\")&\"\"\"></a><br>Filnavn:&#32;\"&rs(\"Billed1\")&\"\"
               
                    Set Image = Nothing
                Else
                    Response.Write(\"\")
                End if
Avatar billede harlequin Nybegynder
21. november 2001 - 09:27 #9
du kode ser jo ud som min, jeg prøver at kontakte min udbyder
Avatar billede webbe Nybegynder
21. november 2001 - 09:30 #10
God ide!
Avatar billede harlequin Nybegynder
21. november 2001 - 11:08 #11
man skal sætte: Image.PadSize = 0 efter
Set Image = Server.CreateObject(\"AspImage.Image\")
så virker det, så jeg beholder pointne da jeg selv fandt ud af det
Avatar billede webbe Nybegynder
21. november 2001 - 11:23 #12
Hmmmm - det argument holder ikke helt! ;0)

Jeg bruger ikke Image.PadSize, men får stadig ikke det problem du har! ;0)

Men pyt - du fik løst dit problem!
Avatar billede harlequin Nybegynder
21. november 2001 - 11:35 #13
Jeg synes ikke at du har fortjent 150 for dit svar, takker selvfølig for hjælpen.
Ang. Image.PadSize så sagde udbyderen (ScanNet) at den er 4 pixel som default!
Avatar billede harlequin Nybegynder
21. november 2001 - 11:37 #14
Grunden til at du ikke får en kant, kan skyldes at Image.PadSize er sat til 0 som default
Avatar billede webbe Nybegynder
21. november 2001 - 11:39 #15
Og det vil du mene man kan se hvor????

For jeg har ingen steder i koden angivet Image.PadSize! ;0)

Og der er ikke ændret nogen parametre i installationen af komponentet!
Avatar billede harlequin Nybegynder
21. november 2001 - 11:44 #16
det er kun mit bud på hvorfor du ikke får den kant, efter jeg satte Image.PadSize til 0 var den væk, andet kan jeg ikke sige!
Avatar billede webbe Nybegynder
21. november 2001 - 11:45 #17
Ville heller ikke have point - ville bare påpege at det svar du har fået fra din udbyder ikke helt holder vand! ;0)
Avatar billede harlequin Nybegynder
21. november 2001 - 11:55 #18
ok
kan kun konstater at det virker nu ;0)
/harlequin
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
Kurser inden for grundlæggende programmering

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.

Du kan også logge ind via nedenstående tjenester