[收藏]IPicture::SaveAsFile的一个使用例子

天云上人

  BOOL CPicture::SaveAsBitmap(CString sFilePathName)
//=============================================================================
{
BOOL bResult = FALSE;
ILockBytes *Buffer = 0;
# E' a1 T) F7 D" n) e IStorage   *pStorage = 0;
IStream    *FileStream = 0;
; c: h; f+ r5 f BYTE    *BufferBytes;
8 g- y! G1 }7 p/ b STATSTG  BytesStatistics;
DWORD  OutData;
long  OutStream;
9 i; U4 ?" w: p, X5 G1 n1 a( o" n CFile  BitmapFile; CFileException e;
double  SkipFloat = 0;
DWORD  ByteSkip = 0;
_ULARGE_INTEGER RealData;
/ q8 S. I$ A* o: g3 D3 C  j8 H
7 V% a$ m4 L9 o6 t+ p9 u5 q
( f$ y4 ?6 ]/ }$ M" y
CreateILockBytesOnHGlobal(NULL, TRUE, &Buffer); // Create ILockBytes Buffer
7 S/ D' {4 Q5 W% u3 S


HRESULT hr = ::StgCreateDocfileOnILockBytes(Buffer,
    STGM_SHARE_EXCLUSIVE | STGM_CREATE | STGM_READWRITE, 0, &pStorage);
, z, r2 E; y+ P


hr = pStorage->CreateStream(LPICTURE,
  STGM_SHARE_EXCLUSIVE | STGM_CREATE | STGM_READWRITE, 0, 0, &FileStream);
5 m: }# |1 p1 _7 m
5 ]1 T) E5 g! Z
" r2 I4 Z6 l. f1 x. P: e# O
m_pPict->SaveAsFile(FileStream, TRUE, &OutStream); // Copy Data Stream
FileStream->Release();
pStorage->Release();
Buffer->Flush();
- }' n; d5 s0 f1 e


// Get Statistics For Final Size Of Byte Array
Buffer->Stat(&BytesStatistics, STATFLAG_NONAME);

. X- P7 ^4 W* s) E- b0 U

' D; S5 K, ^# P, Z- P& G // Cut UnNeeded Data Coming From SaveAsFile() (Leave Only Pure Picture Data)
SkipFloat = (double(OutStream) / 512); // Must Be In a 512 Blocks...
7 d0 H' e" M% u5 l. ^8 L$ y( h if(SkipFloat > DWORD(SkipFloat)) ByteSkip = (DWORD)SkipFloat + 1;
& L) d9 ?; H- X9 c else ByteSkip = (DWORD)SkipFloat;
ByteSkip = ByteSkip * 512; // Must Be In a 512 Blocks...
# i2 r$ Z" L( X, N
// Find Difference Between The Two Values
ByteSkip = (DWORD)(BytesStatistics.cbSize.QuadPart - ByteSkip);
) _6 \) m% w3 {8 A+ k* J

2 G! a2 }9 I6 J% D
// Allocate Only The Pure Picture Data
% f6 f' i6 K. |( r/ J, n" ^( C! o5 I' ? RealData.LowPart = 0;
9 A8 W6 i  r9 q# e) S RealData.HighPart = 0;
RealData.QuadPart = ByteSkip;
  R5 w  G8 A" k; J, M4 c BufferBytes = (BYTE*)malloc(OutStream);
3 s# a9 j. ]1 d! e if(BufferBytes == NULL)
  {
! g$ }. C( |9 w1 s. _) @  Buffer->Release();
' B; @) O7 u5 e6 o, g$ }% @  HWND hWnd = AfxGetApp()->GetMainWnd()->m_hWnd;
* ?! t7 c" C' a+ |* v1 a  MessageBoxEx(hWnd, Can not allocate enough memory\\t, ERROR_TITLE, MB_OK | MB_ICONSTOP, LANG_ENGLISH);
  }



' l7 r! b9 x5 c+ A: e1 w. \  _2 H Buffer->ReadAt(RealData, BufferBytes, OutStream, &OutData);
- {8 P; h- F5 s1 P( K" G


, s/ N* p: R7 q' I if(BitmapFile.Open(sFilePathName, CFile::typeBinary | CFile::modeCreate | CFile::modeWrite, &e))
- ~5 E" C2 _: u$ S, _  {
9 d/ Y6 |- k$ q; L- o/ @3 {* u. e+ k  BitmapFile.Write(BufferBytes, OutData);
2 Q  o) I" j5 I2 O$ @  n8 p# Y- |4 X  BitmapFile.Close();
" ]! A4 v. w& h: y/ g. a% n  bResult = TRUE;
6 Q6 }$ K2 W$ }* h2 A  }
else // Write File Failed...
  {
  TCHAR szCause[255];
  e.GetErrorMessage(szCause, 255, NULL);
9 r. u7 h; ~( c) \, R9 N" p- n& t  HWND hWnd = AfxGetApp()->GetMainWnd()->m_hWnd;
  MessageBoxEx(hWnd, szCause, ERROR_TITLE, MB_OK | MB_ICONSTOP, LANG_ENGLISH);
7 Z. q! i2 V+ o/ n2 M  bResult = FALSE;
  }

" d! J3 t& |. v+ S Buffer->Release();
free(BufferBytes);
1 R/ _. e; V$ h

. Q0 V4 f" Z, o2 o$ A
6 n  q! r  m6 Z( T  b9 G return(bResult);
2 f1 W- L5 v: G& S+ K) p: [0 _}