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

天云上人

  BOOL CPicture::SaveAsBitmap(CString sFilePathName)
: |& n5 p. i9 Q% q2 `//=============================================================================
, x1 o0 d3 J5 C# [( ^{
2 F$ F# d2 {3 w0 X BOOL bResult = FALSE;
! ]$ `/ m* n  y* P# T4 }6 s4 m ILockBytes *Buffer = 0;
/ E: z. _% C4 b4 @4 x; m IStorage   *pStorage = 0;
IStream    *FileStream = 0;
BYTE    *BufferBytes;
STATSTG  BytesStatistics;
, g7 V# k' a6 F9 m2 J1 c$ y# ^ DWORD  OutData;
long  OutStream;
( [3 |3 Y" v  K CFile  BitmapFile; CFileException e;
8 M6 p3 Q/ Q) U5 C0 O% K) P/ J double  SkipFloat = 0;
DWORD  ByteSkip = 0;
- k! y" I( H+ E _ULARGE_INTEGER RealData;

9 G' u: f/ J2 u, ]

9 C+ \5 X7 {7 P! w3 I3 c# { CreateILockBytesOnHGlobal(NULL, TRUE, &Buffer); // Create ILockBytes Buffer
  d/ t5 R$ w" U! i9 S& P/ ~
+ H; M7 S- x! g5 h
& n" F* E% t. z9 e1 G5 J2 K8 N; i
HRESULT hr = ::StgCreateDocfileOnILockBytes(Buffer,
9 |, m3 K4 Z. I* @# I     STGM_SHARE_EXCLUSIVE | STGM_CREATE | STGM_READWRITE, 0, &pStorage);

9 n/ N' R9 b2 B# P5 I

- V  Q# e/ f) |  m2 g; J hr = pStorage->CreateStream(LPICTURE,
  STGM_SHARE_EXCLUSIVE | STGM_CREATE | STGM_READWRITE, 0, 0, &FileStream);
" n- v/ ]4 N  Q5 T8 j

' p, L2 _( ?8 w- A
m_pPict->SaveAsFile(FileStream, TRUE, &OutStream); // Copy Data Stream
& [1 u1 E* C/ f! Z FileStream->Release();
" H+ r; @, {3 A- l& Y! u7 y pStorage->Release();
Buffer->Flush();


2 N+ b( r8 O0 J* u3 L8 ~
' Y& j, _, j1 f$ m% `  j% X6 W9 i( {, h // Get Statistics For Final Size Of Byte Array
: C' G2 s4 _% y2 X" L4 s4 M3 Z Buffer->Stat(&BytesStatistics, STATFLAG_NONAME);
+ ^! s- I, S+ ?" }7 ~
' v6 I* W0 A( ]1 N" k& s/ b: r

5 O0 |1 Y. Q" m1 i3 s // Cut UnNeeded Data Coming From SaveAsFile() (Leave Only Pure Picture Data)
/ C& |" ~8 T( `( q5 } SkipFloat = (double(OutStream) / 512); // Must Be In a 512 Blocks...
; m/ b- I# n% Z if(SkipFloat > DWORD(SkipFloat)) ByteSkip = (DWORD)SkipFloat + 1;
4 b5 _; V& x! y0 f4 a4 w1 c+ s else ByteSkip = (DWORD)SkipFloat;
2 L; a* a( S9 b( H) q ByteSkip = ByteSkip * 512; // Must Be In a 512 Blocks...
/ P4 X+ E( }7 ]0 M
: Z, U. z& G) Y% }7 B4 z$ L // Find Difference Between The Two Values
$ _: C- Z2 D6 Y* x9 y4 ^ ByteSkip = (DWORD)(BytesStatistics.cbSize.QuadPart - ByteSkip);

2 {4 ?  O8 n( Q8 Q  A" \8 V

// Allocate Only The Pure Picture Data
) e3 \( M. k, U4 @1 c/ d2 A3 b' x RealData.LowPart = 0;
2 Y' D5 |4 w# x. ~& O) b RealData.HighPart = 0;
  u- A) }0 L5 l1 o; O8 X* M RealData.QuadPart = ByteSkip;
BufferBytes = (BYTE*)malloc(OutStream);
$ z$ ?9 |* l* k$ P+ w) g if(BufferBytes == NULL)
$ E9 |7 @2 h7 @% U* |- B; ]  {
5 c2 O6 P% u0 `: P3 G  Buffer->Release();
9 n7 L; V, L9 s5 w2 E- u" p  HWND hWnd = AfxGetApp()->GetMainWnd()->m_hWnd;
8 p$ o0 y) L9 h) t3 S4 o  MessageBoxEx(hWnd, Can not allocate enough memory\\t, ERROR_TITLE, MB_OK | MB_ICONSTOP, LANG_ENGLISH);
7 ^" L% S3 ?# G/ R) t  }
3 g1 }' @% P' E
4 H. G$ n0 j0 T7 y0 u
9 X+ j% B0 y5 w
Buffer->ReadAt(RealData, BufferBytes, OutStream, &OutData);

" K/ ^2 ?, z6 |0 `

if(BitmapFile.Open(sFilePathName, CFile::typeBinary | CFile::modeCreate | CFile::modeWrite, &e))
  {
) x  ^: b7 c/ O. a. ^  BitmapFile.Write(BufferBytes, OutData);
$ Q  d+ s1 p2 ^; F# X" c' @$ F  BitmapFile.Close();
+ w) `5 i& U* K# ]8 R  bResult = TRUE;
$ Z, N+ h. ?, Q  }
else // Write File Failed...
! T1 s1 T) ]5 y. v3 P- \  {
: ~  q$ f: y) x' k+ j; I  TCHAR szCause[255];
  e.GetErrorMessage(szCause, 255, NULL);
) ?  T8 A( p# l4 |. S  HWND hWnd = AfxGetApp()->GetMainWnd()->m_hWnd;
3 R' `& N3 {, {/ y  Y  MessageBoxEx(hWnd, szCause, ERROR_TITLE, MB_OK | MB_ICONSTOP, LANG_ENGLISH);
3 i9 L+ h8 r/ N0 h) y8 S2 ]  bResult = FALSE;
  }

Buffer->Release();
- K. E5 g/ [- } free(BufferBytes);
% P4 v2 f- n% i$ i
8 e2 v  u  S! |" I' j+ m
" L% o* A) E) d: A' S; Z* C2 _- u9 {
1 ~* [) z# m! A5 `/ v& b return(bResult);
2 W3 u: S# `. U* G) b$ V+ o}