--- title: "helvita bilder i ASPImage" type: "forum-thread" url: "https://www.webforum.nu/amne/asp/125292-helvita-bilder-i-aspimage" topic: "ASP" topic_url: "https://www.webforum.nu/amne/asp" author: "WebbisNet" published: "2005-03-28T20:05:21.000Z" updated: "2005-03-29T13:04:13.000Z" replies: 19 views: 416 page: 1 pages: 1 language: "sv-SE" site: "webForum — webforum.nu" rights: "Upphovsrätten till varje inlägg tillhör dess författare." attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/125292-helvita-bilder-i-aspimage" --- # helvita bilder i ASPImage ## #1 — WebbisNet, 2005-03-28T20:05Z När jag laddar upp en bild så skalas den på rätt sätt, MEN den blir helt vit, nån som kan se varför ``` Set Image = Server.CreateObject("AspImage.Image") Image.LoadImage(Server.MapPath("/upload/images/cards/vykort/" & strBild)) Image.FileName = (Server.MapPath("/upload/images/cards/vykort/"& strBild )) Image.ImageFormat = 1 Image.JPEGQuality = 90 Image.Resize 400,250 'Image.ImageFormat = 3 'Stöd bara .png 'Image.CreateButton 1, true Image.SaveImage Dim objConn SET objConn = connect() picture = "INSERT INTO tblPostcard " picture = picture & "(id,fran,franMail,till,tillMail,bild,meddelande,inlagd,unread) " picture = picture & "VALUES('" & varID & "','" & varFran & "','" & varFranMail & "','" & varTill & "','" & varTillMail & "','" & strBild & "','"& varMessage &"','"& strDatum &"','1')" response.write picture 'response.end objConn.Execute picture Set Image = Nothing ``` Permalänk: https://www.webforum.nu/p/125292 ## #2 — solbulle, 2005-03-28T20:17Z Laddar upp en bild skriver du... Om du i anslutning till den där koden även laddat upp en bild, du är då helt hundra på att den är där och är ok? Är sökvägen helt 100% rätt? Permalänk: https://www.webforum.nu/p/1581289 ## #3 — WebbisNet, 2005-03-28T20:21Z > **solbulle skrev:** > > Laddar upp en bild skriver du... > > Om du i anslutning till den där koden även laddat upp en bild, du är då helt hundra på att den är där och är ok? > > Är sökvägen helt 100% rätt? bilden blir kritvit när den sparas på servern Permalänk: https://www.webforum.nu/p/1581290 ## #4 — solbulle, 2005-03-28T20:33Z Ursäkta om det låter som om jag tvivlar, men du har alltså en bild i din mapp, sen kör du detta script och bilden har blivit kritvit? Permalänk: https://www.webforum.nu/p/1581301 ## #5 — WebbisNet, 2005-03-28T20:36Z ne, en bild ladda upp från hårddisken....ex från webkamera bilden sparas på servern och skalas och sen sparas info i db om bilden när bilden sparas på servern gör ASPImage på nåt sätt bilden kritvit, det enda jajg ser är texten som jag präntar in på varje bild Permalänk: https://www.webforum.nu/p/1581302 ## #6 — WebbisNet, 2005-03-28T20:39Z > **solbulle skrev:** > > Ursäkta om det låter som om jag tvivlar, men du har alltså en bild i din mapp, sen kör du detta script och bilden har blivit kritvit? gå till och ladda upp en bild, invänta mailet och kolla bilden Permalänk: https://www.webforum.nu/p/1581303 ## #7 — solbulle, 2005-03-28T20:40Z Okelidoki. Men då är det ju knappast den kod du visar som ställer till det? Den kodsnutten laddar ju inte upp någon bild. Kolla först om den bild du laddar upp blir ok. (Genom att utkommentera den kod du postat här.) Permalänk: https://www.webforum.nu/p/1581304 ## #8 — WebbisNet, 2005-03-28T20:44Z Här är hela koden ``` <% varID=request.form("id") varPic=request.form("bild") varMessage=request.form("Meddelande") varDatum=request.form("Datum") varFran=request.form("Fran") varFranMail=request.form("FranMail") varTill=request.form("Till") varTillMail=request.form("TillMail") sID = varID sTill = varTillMail sFran = varFranMail sMeddelande = meddelande sBild = varPic Set objMail = Server.CreateObject("CDO.Message") objMail.From = sFran objMail.To = sTill objMail.Subject="Du har fått ett E-vykort" objMail.TextBody = "Du har fått ett E-vykort från " & sFran &vbcrlf &vbcrlf _ &"Du kan hämta det på [url]http://kort.webbisen.com/vykort/viewCard.asp?id=[/url]"&sID _ & vbcrlf & vbcrlf & "Om du tycker att det var lätt att skicka ditt kort och du gärna återkommer"_ & vbcrlf & "så ser jag gärna att du tipsar dina vänner om min E-vykortstjänst."_ & vbcrlf & "Mvh /Admin."_ & vbcrlf & vbcrlf & "E-vykortstjänsten på WebbisNet"_ & vbcrlf & "Http://www.webbisen.com , [url]Http://kort.webbisen.com/vykort.[/url]" objMail.Send Set objMail = Nothing%> <% strBild=varPic strBild=Right(strBild,Len(strBild)-3) strDatum=varDatum strDatum=replace(strDatum,"-"," ") Set Image = Server.CreateObject("AspImage.Image") Image.FileName = (Server.MapPath("/upload/images/cards/vykort/00"&strBild)) Image.ImageFormat = 1 Image.JPEGQuality = 90 Image.Resize 400,250 Image.TextOut "Http://kort.webbisen.com/vykort", 220, 230, false 'Image.ImageFormat = 3 'Stöd bara .png 'Image.CreateButton 1, true Image.SaveImage Dim objConn SET objConn = connect() picture = "INSERT INTO tblPostcard " picture = picture & "(id,fran,franMail,till,tillMail,bild,meddelande,inlagd,unread) " picture = picture & "VALUES('" & varID & "','" & varFran & "','" & varFranMail & "','" & varTill & "','" & varTillMail & "','" & strBild & "','"& varMessage &"','"& strDatum &"','1')" response.write picture 'response.end objConn.Execute picture Set Image = Nothing %> ``` Permalänk: https://www.webforum.nu/p/1581306 ## #9 — solbulle, 2005-03-28T20:48Z Jag ser aldrig att du laddar upp bilden till: /upload/images/cards/vykort/ Du måste ladda upp bilden innan du kan låta aspimage göra något med den. Permalänk: https://www.webforum.nu/p/1581307 ## #10 — WebbisNet, 2005-03-28T20:50Z bilden får ju rätt filnamn på servern så visst laddas den upp, den blir bara helt vit....det är där problemet ligger Permalänk: https://www.webforum.nu/p/1581309 ## #11 — WebbisNet, 2005-03-28T20:52Z > **solbulle skrev:** > > Jag ser aldrig att du laddar upp bilden till: /upload/images/cards/vykort/ > > Du måste ladda upp bilden innan du kan låta aspimage göra något med den. och du kan inte ladda upp bilden från mina dokument, den måste ligga under c, d eller var du har den Permalänk: https://www.webforum.nu/p/1581311 ## #12 — solbulle, 2005-03-28T21:29Z Jag kan sätta en mindre peng på att bilden aldrig laddas upp till servern i den där koden. Har du ingen (bild-)uppladdningskomponent du kan använda dig av också? Permalänk: https://www.webforum.nu/p/1581326 ## #13 — WebbisNet, 2005-03-28T22:42Z använder jag ``` Set Upload = Server.CreateObject("Persits.Upload") Upload.OverwriteFiles = False Upload.SetMaxSize 100000, False Count=Upload.Save(Server.MapPath("/upload/images/cards/vykort")) For Each file In Upload.Files Next For Each file In Upload.Files Next Set File = Upload.Files filnamn = Upload.form("bild") If NOT File Is Nothing Then On Error Resume Next strFileName= Upload.Files("bild").ExtractFileName END IF ``` så måste jag ha enctype="multipart/form-data" och då får jag inte med mina variabler har jag inte med den så måste jag vara utan enctype och då får jag med variablerna men ingen bild uppladdad Hur ska jag göra? Permalänk: https://www.webforum.nu/p/1581345 ## #14 — Fredde Mannen, 2005-03-28T23:16Z använd persits.uploads formulär hantering. blir väl i detta fall typ: Upload.form("namn på fältet") om jag inte är och springer på autobahn här.. :) Permalänk: https://www.webforum.nu/p/1581357 ## #15 — WebbisNet, 2005-03-28T23:45Z Med denna lilla kod ``` Set Upload = Server.CreateObject("Persits.Upload") Upload.OverwriteFiles = False Upload.SetMaxSize 100000, False Count=Upload.Save(Server.MapPath("/upload/images/cards/vykort")) Set File = Upload.Files filnamn = Upload.form("bild") ``` får jag Persits.Upload.1 error '800a003d' Wrong Content-Type. Make sure you have included the attribute ENCTYPE="multipart/form-data" in your form. /vykort/resize.asp, line 23 och får inte med några variabelvärden om jag använder ENCTYPE="multipart/form-data" i min form Permalänk: https://www.webforum.nu/p/1581366 ## #16 — Fredde Mannen, 2005-03-28T23:51Z ehumm... \*mummel\* använd ENCTYPE="multipart/form-data" i formuläret! Fånga upp värden med, nu i detta fall: Upload.Form("namn på fälten") (om jag nu tänker rätt) :) Istället för: Request.Form("namn på fälten") Permalänk: https://www.webforum.nu/p/1581367 ## #17 — WebbisNet, 2005-03-29T02:55Z Nu verkar allt funka fin fint förutom att bilden inte skalas och märks med en text, nån som vet hur jag ordnar om ASPImage i den här koden för att få det att bli så ``` Set Upload = Server.CreateObject("Persits.Upload") Upload.OverwriteFiles = False Upload.SetMaxSize 100000, False Count=Upload.Save(Server.MapPath("/upload/images/cards/vykort")) For Each file In Upload.Files 'If File.ImageType = "UNKNOWN" Then 'Response.Redirect "/pictureupload/outputfile.asp?error=fel_filformat" 'File.Delete ' End If Next For Each file In Upload.Files 'If file.Size = 100000 Then 'This means the file was truncated ' Response.Redirect "fel.asp" ' File.Delete ' End If Next Set File = Upload.Files filnamn = Upload.form("blob") If NOT File Is Nothing Then On Error Resume Next strFileName= Upload.Files("blob").ExtractFileName END IF Set Image = Server.CreateObject("AspImage.Image") LoadImage = (Server.MapPath("/upload/images/cards/vykort/"&strFileName)) Image.ImageFormat = 1 Image.JPEGQuality = 90 Image.Resize 400,250 Image.TextOut "Http://kort.webbisen.com/vykort", 220, 230, false Image.SaveImage Set Image = Nothing ``` Permalänk: https://www.webforum.nu/p/1581374 ## #18 — solbulle, 2005-03-29T04:50Z Använd dig av precis samma kod som du hade först men sätt strBild till namnet på den bild du just laddat upp. Det blir väl: strBild = strFileName (PS. Vilka tider folk sitter och knackar kod på egentligen. :) ) Permalänk: https://www.webforum.nu/p/1581379 ## #19 — Fredde Mannen, 2005-03-29T07:53Z > **solbulle skrev:** > > (PS. Vilka tider folk sitter och knackar kod på egentligen. :) ) He he.. de tider då hjärnan arbetar som bäst! :OO Permalänk: https://www.webforum.nu/p/1581407 ## #20 — WebbisNet, 2005-03-29T13:04Z > **solbulle skrev:** > > Använd dig av precis samma kod som du hade först men sätt strBild till namnet på den bild du just laddat upp. > > Det blir väl: > > strBild = strFileName > > (PS. Vilka tider folk sitter och knackar kod på egentligen. :) ) om jag har strBild=strFileName och lägger in den så här LoadImage = (Server.MapPath("/upload/images/cards/vykort/"&strBild)) så gör det väl ingen direkt skillnad Permalänk: https://www.webforum.nu/p/1581550 --- Tråden på webben: https://www.webforum.nu/amne/asp/125292-helvita-bilder-i-aspimage