PureBasic Forums - English

Code: Select all

Procedure LoadImageEx(imgnum,file$,depth=32)
  Interface nIDXSurfaceFactory
    QueryInterface(a,b) : AddRef() : Release() : CreateSurface(a,b,c,d,e,f,g,h) : CreateFromDDSurface(a,b,c,d,e,f) : LoadImage(a.p-bstr,b,c,d,e,f)
    LoadImageFromStream(a,b,c,d,e,f) : CopySurfaceToNewFormat(a,b,c,d,e) : CreateD3DRMTexture(a,b,c,d,e) : BitBlt(a,b,c,d,e)
  EndInterface
  result=CoInitialize_(0)
  If result=#S_FALSE Or result=#S_OK
    #DXLOCKF_READ=0 : #CLSCTX_INPROC_SERVER=1
    CoCreateInstance_(?CLSID_DXTransformFactory,0,#CLSCTX_INPROC_SERVER,?IID_IDXTransformFactory,@dxtf.IDXTransformFactory)
    If dxtf
      dxtf\QueryService(?IID_IDXSurfaceFactory,?IID_IDXSurfaceFactory,@dxsf.nIDXSurfaceFactory)
      If dxsf
        dxsf\LoadImage(file$,0,0,0,?IID_IDXSurface,@surf.IDXSurface)
        If surf
          surf\LockSurfaceDC(0,#INFINITE,#DXLOCKF_READ,@lock.IDXDCLock)
          If lock
            DC=lock\GetDC()
            If DC
              GetClipBox_(DC,re.rect)
              If imgnum=#PB_Any
                result=CreateImage(#PB_Any,re\right,re\bottom,depth) : imgnum=result
              Else
                result=CreateImage(imgnum,re\right,re\bottom,depth)
              EndIf
              If result
                DestDC=StartDrawing(ImageOutput(imgnum))
                If DestDC : ok=BitBlt_(DestDC,0,0,re\right,re\bottom,DC,0,0,#SRCCOPY) : StopDrawing() : EndIf
                If ok=#False : FreeImage(imgnum) : Else : ok=result : EndIf
              EndIf
            EndIf
            Lock\Release()
          EndIf
          surf\Release()
        EndIf
        dxsf\Release()
      EndIf
      dxtf\Release()
    EndIf
  EndIf
  CoUninitialize_()
  ProcedureReturn ok
  DataSection
  CLSID_DXTransformFactory:
    Data.l $D1FE6762
    Data.w $FC48,$11D0
    Data.b $88,$3A,$3C,$8B,$00,$C1,$00,$00
  IID_IDXTransformFactory:
    Data.l $6A950B2B
    Data.w $A971,$11D1
    Data.b $81,$C8,$00,$00,$F8,$75,$57,$DB
  IID_IDXSurfaceFactory:
    Data.l $144946F5
    Data.w $C4D4,$11D1
    Data.b $81,$D1,$00,$00,$F8,$75,$57,$DB
  IID_IDXSurface:
    Data.l $B39FD73F
    Data.w $E139,$11D1
    Data.b $90,$65,$00,$C0,$4F,$D9,$18,$9D
  EndDataSection
EndProcedure

InitNetwork()
ReceiveHTTPFile("https://www.purebasic.com/favicon.ico","d:\favicon.ico")
icon=LoadImageEx(0,"d:\favicon.ico")
If icon=0 ; Not a valid image, or favicon didn't exist on website.
  icon=LoadIcon_(0,#IDI_EXCLAMATION)
EndIf

OpenWindow(0,200,200,300,100,"test",#PB_Window_SystemMenu)
PanelGadget(0,10,10,280,80)
AddGadgetItem(0,-1,"Empty tab")
AddGadgetItem(0,-1,"Tab with icon")
CloseGadgetList()

SetGadgetItemImage(0,1,icon)

Repeat : Until WaitWindowEvent()=#PB_Event_CloseWindow

Code: Select all

UsePNGImageDecoder() 
InitNetwork()
tmp.s=GetTemporaryDirectory()

If ReceiveHTTPFile("https://www.reddit.com/favicon.ico",tmp+"favicon.png")
  LoadImage(0,tmp+"favicon.png")  
  
  OpenWindow(0,200,200,300,100,"test",#PB_Window_SystemMenu)
  PanelGadget(0,10,10,280,80)
  AddGadgetItem(0,-1,"Empty tab")
  AddGadgetItem(0,-1,"Tab with icon")  
  SetGadgetItemImage(0,1,ImageID(0))  
  Repeat : Until WaitWindowEvent()=#PB_Event_CloseWindow
EndIf