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

天云上人

  BOOL CPicture::SaveAsBitmap(CString sFilePathName)
3 o6 X7 {; e( c% O) s7 d//=============================================================================
' f" H; t8 e- ?# `1 X{
" F2 k0 H* q3 n BOOL bResult = FALSE;
) b7 E: R* Y' g# y. J ILockBytes *Buffer = 0;
IStorage   *pStorage = 0;
IStream    *FileStream = 0;
" p" z% p2 }* V1 z! D" ?+ y BYTE    *BufferBytes;
3 q- I2 n& o3 y" K! q STATSTG  BytesStatistics;
* C, @0 n+ o, s7 t3 e' j2 D8 p5 x DWORD  OutData;
% A- ?( h3 Q) [$ q5 A/ T long  OutStream;
CFile  BitmapFile; CFileException e;
double  SkipFloat = 0;
DWORD  ByteSkip = 0;
_ULARGE_INTEGER RealData;
5 B( ]5 P4 K/ R3 p: S. ]# j% C
& c  v+ i2 v# R5 I/ V  I& v
. J5 r4 C2 r: \
4 L8 {& Z! y- l9 _3 M7 X" o CreateILockBytesOnHGlobal(NULL, TRUE, &Buffer); // Create ILockBytes Buffer
: g( W+ b0 y, \* n% x6 d& S" I2 A
' c# n3 `, f/ h6 V( l3 b
' Z; l7 D  m0 }8 W4 c8 Q+ C
9 F+ ]1 A4 H6 Z% l* }7 h! ~ HRESULT hr = ::StgCreateDocfileOnILockBytes(Buffer,
2 M8 Q8 a! F8 _- s3 k& W# o/ A! O8 Q6 L0 s     STGM_SHARE_EXCLUSIVE | STGM_CREATE | STGM_READWRITE, 0, &pStorage);
% M% Y! C, v5 Z) X- M; `/ `
1 X+ y+ |, G, ]+ |' x) J
+ _0 D, F/ ?4 n* y0 ~' d; a  g- W
3 f* M' k( O( l1 Y, k4 l8 q hr = pStorage->CreateStream(LPICTURE,
  STGM_SHARE_EXCLUSIVE | STGM_CREATE | STGM_READWRITE, 0, 0, &FileStream);

2 J. r* T5 B8 @$ B# X
- n1 G3 Q2 K3 V* \3 C
m_pPict->SaveAsFile(FileStream, TRUE, &OutStream); // Copy Data Stream
9 o& J9 @8 J* B4 M# i FileStream->Release();
: Y$ J* C; R) q( M' _ pStorage->Release();
Buffer->Flush();



// Get Statistics For Final Size Of Byte Array
" J1 k, x# q; p  N Buffer->Stat(&BytesStatistics, STATFLAG_NONAME);

9 N. M. e  V4 l; g

5 E/ m5 ]) d5 _4 \, i* v, l; Z! D // Cut UnNeeded Data Coming From SaveAsFile() (Leave Only Pure Picture Data)
! C8 F2 \( r" D8 U; x. c' j SkipFloat = (double(OutStream) / 512); // Must Be In a 512 Blocks...
if(SkipFloat > DWORD(SkipFloat)) ByteSkip = (DWORD)SkipFloat + 1;
else ByteSkip = (DWORD)SkipFloat;
- n, ]) o% v4 t9 h: W ByteSkip = ByteSkip * 512; // Must Be In a 512 Blocks...

+ u" @. W& Z/ `% ] // Find Difference Between The Two Values
& ^1 N5 n6 h2 |) \ ByteSkip = (DWORD)(BytesStatistics.cbSize.QuadPart - ByteSkip);



% J' b' V9 V5 b8 _, ] // Allocate Only The Pure Picture Data
8 ?  Z, H1 Q& L+ |7 i& t RealData.LowPart = 0;
% ^  G; V7 P$ ]6 u$ q4 h RealData.HighPart = 0;
4 C% U# V5 [0 |  T RealData.QuadPart = ByteSkip;
BufferBytes = (BYTE*)malloc(OutStream);
if(BufferBytes == NULL)
1 M3 M5 h  b" }) Q; t$ H3 a  {
7 [0 V& b4 U# O4 o# W' i  Buffer->Release();
  HWND hWnd = AfxGetApp()->GetMainWnd()->m_hWnd;
- V) _8 X) r9 J2 L: Z4 N" U8 M; v  MessageBoxEx(hWnd, Can not allocate enough memory\\t, ERROR_TITLE, MB_OK | MB_ICONSTOP, LANG_ENGLISH);
6 p' Q# U4 u  B7 J$ h! D# ~' Z  }
3 f2 E$ u2 q; ?# ]' Q

8 x1 |0 Q+ K' w
Buffer->ReadAt(RealData, BufferBytes, OutStream, &OutData);



6 l, ?3 {, e$ L8 v0 E8 A& Y2 y. O if(BitmapFile.Open(sFilePathName, CFile::typeBinary | CFile::modeCreate | CFile::modeWrite, &e))
, _+ H2 L0 H0 V( N  {
  BitmapFile.Write(BufferBytes, OutData);
$ J8 w7 S, o1 X( v  BitmapFile.Close();
% y' d1 Q5 Q# }, }6 Q9 f* J- w  bResult = TRUE;
  }
! p! e6 |( P# L# Q& t3 m else // Write File Failed...
& K5 Q' w4 W: o3 d9 V3 @  {
  TCHAR szCause[255];
) m4 P& W% r' \2 f2 Y! k" d' L  e.GetErrorMessage(szCause, 255, NULL);
' c) }1 X3 W! L% K: R. s: {  HWND hWnd = AfxGetApp()->GetMainWnd()->m_hWnd;
  MessageBoxEx(hWnd, szCause, ERROR_TITLE, MB_OK | MB_ICONSTOP, LANG_ENGLISH);
  bResult = FALSE;
  }
* R- M2 `& \' s
, U- P1 E; ^& y# C2 p7 H. I# g Buffer->Release();
9 E$ c& E* h" v9 | free(BufferBytes);
* w6 Z! S# ?+ m  k
" X* A% H2 U( z- l& a) Y$ V

1 u+ [9 R5 {) ?$ _' T return(bResult);
}