XnView Software

Code: Select all

    gflLibraryInit 'Initialize the library
    gflGetDefaultLoadParams GflLoadParams 'Gets default parameters for loading
    gflEnableLZW False 'Activate the LZW compression
    
    With GflLoadParams
        .Flags = GFL_LOAD_SKIP_ALPHA Or GFL_LOAD_BY_EXTENSION_ONLY
        .Origin = GFL_BOTTOM_LEFT 'Origin is bottom-left
        .ColorModel = GFL_BGR 'Component order like DIB
        .LinePadding = 4 'Line padding on 4 bytes (32bits)
    End With
    
    File = szfilenameBMP
    FileDest = szFileNamePCX
    
    maform.AutoRedraw = True 'Form must be refreshed
    Error = gflLoadBitmap(File, PtrBitmap, GflLoadParams, GflInfo) 'Load picture

    If Error = GFL_NO_ERROR Then 'If no error
        extGetGflBitmapFromPtr PtrBitmap, GflBitmap 'Get the data
            extShowBitmapOnDc GflBitmap, maform.hdc 'Draw the bitmap (optional)
            
            Error = gflChangeColorDepth(GflBitmap, PtrBitmap, GFL_MODE_TO_BINARY, GFL_MODE_PATTERN_DITHER)        'Change color depth of the picture
            If Error = GFL_NO_ERROR Then 'Si aucune erreur
                extGetGflBitmapFromPtr PtrBitmap, GflBitmap 'Get the picture data
                
                gflGetDefaultSaveParams GflSaveParams 'Gets default parameters for saving
                With GflSaveParams
                    .Flags = GFL_SAVE_ANYWAY
                    .FormatIndex = gflGetFormatIndexByName("pcx")  'Get the index of PCX format
                End With
                
                Error = gflSaveBitmap(FileDest, GflBitmap, GflSaveParams) 'Save the picture
                
                gflFreeBitmapData GflBitmap 'Free bitmap
            End If
    End If

    If Error <> GFL_NO_ERROR Then MsgBox extGetStr(gflGetErrorString(Error)) 'Display a message box
    gflLibraryExit 'Quit the library