oleaut32: Check pointer in IPicture::get_Type.

dlls/oleaut32/olepicture.c

@@ -595,6 +595,10 @@ static HRESULT WINAPI OLEPictureImpl_get_Type(IPicture *iface,
 {
   OLEPictureImpl *This = (OLEPictureImpl *)iface;
   TRACE("(%p)->(%p): type is %d\n", This, ptype, This->desc.picType);
+
+  if(!ptype)
+    return E_POINTER;
+
   *ptype = This->desc.picType;
   return S_OK;
 }

dlls/oleaut32/tests/olepicture.c

@@ -687,6 +687,19 @@ static void test_get_Handle(void)
     IPicture_Release(pic);
 }
 
+static void test_get_Type(void)
+{
+    IPicture *pic;
+    HRESULT hres;
+
+    OleCreatePictureIndirect(NULL, &IID_IPicture, TRUE, (VOID**)&pic);
+
+    hres = IPicture_get_Type(pic, NULL);
+    ole_expect(hres, E_POINTER);
+
+    IPicture_Release(pic);
+}
+
 START_TEST(olepicture)
 {
 	hOleaut32 = GetModuleHandleA("oleaut32.dll");
@@ -716,6 +729,7 @@ START_TEST(olepicture)
         test_Render();
         test_get_Attributes();
         test_get_Handle();
+        test_get_Type();
 }