| Вопрос: Как *.bmp превратить в *.jpg | Добавлено: 19.06.04 09:36 |
Автор вопроса:  Mich | Web-сайт: q-mich.narod.ru
|
|
нужно содержимое PictureBox сохранить как файл *.jpg Спасибо! |
| Ответы | Всего ответов: 3 |
|
Номер ответа: 1 Автор ответа:  cresta Вопросов: 117 Ответов: 1538 |
Профиль | | #1 | Добавлено: 19.06.04 11:50 |
| Ищи на microsoft'е wiaaut.dll. Она делает jpg,gif,tiff,png | ||
|
Номер ответа: 2 Автор ответа: Mich Вопросов: 4 Ответов: 7 |
Web-сайт: Профиль | | #2 | Добавлено: 19.06.04 17:24 |
|
http://q-mich.narod.ru/
'Сам уже нашел 'кому надо вот: ' ----==== API Declarations ====---- Private Type GUID  ata1 As Long
ata2 As Integer
ata3 As Integer
ata4(0 To 7) As Byte
End Type Private Type GdiplusStartupInput GdiplusVersion As Long ebugEventCallback As Long
SuppressBackgroundThread As Long SuppressExternalCodecs As Long End Type Private Type EncoderParameter GUID As GUID NumberOfValues As Long type As Long Value As Long End Type Private Type EncoderParameters Count As Long Parameter As EncoderParameter End Type Private Declare Function GdiplusStartup Lib "GDIPlus" ( _ token As Long, _ inputbuf As GdiplusStartupInput, _ Optional ByVal outputbuf As Long = 0) As Long Private Declare Function GdiplusShutdown Lib "GDIPlus" ( _ ByVal token As Long) As Long Private Declare Function GdipCreateBitmapFromHBITMAP Lib "GDIPlus" ( _ ByVal hbm As Long, _ ByVal hpal As Long, _ Bitmap As Long) As Long Private Declare Function GdipDisposeImage Lib "GDIPlus" ( _ ByVal Image As Long) As Long Private Declare Function GdipSaveImageToFile Lib "GDIPlus" ( _ ByVal Image As Long, _ ByVal Filename As Long, _ clsidEncoder As GUID, _ encoderParams As Any) As Long Private Declare Function CLSIDFromString Lib "ole32" ( _ ByVal str As Long, _ id As GUID) As Long ' ----==== SaveJPG ====---- Public Sub SaveJPG( _ ByVal pict As StdPicture, _ ByVal filename As String, _ Optional ByVal quality As Byte = 80) Dim tSI As GdiplusStartupInput Dim lRes As Long Dim lGDIP As Long Dim lBitmap As Long ' Initialize GDI+ tSI.GdiplusVersion = 1 lRes = GdiplusStartup(lGDIP, tSI) If lRes = 0 Then ' Create the GDI+ bitmap ' from the image handle lRes = GdipCreateBitmapFromHBITMAP(pict.Handle, 0, lBitmap) If lRes = 0 Then im tJpgEncoder As GUID
im tParams As EncoderParameters
' Initialize the encoder GUID CLSIDFromString StrPtr("{557CF401-1A04-11D3-9A73-0000F81EF32E}"  , _
tJpgEncoder ' Initialize the encoder parameters tParams.Count = 1 With tParams.Parameter ' Quality ' Set the Quality GUID CLSIDFromString StrPtr("{1D5BE4B5-FA4A-452D-9CDD-5DB3505E7EB}" , .GUID
.NumberOfValues = 1 .type = 1 .Value = VarPtr(Quality) End With ' Save the image lRes = GdipSaveImageToFile( _ lBitmap, _ StrPtr(Filename), _ tJpgEncoder, _ tParams) ' Destroy the bitmap GdipDisposeImage lBitmap End If ' Shutdown GDI+ GdiplusShutdown lGDIP End If If lRes Then Err.Raise 5, , "Cannot save the image. GDI+ Error:" & lRes End If End Sub |
||
|
Номер ответа: 3 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #3 | Добавлено: 20.06.04 14:26 |
| эк был бы поиск, ведь не первый раз такой вопрос на форуме... | ||
Страница: 1 |