Public Funktion createThumbandFull (ByVal ItemCode als Schnur) als AUErrorCapture führt IAUDBInUpDel.createThumbandFull ein
Schwaches errorReturn als AUErrorCapture = nichts
Versuch
Schwaches DB als neues databaseLinqDataContext
DB. Connection.ConnectionString =
furConn.ConnectionString
Schwaches itemIm = von i im db.AUOrigImages _
Wo i.ItemCode = ItemCode _
i.ImageContent vorwählen
newResizedImage als Byte verdunkeln () = nichts
Strom als MemoryStream verdunkeln
Für jedes retI im itemIm
newResizedImage = retI.ToArray
Strom = neues MemoryStream (newResizedImage)
ResizeThumbImage (CDbl (0.1), Strom, ItemCode)
Zunächst
Fang ex als Ausnahme
Wurf ex
Enden-Versuch
RückholerrorReturn
Enden-Funktion
Privates VorResizeThumbImage (ByVal scaleFactor als Doppeltes, ByVal Filetoresize als MemoryStream, ByVal itemCodetoSave als Schnur)
Versuch
Schwach image__1 = System.Drawing.Image.FromStream (Filetoresize)
Schwaches newWidth = CInt ((image__1.Width * scaleFactor))
Schwaches newHeight = CInt ((image__1.Height * scaleFactor))
Schwaches thumbnailBitmap = neues System.Drawing.Bitmap (newWidth, newHeight)
Schwaches thumbnailGraph = System.Drawing.Graphics.FromImage (thumbnailBitmap)
thumbnailGraph.CompositingQuality = CompositingQuality.HighQuality
thumbnailGraph.SmoothingMode = SmoothingMode.HighQuality
thumbnailGraph.InterpolationMode = InterpolationMode.HighQualityBicubic
Schwaches imageRectangle = neues System.Drawing.Rectangle (0, 0, newWidth, newHeight)
thumbnailGraph.DrawImage (image__1, imageRectangle)
'Kodierungs-Parameter
Schwache Qualität als ganze Zahl = 90 '90 ist die magische Einstellung - wirklich. Sie hat ausgezeichnete Qualität und Dateigröße.
Schwache encoderParameters als neues System.Drawing.Imaging.EncoderParameters (1)
encoderParameters.Param (0) = neues System.Drawing.Imaging.EncoderParameter (System.Drawing.Imaging.Encoder.Quality, CLng (Qualität))
Schwache Rumpfstation als System.IO.MemoryStream = neues System.IO.MemoryStream ()
thumbnailBitmap.Save (Rumpfstation, image__1.RawFormat)
Schwacher img als Byte () = neues Byte (Rumpfstation. Länge) {}
Schwaches DB als neues databaseLinqDataContext
DB. Connection.ConnectionString =
furConn.ConnectionString
db.AUResizeThumbImage (itemCodetoSave, itemCodetoSave u. „.jpg“, img)
thumbnailGraph.Dispose ()
thumbnailBitmap.Dispose ()
image__1.Dispose ()
Fang ex als Ausnahme
Wurf ex
Enden-Versuch
Enden-Unterseeboot
|