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

天云上人

  BOOL CPicture::SaveAsBitmap(CString sFilePathName)
//=============================================================================
" s: m2 O! X! Y$ w' X{
BOOL bResult = FALSE;
ILockBytes *Buffer = 0;
IStorage   *pStorage = 0;
IStream    *FileStream = 0;
0 N3 r- |1 b4 g  \6 Z" E$ b BYTE    *BufferBytes;
8 M( a2 `8 r' B STATSTG  BytesStatistics;
DWORD  OutData;
long  OutStream;
9 s& Q* r6 c) j1 v( { CFile  BitmapFile; CFileException e;
$ J4 m5 s8 e8 [! T6 R double  SkipFloat = 0;
DWORD  ByteSkip = 0;
_ULARGE_INTEGER RealData;
1 {: ?$ |' @" U6 U! l5 k
- }: p; E' q% g7 M5 J: G

CreateILockBytesOnHGlobal(NULL, TRUE, &Buffer); // Create ILockBytes Buffer
9 Y; u. |7 P: b, ]3 \
* k- s! X7 [* d: S
* m- o  e1 W! u
' u; e  R" w# @- { HRESULT hr = ::StgCreateDocfileOnILockBytes(Buffer,
2 n: i% S, j! g2 g( J; P     STGM_SHARE_EXCLUSIVE | STGM_CREATE | STGM_READWRITE, 0, &pStorage);
  c. J1 Z! m6 Z5 N  ~8 h

2 e/ |8 p2 |8 E  j3 ^% Q0 s
8 H1 t# a, Z% D! }0 f" x# r hr = pStorage->CreateStream(LPICTURE,
  STGM_SHARE_EXCLUSIVE | STGM_CREATE | STGM_READWRITE, 0, 0, &FileStream);

2 d) Z2 A* e" H0 D

m_pPict->SaveAsFile(FileStream, TRUE, &OutStream); // Copy Data Stream
FileStream->Release();
pStorage->Release();
Buffer->Flush();



0 N: u1 r- Y2 ]8 r" `( o // Get Statistics For Final Size Of Byte Array
Buffer->Stat(&BytesStatistics, STATFLAG_NONAME);
8 e( \# u" j" }7 y8 U

9 X! l" U  ~% m3 M
// Cut UnNeeded Data Coming From SaveAsFile() (Leave Only Pure Picture Data)
& v; i0 z& T8 i) x$ S. C SkipFloat = (double(OutStream) / 512); // Must Be In a 512 Blocks...
9 q! \+ ?. u3 V" v if(SkipFloat > DWORD(SkipFloat)) ByteSkip = (DWORD)SkipFloat + 1;
else ByteSkip = (DWORD)SkipFloat;
) f! C- I- T2 I7 T ByteSkip = ByteSkip * 512; // Must Be In a 512 Blocks...
- T& e4 b9 D4 P- O( ~% l4 @9 p
, C1 S# N5 g3 w# s // Find Difference Between The Two Values
ByteSkip = (DWORD)(BytesStatistics.cbSize.QuadPart - ByteSkip);
! V4 o+ b6 ?' a
7 u" G1 a6 s! J2 \

9 X" C  \$ y2 c3 I // Allocate Only The Pure Picture Data
% \; p+ j% ~1 J2 z3 Y; R RealData.LowPart = 0;
) q8 N8 X& h7 L  p3 L  `7 r RealData.HighPart = 0;
: K! Q' g- z. Q+ @& L2 p RealData.QuadPart = ByteSkip;
# P2 B2 N# f! S BufferBytes = (BYTE*)malloc(OutStream);
0 c+ H1 C) k# ^; Q4 z9 l) m if(BufferBytes == NULL)
/ D" `, @$ y( V( K4 `  {
5 f$ ^6 `! ^% ^3 n/ j3 W% b* X9 v  Buffer->Release();
  HWND hWnd = AfxGetApp()->GetMainWnd()->m_hWnd;
( p- h" [% I! s$ t' }" _/ g2 b7 B  MessageBoxEx(hWnd, Can not allocate enough memory\\t, ERROR_TITLE, MB_OK | MB_ICONSTOP, LANG_ENGLISH);
  }

% w& G& ?7 ]: B! g
$ \1 W5 u7 K  `+ s! h* g1 k9 K
; Y- [$ f1 A2 d8 s' M Buffer->ReadAt(RealData, BufferBytes, OutStream, &OutData);

- I, o6 {7 p" ~5 e$ d- O( g  D7 u
9 v3 F8 X) ?5 b1 O, H' X
if(BitmapFile.Open(sFilePathName, CFile::typeBinary | CFile::modeCreate | CFile::modeWrite, &e))
2 x0 ?7 h5 Q2 W3 B" V/ W% X  {
! n" c& O- h8 A# D  BitmapFile.Write(BufferBytes, OutData);
* Z8 c- t' n; q4 N" r/ f( F  BitmapFile.Close();
  bResult = TRUE;
9 X$ C  U( ?% h! J9 b* _5 `  }
else // Write File Failed...
  {
  TCHAR szCause[255];
  e.GetErrorMessage(szCause, 255, NULL);
  HWND hWnd = AfxGetApp()->GetMainWnd()->m_hWnd;
& m7 M, R2 Q4 N1 M) x  MessageBoxEx(hWnd, szCause, ERROR_TITLE, MB_OK | MB_ICONSTOP, LANG_ENGLISH);
, [- n) e# A& g6 C: e/ G' i  bResult = FALSE;
4 L3 q  d: v; d, \( w5 |5 Z% r  }
- b8 ~% }0 q' J6 z
Buffer->Release();
! }- \3 G0 X. @* R" R( D free(BufferBytes);
- A  u' A4 B( F
* r) B% _* K0 m2 W% J* N( h

return(bResult);
}