Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - Общий форум

Страница: 1 | 2 |

 

  Вопрос: Из bmp в jpg, как ??? Добавлено: 01.11.02 08:24  

Автор вопроса:  Makc

сабж.

Заранее благодарен

Ответить

  Ответы Всего ответов: 19  

Номер ответа: 1
Автор ответа:
 AlekseyT



Вопросов: 0
Ответов: 2
  Профиль | | #1 Добавлено: 01.11.02 10:00

С помощью любого графического редактора

Ответить

Номер ответа: 2
Автор ответа:
 Makc



Вопросов: 17
Ответов: 45
  Профиль | | #2 Добавлено: 01.11.02 10:22

алексТ, ты меня за идиота держишь, или ты прикололся!?!?

мне надо с помощью VB !!!

Ответить

Номер ответа: 3
Автор ответа:
 AlekseyT



Вопросов: 0
Ответов: 2
  Профиль | | #3 Добавлено: 01.11.02 10:27
Извини, запарился, не понял вопроса :-)

Ответить

Номер ответа: 4
Автор ответа:
 LIS



Вопросов: 7
Ответов: 256
  Профиль | | #4 Добавлено: 01.11.02 19:10

Check forum , I gave answer for this question few times ...

Good luck

Ответить

Номер ответа: 5
Автор ответа:
 Makc



Вопросов: 17
Ответов: 45
  Профиль | | #5 Добавлено: 02.11.02 07:55
Спасибо Лис за совет, я видел этот вопрос где то здесь, но не нашел, вот и решил спросить.

Ответить

Номер ответа: 6
Автор ответа:
 LIS



Вопросов: 7
Ответов: 256
  Профиль | | #6 Добавлено: 02.11.02 17:59

http://www.xnview.com !

Best Converter for today !!!!

You can call .exe from ANY language,pass parameters and THIS IS FOR FREE

Программа имеет мощный входной интерфейс , поэтому ты можешь вызывать ее из VB через SHELL , передавая параметры, а также "выключив" режим отображения конвертирования на мониторе.Программа конвертирует более 250 графических типов файлов и имеет дюжину языков поддержки (русский в том числе). Я пользуюсь этим чудом около 3 лет и никогда не имел проблем !

Good Luck !

LIS

Ответить

Номер ответа: 7
Автор ответа:
 Barsik



Разработчик Offline Client

ICQ: 343368641 

Вопросов: 17
Ответов: 686
  Web-сайт: barsik.newmail.ru
 Профиль | | #7 		Добавлено: 23.09.04 15:36
' ----==== API Declarations ====----

Private Type GUID
   ;Data1 As Long
   ;Data2 As Integer
   ;Data3 As Integer
   ;Data4(0 To 7) As Byte
End Type

Private Type GdiplusStartupInput
   GdiplusVersion As Long
   ;DebugEventCallback 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
         ;Dim tJpgEncoder As GUID
         ;Dim 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

Ответить

Номер ответа: 8
Автор ответа:
 Александр



Разработчик Offline Client

ICQ: 204034 

Вопросов: 106
Ответов: 1919
  Профиль | | #8 Добавлено: 23.09.04 17:10
Э-э-э неет... В последних примерах есть программка SnimOK! Вот, где нужно искать. Она поддерживает png,jpg,bmp и другие форматы. Исходники на VB6.

Ответить

Номер ответа: 9
Автор ответа:
 HACKER


 

Разработчик Offline Client

Вопросов: 236
Ответов: 8362
  Профиль | | #9 Добавлено: 26.09.04 22:23
2 LIS

А можно ссылку на скачку? А то я ненашёл там на сайте

Ответить

Номер ответа: 10
Автор ответа:
 HACKER


 

Разработчик Offline Client

Вопросов: 236
Ответов: 8362
  Профиль | | #10 Добавлено: 27.09.04 22:32
алёу... приём, центральная...

Ответить

Номер ответа: 11
Автор ответа:
 Comanche



Вопросов: 87
Ответов: 459
  Профиль | | #11 Добавлено: 28.09.04 10:43
2Александр:
Э-э-э неет...

В проекте SnimOK для конвертации в JPEG используется PicSave.dll, для конвертации в PNG - mPNG.dll... не лучше ли пользоваться MS GDI+ (как в примере от Barsik)? мощнейшая штука, между прочим.

Ответить

Номер ответа: 12
Автор ответа:
 Barsik



Разработчик Offline Client

ICQ: 343368641 

Вопросов: 17
Ответов: 686
  Web-сайт: barsik.newmail.ru
 Профиль | | #12 		Добавлено: 28.09.04 15:04
2Александр:
Ссылку кинь...

Ответить

Номер ответа: 13
Автор ответа:
 Barsik



Разработчик Offline Client

ICQ: 343368641 

Вопросов: 17
Ответов: 686
  Web-сайт: barsik.newmail.ru
 Профиль | | #13 		Добавлено: 28.09.04 15:57
сорри уже нашел...

Ответить

Номер ответа: 14
Автор ответа:
 AgentFire



ICQ: 192496851 

Вопросов: 75
Ответов: 3178
  Профиль | | #14 Добавлено: 28.09.04 23:11
КАРОЧЕ!

[CODE]
Dim tmp as IPictureDisp
Set tmp = LoadPicture(<YourFile.BMP>)
SavePicture tmp, <YourFile.JPG>
[/CODE]
ВСЕ! И чего мучаться?!

Ответить

Номер ответа: 15
Автор ответа:
 AASoft



Вопросов: 86
Ответов: 920
  Профиль | | #15 Добавлено: 29.09.04 00:03
chevo muchatsya?!?!?!?! a togo chto VB tol`ko BMP sohranyaet, vot chego!!!!!!!!!

ty p redaktore posmotri vajl poluchenyj(nu, v notepad'e, ili tam eshe gde..)...chevo vidish to?? uzh ne BM li sluchajno v nachale fajla??

pomoemu na jpg ne pohozhe, a vot BMP-v samyj raz

Ответить

Страница: 1 | 2 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам