.gif and .jpeg support - Printable Version

Code:

Function CreateSurfaceFromFile(DirectDraw As DirectDraw7, ByVal _

        FileName As String, SurfaceDesc As DDSURFACEDESC2) As _

        DirectDrawSurface7

  Dim Picture As StdPicture

  Dim width As Long

  Dim Height As Long

  Dim Surface As DirectDrawSurface7

  Dim hdcPicture As Long

  Dim hdcSurface As Long



  Set Picture = LoadPicture(FileName)



  width = CLng((Picture.width * 0.001) * 567 / _

          Screen.TwipsPerPixelX)

  Height = CLng((Picture.Height * 0.001) * 567 / _

          Screen.TwipsPerPixelY)



  With SurfaceDesc

    If .lFlags = 0 Then .lFlags = DDSD_CAPS

    .lFlags = .lFlags Or DDSD_WIDTH Or DDSD_HEIGHT

    If .ddsCaps.lCaps = 0 Then _

          .ddsCaps.lCaps = DDSCAPS_OFFSCREENPLAIN Or DDSCAPS_VIDEOMEMORY

    If .lWidth = 0 Then .lWidth = width

    If .lHeight = 0 Then .lHeight = Height

  End With

  

  Set Surface = DirectDraw.CreateSurface(SurfaceDesc)



  hdcPicture = CreateCompatibleDC(0)



  SelectObject hdcPicture, Picture.Handle



  hdcSurface = Surface.GetDC



  StretchBlt hdcSurface, 0, 0, SurfaceDesc.lWidth, _

        SurfaceDesc.lHeight, hdcPicture, 0, 0, _

        width, Height, SRCCOPY



  Surface.ReleaseDC hdcSurface



  DeleteDC hdcPicture



  Set Picture = Nothing

  Set CreateSurfaceFromFile = Surface

  Set Surface = Nothing

End Function

Code:

Public Declare Function CreateCompatibleDC Lib "gdi32" ( _

      ByVal hdc As Long) As Long



Public Declare Function SelectObject Lib "gdi32" ( _

      ByVal hdc As Long, ByVal hObject As Long) As Long



Public Declare Function StretchBlt Lib "gdi32" ( _

      ByVal hdc As Long, ByVal x As Long, ByVal y As Long, _

      ByVal nWidth As Long, ByVal nHeight As Long, _

      ByVal hSrcDC As Long, ByVal xSrc As Long, _

      ByVal ySrc As Long, ByVal nSrcWidth As Long, _

      ByVal nSrcHeight As Long, ByVal dwRop As Long) As Long



Public Declare Function DeleteDC Lib "gdi32" ( _

      ByVal hdc As Long) As Long

Code:

Dim pic as StdPicture



Set pic = loadpicture(app.path & "\Blabnla.jpg")



Savepicture pic, app.path & "\tmp"



Loadsurf app.path & "\tmp", pic 'Or what ever it is you do with loading a surface. I am also using pic because it has descriptions in it such as width/height. Not much data will be passed on through to the lordsurf sub AS pic does not contain the picture, only the handle number which is a reference to the spool.



kill app.path & "\tmp"