Discussion :

[Ric500]

Bonjour à tous,

Dans mon appli j'enregistre des images dans une GED (Gestion Electronique de documents).
Les images sont enregistrées en 2 exemplaires:

1 dans la GED - Redimensionné et filigrané
2 dans un dossier mirroring - enregistré sans changement.

J'ai réussi à filigraner mes images mais pas à la redimensionner (suivant un ratio largeur/hauteur).

Je crois que je tourne autour mais je coince un peu.

Ci-après mon code actuel:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
Sub PutFiliOn(imgbase, img As String, destination As String)
    Dim GDI, ratio As Double
    On Error GoTo ErrMan
 
    Set GDI = New clGdiplus
 
    ' charge l'image de fond
    GDI.LoadFile (imgbase)
    ratio = CDbl(DLookup("Chemin", "Chemins", "Fonction='Attrib_Img_Ratio'"))
 
    With GDI
        'dessine un rectangle sur l'image de fond
        .DrawRectangle 100, 100, _
                        GDI.ImageWidth - 100, GDI.ImageHeight - 100, , vbRed, 1, , 0, "MaRegion"
 
        .ImgNew("MonImage").LoadFile img
 
        ' Applique le filigrane
        .DrawImg "MonImage", 100, 100, _
                        GDI.ImageWidth - 100, GDI.ImageHeight - 100, _
                            , GdipSizeModeStretch, GdipAlignCenter, 50
 
 
 
        .ImageKeep
 
        ' Redimensionnement
        '........................
 
 
        .SaveFile destination
        .ImgDelete "MonImage"
    End With
    Set GDI = Nothing
Fin:
    Exit Sub
ErrMan:
    MsgBox (Error(Err))
    Resume Next
End Sub

Merci d'avance

[loufab]

Salut Ric,

Peut-être que ça peut t'aider cette discussion.

https://www.developpez.net/forums/d2...es-clic-image/

Tu es sur de sauver la bonne image modifié et non l'image dans l'image ?

Cordialement,

[Ric500]

Bonjour loufab

Tu es sur de sauver la bonne image modifié et non l'image dans l'image ?

Oui, le nom de fichier nomenclaturé et son chemin sont passés en paramètres dans "destination".

Au final, j'ai utilisé la bibliothèque WIA qui me permet de redimensionner les images. (tant pis pour GDI+ !)

Mon problème est fonctionnellement résolu (je regarderai GDI+ plus tard pour ma culture).