PureBasic

Code : Tout sélectionner

;Wmf-View (extended)
;Get size of Wmf-File (only Wmf2-portable <-which you can find in the end mostly, and Emf)
;Mischa Brandt

Structure sizeofwmf
  w.l
  h.l
EndStructure
Global WmfSize.sizeofwmf


Procedure LoadWmfImage(name.s)
  If name<>""
    WmfSize\w=-1:WmfSize\h=-1
    hemf = GetEnhMetaFile_(name)
    If hemf=0
      hmf = GetMetaFile_(name)
      If hmf=0
        size=FileSize(name)-22
        ReadFile(1,name)
          FileSeek(1,6)
          l=ReadWord(1):t=ReadWord(1)
          r=ReadWord(1):b=ReadWord(1)
          WmfSize\w=r-l:WmfSize\h=b-t
          FileSeek(1,22)
          *buffer=AllocateMemory(size)
          ReadData(1,*buffer,size)
        CloseFile(1)
      Else
        size = GetMetaFileBitsEx_(hmf,size,0)
        *buffer=AllocateMemory(size)
        GetMetaFileBitsEx_(hmf,size,*buffer)
      EndIf
      hemf = SetWinMetaFileBits_(size,*buffer,GetDC_(0),0)
      FreeMemory(*buffer)
    Else
      ReadFile(1,name)
        FileSeek(1,8)
        l=ReadLong(1):t=ReadLong(1)
        r=ReadLong(1):b=ReadLong(1)
        WmfSize\w=r-l+1:WmfSize\h=b-t+1
      CloseFile(1)
    EndIf
    ProcedureReturn hemf
  EndIf
EndProcedure

Procedure DrawWmfImage(hnd,sdc,x,y,b,h)
  SetRect_(WmfRect.RECT,x,y,x+b-1,y+h-1)
  PlayEnhMetaFile_(sdc,hnd,WmfRect)
EndProcedure

Procedure FreeWmfImage(hnd)
  DeleteEnhMetaFile_(hnd)
EndProcedure

hwnd=OpenWindow(0, 100, 100, 400, 300,"Wmf-Test", #PB_Window_SystemMenu)
CreateGadgetList(hwnd)
ButtonGadget(1, 100, 250, 200, 20, "Load Wmf")

Repeat
  EventID = WaitWindowEvent()
  If EventID = #PB_Event_Gadget
    Select EventGadget()
      Case 1
        image=LoadWmfImage(OpenFileRequester("Open","","Metafile|*.wmf;*.emf",0))
        MessageRequester("Size of Clipart","Width: "+Str(WmfSize\w)+Chr(13)+Chr(10)+"Height: "+Str(WmfSize\h),0)
        DrawWmfImage(image,GetDC_(hwnd),100,25,200,200)
        FreeWmfImage(image)
    EndSelect
  EndIf
Until EventID = #PB_Event_CloseWindow