PureBasic Forums - English

Code: Select all

UseJPEGImageDecoder()
UseJPEG2000ImageDecoder()
UsePNGImageDecoder()
UseTGAImageDecoder()
UseTIFFImageDecoder()

Global  hEmf

SourceFile$ = OpenFileRequester("SELECT IMAGE","","All supported formats|*.bmp;*.jpg; *.jpeg;*.png;*.tif;*.tiff;*.tga|TGA image (*.tga)|*.tga|TIF image (*.tif)|*.tif|TIFF image (*.tiff)|*.tiff| PNG image (*.png)|*.png|BMP image (*.bmp)|*.bmp|JPEG image (*.jpg;*.jpeg)|*.jpg;*.jpeg",0)
If SourceFile$
   LoadImage(1, SourceFile$)
Else
   End
EndIf

w = ImageWidth(1)
h = ImageHeight(1)
des_img$ = GetTemporaryDirectory()+GetFilePart(SourceFile$, #PB_FileSystem_NoExtension) + ".emf"

emf_hDC = CreateEnhMetaFile_(0, @des_img$, 0, 0)
If emf_hDC
    img_hDC = CreateCompatibleDC_(emf_hDC)
    oldImage = SelectObject_(img_hDC, ImageID(1))
    BitBlt_(emf_hDC, 0, 0, w,h, img_hDC, 0, 0, #SRCCOPY)
    SelectObject_(img_hDC, oldImage)
    DeleteDC_(img_hDC)
    hEMF = CloseEnhMetaFile_(emf_hDC)
    DeleteEnhMetaFile_(hEMF)
EndIf 

Procedure WndProc(hwnd, uMsg, wParam, lParam)
  Result = #PB_ProcessPureBasicEvents 
  Select uMsg
      Case #WM_SIZE,#WM_SIZING,#WM_MOVE,#WM_MOVING
              CreateImage(0,WindowWidth(0)-20, WindowHeight(0)-20)
              hDC = StartDrawing(ImageOutput(0))
              SetRect_(r.RECT, 0, 0, WindowWidth(0) - 20, WindowHeight(0) - 20)
              PlayEnhMetaFile_(hDC, hEmf,r)
              StopDrawing()
              ResizeGadget(1,10,10,WindowWidth(0) - 20, WindowHeight(0)-20)
              SetGadgetState(1,ImageID(0))
  EndSelect
  ProcedureReturn Result 
EndProcedure 

hWnd=OpenWindow(0,0,0,w+20,h+20,"Convert to EMF",#PB_Window_SystemMenu| #PB_Window_SizeGadget| #PB_Window_ScreenCentered)
SetWindowCallback(@WndProc())
CreateImage(0, w,h) 
hEMF=GetEnhMetaFile_(@des_img$)
 hDC = StartDrawing(ImageOutput(0))
     SetRect_(r.RECT, 0, 0, w,h)
     PlayEnhMetaFile_(hDC, hEmf,r)
 StopDrawing()
 ImageGadget(1, 10,10,w,h,ImageID(0))
 
Repeat
Until WaitWindowEvent()=#PB_Event_CloseWindow
 
DeleteEnhMetaFile_(hEMF)
ReleaseDC_(hWnd, hDC)