VB.Net by API/System.Drawing.Imaging/ImageCodecInfo — различия между версиями
Admin (обсуждение | вклад) м (1 версия) |
Admin (обсуждение | вклад) м (1 версия) |
(нет различий)
|
Текущая версия на 15:50, 26 мая 2010
ImageCodecInfo.Compression
<source lang="vbnet"> Imports System.Drawing Imports System.Drawing.Drawing2D Imports System.Windows.Forms Imports System.Data Imports System.Drawing.Imaging public class MainClass
public Shared Sub Main Dim curBitmap As Bitmap Dim imgCodecInfo As ImageCodecInfo = Nothing Dim encoder As Encoder Dim encoderParam As EncoderParameter Dim encoderParams As New EncoderParameters(1) curBitmap = New Bitmap("yourfile.jpg") Dim j As Integer Dim mimeType As String = "image/jpeg" Dim encoders() As ImageCodecInfo encoders = ImageCodecInfo.GetImageEncoders() j = 0 While j < encoders.Length If encoders(j).MimeType = mimeType Then imgCodecInfo = encoders(j) End If End While " encoder = encoder.rupression encoderParam = New EncoderParameter(encoder, 1, CInt(EncoderParameterValueType.ValueTypeLong), 0) encoderParams.Param(0) = encoderParam " curBitmap.Save("Shape0.jpg", imgCodecInfo, encoderParams) End Sub
End class
</source>
ImageCodecInfo.GetImageEncoders
<source lang="vbnet"> Imports System.Drawing.Imaging Imports System.Drawing Imports System.Drawing.Drawing2D Imports System.Windows.Forms public class MainClass
public Shared Sub Main Dim imgCodecInfo As ImageCodecInfo = Nothing Dim curBitmap As New Bitmap("yourfile.jpg") Dim j As Integer Dim mimeType As String = "image/png" Dim encoders() As ImageCodecInfo encoders = ImageCodecInfo.GetImageEncoders() j = 0 While j < encoders.Length If encoders(j).MimeType = mimeType Then imgCodecInfo = encoders(j) End If End While " Save as png curBitmap.Save("Shape0.png", imgCodecInfo, Nothing) curBitmap.Dispose() End Sub
End class
</source>
ImageCodecInfo.MimeType
<source lang="vbnet"> Imports System.Drawing Imports System.Drawing.Drawing2D Imports System.Windows.Forms Imports System.Data Imports System.Drawing.Imaging public class MainClass
public Shared Sub Main Dim curBitmap As Bitmap Dim imgCodecInfo As ImageCodecInfo = Nothing Dim encoder As Encoder Dim encoderParam As EncoderParameter Dim encoderParams As New EncoderParameters(1) curBitmap = New Bitmap("yourfile.jpg") Dim j As Integer Dim mimeType As String = "image/jpeg" Dim encoders() As ImageCodecInfo encoders = ImageCodecInfo.GetImageEncoders() j = 0 While j < encoders.Length If encoders(j).MimeType = mimeType Then imgCodecInfo = encoders(j) End If End While " encoder = encoder.rupression encoderParam = New EncoderParameter(encoder, 1, CInt(EncoderParameterValueType.ValueTypeLong), 0) encoderParams.Param(0) = encoderParam " curBitmap.Save("Shape0.jpg", imgCodecInfo, encoderParams) End Sub
End class
</source>