Sauvegarder et convertir fichier BMP vers fichier JPG pour VB6 (options image et [Résolu]

Messages postés
130
Date d'inscription
dimanche 16 décembre 2007
Dernière intervention
28 janvier 2013
- - Dernière réponse : rebixav
Messages postés
130
Date d'inscription
dimanche 16 décembre 2007
Dernière intervention
28 janvier 2013
- 19 août 2012 à 08:41
Permet de faire une convertion d'un fichier BMP vers JPG !

En faite cette sources et 99,999% celle-ci :
http://www.vbfrance.com/codes/CAPTURE-ECRAN-JPG_17837.aspx

mais comme j'ai mis des heures à trouver car le tire "CAPTURE D'ÉCRAN EN JPG"
n'était pas ce que je chercher, j'ai décider de poster celui-ci en ajoutant une petite contribution !

télécharger la source là :
http://www.vbfrance.com/codes/CAPTURE-ECRAN-JPG_17837.aspx

et ajouter dans le module "Conversion_BMP_JPG" cela :


Public Sub bmp_to_jpg(ByVal fichier_source_bmp$, Optional ByVal fichier_destination_jpg$, Optional ByVal qualite = 75)

' Conversion de l'image BMP au format JPG pour prendre moins de place
'exemple : bmp_to_jpg "c:\essai"

fichier_source_bmp$ = LCase$(fichier_source_bmp$)
If Right$(fichier_source_bmp$, 4) <> ".bmp" And InStr(1, fichier_source_bmp$, ".") 0 Then fichier_source_bmp$ fichier_source_bmp$ + ".bmp"

If fichier_destination_jpg$ = "" Then
fichier_destination_jpg$ = Left$(fichier_source_bmp$, Len(fichier_source_bmp$) - 4) + ".jpg"
Else
fichier_destination_jpg$ = LCase$(fichier_destination_jpg$)
If Right$(fichier_destination_jpg$, 4) <> ".jpg" And InStr(1, fichier_destination_jpg$, ".") 0 Then fichier_destination_jpg$ fichier_destination_jpg$ + ".jpg"
End If

On Error Resume Next
If Dir(fichier_destination_jpg$) Then Kill fichier_destination_jpg$: DoEvents

Dim Capture As New aDIBSection
Set Capture = New aDIBSection
Capture.CreateFromPicture LoadPicture(fichier_source_bmp$)
Call SaveJPG(Capture, fichier_destination_jpg$, qualite)
DoEvents
Set Capture = Nothing

End Sub


Comme cela en une ligne vous pouvez convertir un fichier bmp en jpg :
call bmp_to_jpg "c:\essai.bmp","c:\essai.jpg",50
ou mème :
bmp_to_jpg "c:\essai"
j'ai essayer cela marche !

mais comme je l'ai dit j'ajoute seulement 0.001% du travail fait avant par JACK !

et donc un grand merci à "jack"
Afficher la suite 

Votre réponse

1 réponse

Meilleure réponse
Messages postés
130
Date d'inscription
dimanche 16 décembre 2007
Dernière intervention
28 janvier 2013
3
Merci
Et je rajoute encore une petite modification !

je remplace ma sub par :

Public Sub bmp_to_jpg(ByVal fichier_source_bmp$, Optional ByVal fichier_destination_jpg$, Optional ByVal qualite As Byte 75, Optional ByVal effacer_le_fichier_source As Boolean False)

' Conversion de l'image BMP au format JPG pour prendre moins de place
'exemple : bmp_to_jpg "c:\essai"

fichier_source_bmp$ = LCase$(fichier_source_bmp$)
If Right$(fichier_source_bmp$, 4) <> ".bmp" And InStr(1, fichier_source_bmp$, ".") 0 Then fichier_source_bmp$ fichier_source_bmp$ + ".bmp"

If fichier_destination_jpg$ = "" Then
fichier_destination_jpg$ = Left$(fichier_source_bmp$, Len(fichier_source_bmp$) - 4) + ".jpg"
Else
fichier_destination_jpg$ = LCase$(fichier_destination_jpg$)
If Right$(fichier_destination_jpg$, 4) <> ".jpg" And InStr(1, fichier_destination_jpg$, ".") 0 Then fichier_destination_jpg$ fichier_destination_jpg$ + ".jpg"
End If

On Error Resume Next
If Dir(fichier_destination_jpg$) Then Kill fichier_destination_jpg$: DoEvents

Dim Capture As New aDIBSection
Set Capture = New aDIBSection
Capture.CreateFromPicture LoadPicture(fichier_source_bmp$)
Call SaveJPG(Capture, fichier_destination_jpg$, qualite)
DoEvents
If effacer_le_fichier_source = True Then Kill fichier_source_bmp$
Set Capture = Nothing



End Sub



comme cela, aprés avoir créer le fichier bmp on peut l'effacer s'il ne serre plus !
par defaut c'est du False !

Merci rebixav 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources a aidé 98 internautes ce mois-ci

Commenter la réponse de rebixav

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.