[VB]GDI IStream、StdPicture、Byte()互转(下).docVIP

By?Modest?? 从流转换为图像?? Public?Function?StreamToPicture(ByVal?Stream?As?IStream)?As?StdPicture?? ????Dim?picStream?As?IStream?? ????Dim?lBitmap?As?Long?? ????Dim?hBitmap?As?Long?? ????Dim?lngGdipToken?As?Long?? ????Dim?tPictDesc?As?PICTDESC?? ????Dim?IID_IPicture?As?IID?? ????Dim?oPicture?As?IPicture?? ?? ????lngGdipToken?=?StartUpGDIPlus(GdiPlusVersion)?? ?? ????Set?picStream?=?Stream?? ????从Stream加载Bitmap?? ????If?GdipLoadImageFromStream(picStream,?lBitmap)?=?OK?Then?? ????????根据Bitmap创建hBitbmp?? ????????If?GdipCreateHBITMAPFromBitmap(lBitmap,?hBitmap,?0)?=?OK?Then?? ????????