Buchempfehlung
Mikrocomputertechnik mit Controllern der Atmel AVR-RISC-Familie
Mikrocomputertechnik mit Controllern der Atmel AVR-RISC-Familie
Umfassend, aber leicht verständlich führt dieses Buch in die Programmierung von ATMEL AVR Mikrocontrollern ein. [Mehr Infos...]
FreeBASIC-Chat
Es sind Benutzer im FreeBASIC-Chat online.
(Stand:  )
FreeBASIC bei Twitter
Twitter FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!

fb:porticula NoPaste

Info
Info / Hilfe Liste
Übersicht / Liste Neu
Datei hochladen Suche
Quellcode suchen Download
Dateidownload

jload (bload für jpegs)

Uploader:MitgliedMichael
Datum/Zeit:24.09.2007 15:48:31

#include "FreeImage.bi"
#include "fbgfx.bi"
#include "crt.bi"

'' Code example for loading all common image types using FreeImage.
'' The example loads an image passed as a command line argument.

'' The function FI_Load returns a null pointer (0) if there was an error during
'' loading.  Otherwise it returns a 32-bit PUT compatible buffer

Declare Function jload(filename As String) As Any Ptr

'::::
Function jload(filename As String) As Any Ptr
    Dim FIF As FREE_IMAGE_FORMAT
    Dim dib As FIBITMAP Ptr
    Dim dib32 As FIBITMAP Ptr
    Dim DIBWidth As UInteger
    Dim DIBHeight As UInteger
    Dim flags As UInteger
    Dim Sprite As fb.image Ptr
    Dim Bits As Any Ptr

    '' Get File Format
    FIF = FreeImage_GetFileType(StrPtr(filename), 0)
    If FIF = FIF_UNKNOWN Then
        FIF = FreeImage_GetFIFFromFilename(StrPtr(filename))
    End If

    '' Exit If Unknown
    If FIF = FIF_UNKNOWN Then
        Return NULL
    End If

    '' Always load jpegs accurately
    If FIF = FIF_JPEG Then
        flags = JPEG_ACCURATE
    End If

    '' Load Image
    dib = FreeImage_Load(FIF, StrPtr(filename), flags)

    If dib = 0 Then
        '' Problem During Load
        Return NULL
    End If

    '' Get Size
    DIBWidth = FreeImage_GetWidth(dib)
    DIBHeight = FreeImage_GetHeight(dib)

    '' Flip and force 32 bits
    FreeImage_FlipVertical Dib
    Dib32 = FreeImage_ConvertTo32Bits(Dib)

    '' make our sprite and get a ptr to the FI dib
    Sprite = Callocate(sizeof(fb.image) + DIBWidth * DIBHeight * 4)

    sprite->old.bpp = 32
    sprite->old.width = DIBWidth
    sprite->old.height = DIBHeight

    sprite->width = DIBWidth
    sprite->height = DIBHeight
    sprite->pitch = DIBWidth * 4 '4 bytes (32 bits) per pixel -> width * 4'
    sprite->bpp = 32

    Bits = FreeImage_GetBits(Dib32)

    '' copy from dib to sprite
    'cast(fb.image ptr, sprite)->pitch = FreeImage_GetWidth(dib)*4

    MemCpy @CPtr(UByte Ptr, Sprite)[sizeof(fb.image)], Bits,  FreeImage_GetWidth(dib) * DIBHeight * 4

    '' Unload dibs
    FreeImage_Unload dib
    FreeImage_Unload dib32

    Return Sprite

End Function