PureBasic Forums - English

Code: Select all

ProcedureDLL.l LoadPicture(FileName.s)
  ;This will load a PNG picture and soon do manipulation
  GM = LoadImage(#PB_Any,FileName)
  ProcedureReturn GM
EndProcedure

ProcedureDLL AttachProcess(Instance)
  UseJPEGImageDecoder()
  UseTIFFImageDecoder()
  UseTGAImageDecoder()
  UsePNGImageDecoder()
EndProcedure 

Code: Select all

    ;Testing ... should work?
    myLIB.l = OpenLibrary(#PB_Any, "ImageLib.dll")
    ff_Picture.l = IsFunction(myLIB, "LoadPicture")
    rt1 = CallFunctionFast(ff_Picture, "bgMenu.png")
    bgMenu.l = CatchImage(#PB_Any,UseImage(rt1))
    CloseLibrary(myLIB)

Code: Select all

Declare ChangeImage(pngFilename.s)
Declare.s GetFile()

IncludeFile "include.pb"

#dll = 1
Toggle = 0

Global ff_PNG.l ; The address in memory of the function from the library.
                ; (for CallFunctionFast)

; // letsgotothelibrary // ------------------------------------------ //
If OpenLibrary(#dll, "ImageProcessing.dll") 
  ; lets see if its a real function
  ff_PNG.l = IsFunction(#dll, "LoadPNG")
Else 
  MessageBox_(0, "could not locate dll", "DLL ERROR", #MB_SYSTEMMODAL) 
  End 
EndIf

; // start // ------------------------------------------------------- //
Open_Window_Main()

Repeat ; main loop
  Event = WaitWindowEvent()
  If Event = #PB_EventGadget
    GadgetID = EventGadgetID()
    If GadgetID = #Button_ChangeImage
      ChangeImage(GetFile())
    ElseIf GadgetID = #Button_Exit
      Event = #PB_EventCloseWindow
    EndIf
  EndIf
Until Event = #PB_EventCloseWindow

CloseLibrary(#dll) ; proper place for lib closing
End

; // ChangeImage // ------------------------------------------------- //
Procedure ChangeImage(pngFilename.s)
  rt1 = CallFunctionFast(ff_PNG, pngFilename)
  SetGadgetState(#Image_Box, UseImage(rt1))
EndProcedure

Procedure.s GetFile()
  Pattern$ = "PNG Graphic File (*.png)|*.png|All files (*.*)|*.*"
  Pattern = 0    ; use the first of the three possible patterns as standard
  File$ = OpenFileRequester("Please choose file to load", StandardFile$, Pattern$, Pattern)
  ProcedureReturn File$
EndProcedure

Code: Select all

; PureBasic Visual Designer v3.90 build 1361

;- Window Constants
;
Enumeration
  #Window_Main
EndEnumeration

;- Gadget Constants
;
Enumeration
  #Button_ChangeImage
  #Button_Exit
  #Image_Box
EndEnumeration

Procedure Open_Window_Main()
  If OpenWindow(#Window_Main, 292, 237, 369, 223,  #PB_Window_SystemMenu | #PB_Window_TitleBar | #PB_Window_ScreenCentered, "ImageGadget")
    If CreateGadgetList(WindowID())
      ButtonGadget(#Button_ChangeImage, 260, 20, 100, 30, "Change")
      ButtonGadget(#Button_Exit, 260, 60, 100, 30, "Exit")
      ImageGadget(#Image_Box, 10, 10, 240, 200, Image0, #PB_Image_Border)
    EndIf
  EndIf
EndProcedure

Code: Select all

ProcedureDLL.l LoadPNG(Filename.s)
  UsePNGImageDecoder()
  result = LoadImage(#PB_Any, Filename)
  ResizeImage(result, 240,200) ; make it fit
  ProcedureReturn result
EndProcedure 

Code: Select all

;Testing ... should work? 
Global ff_Picture.l 

#DLL = 1

If OpenLibrary(#DLL, "ImageLib.dll") 
  ff_Picture = IsFunction(#DLL, "LoadPicture") 
  rt1 = CallFunctionFast(ff_Picture, "bgMenu.png") 
  ;bgMenu = CatchImage(#PB_Any,UseImage(rt1))
  MessageBox_(0,Str(rt1),"test",0)
Else
  End
EndIf  

CloseLibrary(#DLL) 
End

Code: Select all

ProcedureDLL.l LoadPicture(FileName.s) 
;This will load a PNG picture and soon do manipulation 
UseJPEGImageDecoder() 
UseTIFFImageDecoder() 
UseTGAImageDecoder() 
UsePNGImageDecoder() 
GM = LoadImage(#PB_Any,FileName) 
ProcedureReturn GM 
EndProcedure