将网络图片放到黏贴版 不会 求方法

奇遇

        CInternetSession session;
        CFile *Pfile;       
        IStream *pStm;  
        DWORD dwFileSize,dwByteRead;  
        CString url(_T("http://news.baidu.com/z/resource/r/image/2014-02-12/5f6684219f4cf8280bc943311699e4ef.jpg"));
        Pfile=session.OpenURL(url,1,INTERNET_FLAG_TRANSFER_ASCII|INTERNET_FLAG_RELOAD|INTERNET_FLAG_DONT_CACHE);
        if (Pfile!=INVALID_HANDLE_VALUE)
        {
                dwFileSize=  Pfile->GetLength();//获取文件字节数
                if (dwFileSize==0xFFFFFFFF)
                {
                        MessageBox(L"图片获取失败！");
                }               
        }
        HGLOBAL hGlobal = GlobalAlloc(GMEM_MOVEABLE, dwFileSize);  
         LPVOID pvData = NULL;
         pvData = GlobalLock(hGlobal);
         dwByteRead = Pfile->Read(pvData,dwFileSize);   
         GlobalUnlock(hGlobal);  
         CreateStreamOnHGlobal(hGlobal, TRUE, &pStm);        
        Gdiplus::Bitmap bmp(pStm);
        HBITMAP hBitmap;
        session.Close();
        bmp.GetHBITMAP(Gdiplus::Color(0,0,0), &hBitmap);
        bmp.GetLastStatus();
        if (::OpenClipboard(NULL))
        {
                MessageBox(_T("走这里了"));
        ::EmptyClipboard();
        ::SetClipboardData(CF_BITMAP, hBitmap);
        ::CloseClipboard();
        }