XProfan

declarar _hLogo%

PROC Init

    declarar b#
    '{ 'Bild-Handles de hardgecodeten Rohdaten generieren
    DataFile b#,"Test.bmp"'muss natürlich existieren
    _hLogo%=CatchBmp(b#)
    disponer b#
    '}

ENDPROC'Init

PROC CatchBmp'macht de una roh eingelesenen BMP-Zona una anzeigbares Mapa de bits con un Handle

    Parámetros MemPointer&'una Bereichsvariable, en el el BMP binär eingelesen wurde
    Declarar hDC&,BITMAPFILEHEADER#,BMPInfo&,init&,hImage&
    hDC&=@Externo("user32.dll","GetDC",@Externo("user32.dll","GetDesktopWindow"))
    'Dim BITMAPFILEHEADER#,14 'Yo glaube, el es überflüssig (siehe unten en Disponer BITMAPFILEHEADER#)
    BITMAPFILEHEADER#=MemPointer&
    BMPInfo&=MemPointer&+14
    init&=MemPointer&+Largo(BITMAPFILEHEADER#,10)
    hImage&=Externo("gdi32.dll","CreateDIBitmap",hDC&,BMPInfo&,4,init&,BMPInfo&,0)
    @Externo("user32.dll","ReleaseDC",@Externo("user32.dll","GetDesktopWindow"),hDC&)
    'Disponer BITMAPFILEHEADER# 'Yo glaube, el es überflüssig y incluso schädlich (lo sería MemPointer& freigegeben y no el ursprünglich allokierten 14 Bytes)
    Volver hImage&

ENDPROC'CatchBmp

cls
init
DrawPic _hLogo%,10,10;0
waitinput
deleteobject _hLogo%
end

STRUCT S_GDIPlusStartupInput=GdiplusVersion&,DebugEventCallback&,SuppressBackgroundThread&,SuppressExternalCodecs&
declarar _hPic%,_b#,_b2#,_GDIPlusToken&,_hGDIPlusDll&,_hIcon%,_hShlwapiDll&,_iStream&

PROC InitGDIPlus

    declarar gdpsi#,GDIPlusToken&
    _hShlwapiDll&=@usedll("Shlwapi.dll")
    _iStream&=0
    _hGDIPlusDll&=@usedll("GDIPLUS.DLL")
    dim gdpsi#,S_GDIPlusStartupInput
    gdpsi#.GdiplusVersion&=1
    gdpsi#.DebugEventCallback&=0
    gdpsi#.SuppressBackgroundThread&=0
    gdpsi#.SuppressExternalCodecs&=0
    ~GdiplusStartup(@addr(GDIPlusToken&),gdpsi#,0)
    disponer gdpsi#
    volver GDIPlusToken&

ENDPROC'InitGDIPlus

PROC DeInitGDIPlus

    parámetros GDIPlusToken&
    ~GdiplusShutdown(GDIPlusToken&)
    freedll _hGDIPlusDll&

    if _iStream&

        @external("Shlwapi.dll","IStream_Reset",_iStream&)

    endif

    freedll _hShlwapiDll&

ENDPROC'DeInitGDIPlus

PROC GDIPLoadImageFromFile'es el Vollständigkeit halber dabei; wir querer sí aber de el Speicher lesen

    Parámetros Imagen$
    Declarar result&,Filew#,Bitmap&
    result&=0
    dim Filew#,@len(Imagen$)+2
    widestring Filew#,0=Imagen$
    ~GdipCreateBitmapFromFile(Filew#,ADDR(Bitmap&))
    disponer Filew#

    if Bitmap&

        result&=Bitmap&

    Endif

    volver result&

ENDPROC'GDIPLoadImageFromFile

PROC GDIPlusLoadImageFromMemory'Icons necesario ebenfalls como normale Gráficos (BMP, JPG etc.) transferencia voluntad, no como ICO-Archivos!

    Parámetros Imagen#,ReturnAsAicon%'ReturnAsAicon% kann auch weggelassen voluntad, Luego se una normales Grafikhandle zurückgegeben
    Declarar result&,Bitmap&,hBitmap&,pc%,err%
    pc%=%pcount

    if pc%=1

        ReturnAsAicon%=0

    endif

    result&=0

    if _iStream&=0

        _iStream&=@external("Shlwapi.dll","SHCreateMemStream",Imagen#,@sizeof(Imagen#))

    más

        @external("Shlwapi.dll","IStream_Reset",_iStream&)
        @external("Shlwapi.dll","IStream_Write",_iStream&,Imagen#,@sizeof(Imagen#))

    endif

    err%=~GdipCreateBitmapFromStream(_iStream&,@addr(Bitmap&))

    if err%<>0

        @messagebox("GdipCreateBitmapFromStream-Error: "+@str$(err%),"",0)

    endif

    if ReturnAsAicon%=0

        err%=~GdipCreateHBITMAPFromBitmap(Bitmap&,@addr(hBitMap&),0)

        if err%<>0

            @messagebox("GdipCreateHBITMAPFromBitmap-Error: "+@str$(err%),"",0)

        endif

    más

        err%=~GdipCreateHICONFromBitmap(Bitmap&,@addr(hBitMap&))

        if err%<>0

            @messagebox("GdipCreateHBITMAPFromBitmap-Error: "+@str$(err%),"",0)

        endif

    endif

    @external("GDIPLUS.DLL","GdipDisposeImage",Bitmap&)

    if hBitmap&

        result&=hBitmap&

    Endif

    volver result&

ENDPROC

cls
'~CoInitialize(0) 'offenbar no nötig
_GDIPlusToken&=@InitGDIPlus()
datafile _b#,"test.jpg"
_hPic%=@GDIPlusLoadImageFromMemory(_b#)
drawpic _hPic%,0,0;0
~deleteobject(_hPic%)
_hIcon%=@GDIPlusLoadImageFromMemory(_b#,1)
drawicon _hIcon%,0,0
~deleteobject(_hIcon%)
disponer _b#
waitinput
DeInitGDIPlus(_GDIPlusToken&)
'~CoUninitialize() 'offenbar no nötig
end

declarar _memsound#

PROC PlayMemSound

    parámetros memsound#,synchronous%'synchronous% kann auch weggelassen voluntad, Luego se 0 como Default genommen (also asynchron abgespielt)
    declarar p%
    p%:=%pcount

    if p%=1

        synchronous%:=0

    endif

    if synchronous%=0

        @external("Winmm.dll","PlaySoundA",memsound#,0,~SND_MEMORY | ~SND_ASYNC)'siehe https://learn.microsoft.com/en-us/previous-versions/dd743680(v=vs.85)

    más

        @external("Winmm.dll","PlaySoundA",memsound#,0,~SND_MEMORY | ~SND_SYNC)

    endif

ENDPROC'PlayMemSound

PROC StopSound

    @external("Winmm.dll","PlaySoundA",0,0,~SND_ASYNC)'stop playing

ENDPROC'StopSound

cls
datafile _memsound#,"sound.wav"'muss natürlich existieren
playmemsound _memsound#
imprimir "fertig."
waitinput
disponer _memsound#
end