| Вопрос: bmp в jpg | Добавлено: 28.05.04 21:23 |
Автор вопроса:  Barsik | Web-сайт: barsik.newmail.ru | ICQ: 343368641 |
|
Поиск по форуму не работает... Подскажите как без dll-ок преобразовать картинку с bmp в jpg Заранее благодарен!!!! |
| Ответы | Всего ответов: 5 |
|
Номер ответа: 1 Автор ответа:  Kodo Разработчик Offline Client ICQ: 293048085 Вопросов: 37 Ответов: 457 |
Профиль | | #1 | Добавлено: 28.05.04 21:27 |
|
Посмотри VbAccelerator.com там вроде что-то было ...
Но по-моему все-таки никак. |
||
|
Номер ответа: 2 Автор ответа: HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #2 | Добавлено: 28.05.04 22:34 |
|
Saving images to JPG using GDI+
This function saves a StdPicture object to a file with JPG format using the GDI+ encoder. Just call the function passing the image object, the filename and, optionally, the image quality (from 1 to 100) . ' ----==== 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 Автор ответа:  BarsikРазработчик Offline Client ICQ: 343368641 Вопросов: 17 Ответов: 686 |
Web-сайт: Профиль | | #3 | Добавлено: 29.05.04 14:29 |
|
Спасибо за ответ.... |
||
|
Номер ответа: 4 Автор ответа: SharpЛидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | | #4 | Добавлено: 29.05.04 15:35 |
| GDI+ - это и есть, по сути, лишняя DLL... | ||
|
Номер ответа: 5 Автор ответа:  BarsikРазработчик Offline Client ICQ: 343368641 Вопросов: 17 Ответов: 686 |
Web-сайт: Профиль | | #5 | Добавлено: 22.10.04 10:56 |
| ну зато она в винде есть... | ||
Страница: 1 |