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

天云上人

  BOOL CPicture::SaveAsBitmap(CString sFilePathName)
//=============================================================================
2 }6 O8 W0 r* \' j( F1 T{
BOOL bResult = FALSE;
ILockBytes *Buffer = 0;
2 {/ e( t- P5 s+ ^7 A# z1 ~3 S+ D IStorage   *pStorage = 0;
IStream    *FileStream = 0;
) I. O" i  T& `" P/ k BYTE    *BufferBytes;
0 ^$ j8 f* C# P1 [  w/ E STATSTG  BytesStatistics;
DWORD  OutData;
long  OutStream;
CFile  BitmapFile; CFileException e;
double  SkipFloat = 0;
DWORD  ByteSkip = 0;
_ULARGE_INTEGER RealData;
- a4 A6 i( h3 d# ^9 q
. W8 x9 V% M( w1 j
- q' U8 u% K) e/ A& B
: b' ^. d( o+ J* R% {( w CreateILockBytesOnHGlobal(NULL, TRUE, &Buffer); // Create ILockBytes Buffer
7 |- i# f0 J+ X# a
% z7 X( i0 Y+ n

HRESULT hr = ::StgCreateDocfileOnILockBytes(Buffer,
    STGM_SHARE_EXCLUSIVE | STGM_CREATE | STGM_READWRITE, 0, &pStorage);

  w$ [4 C6 D0 j/ ?
: q7 `9 T* @8 P. l" F. L
hr = pStorage->CreateStream(LPICTURE,
  STGM_SHARE_EXCLUSIVE | STGM_CREATE | STGM_READWRITE, 0, 0, &FileStream);

' ^7 R5 [( `2 o- W; R2 s; c

! i" b0 H3 K( z. a' \. \ m_pPict->SaveAsFile(FileStream, TRUE, &OutStream); // Copy Data Stream
" P6 o  R5 I) u: G' ]8 i) x# y FileStream->Release();
pStorage->Release();
Buffer->Flush();



// Get Statistics For Final Size Of Byte Array
Buffer->Stat(&BytesStatistics, STATFLAG_NONAME);
' c/ E, d5 v1 g6 S: B
! B+ K) ?# P, u/ H7 Z. J

// Cut UnNeeded Data Coming From SaveAsFile() (Leave Only Pure Picture Data)
SkipFloat = (double(OutStream) / 512); // Must Be In a 512 Blocks...
if(SkipFloat > DWORD(SkipFloat)) ByteSkip = (DWORD)SkipFloat + 1;
else ByteSkip = (DWORD)SkipFloat;
4 o! H, i6 N9 I% p ByteSkip = ByteSkip * 512; // Must Be In a 512 Blocks...
1 R7 R) F  p& I6 L2 \6 {: |
: g# |8 X+ e* p3 N- R // Find Difference Between The Two Values
5 K7 g* x6 C6 i6 Y3 E# @& S& {$ C ByteSkip = (DWORD)(BytesStatistics.cbSize.QuadPart - ByteSkip);

7 g2 O$ O+ i- `- s0 F3 ~3 \& x
; [8 L# Y+ q, E  c9 p
6 X! R' k% s# D1 I# x // Allocate Only The Pure Picture Data
: a3 a# k8 v% G6 l3 k# C RealData.LowPart = 0;
6 a4 F1 I( y, Z3 G RealData.HighPart = 0;
RealData.QuadPart = ByteSkip;
; c! e7 X! I8 e- y- T! E BufferBytes = (BYTE*)malloc(OutStream);
if(BufferBytes == NULL)
0 g, x' Z0 d! f  {
( h7 v" f/ n2 V$ |& p  Buffer->Release();
  HWND hWnd = AfxGetApp()->GetMainWnd()->m_hWnd;
  S) n# j6 G* t- f$ ?1 W  MessageBoxEx(hWnd, Can not allocate enough memory\\t, ERROR_TITLE, MB_OK | MB_ICONSTOP, LANG_ENGLISH);
4 y, `) a1 C4 t2 H5 h+ H  }

' H+ Z+ n( U0 l8 z
0 ?5 P9 t( e! V/ n% f8 D, Q0 N
Buffer->ReadAt(RealData, BufferBytes, OutStream, &OutData);

' V! [' m( _% T

if(BitmapFile.Open(sFilePathName, CFile::typeBinary | CFile::modeCreate | CFile::modeWrite, &e))
  [$ {) Y" _2 v4 l" |9 v9 V2 Q$ B4 L/ j  {
" b! X4 N8 A$ s* y0 S  BitmapFile.Write(BufferBytes, OutData);
9 [4 k: ~3 i# V) i  BitmapFile.Close();
5 r5 d  A& e1 O. t- v) }. t! n& Q4 c  bResult = TRUE;
  }
else // Write File Failed...
; Y5 z+ ~+ y( k0 t$ f  {
  TCHAR szCause[255];
' n7 B- B: k- N2 ?1 Z$ z2 R  e.GetErrorMessage(szCause, 255, NULL);
  HWND hWnd = AfxGetApp()->GetMainWnd()->m_hWnd;
  MessageBoxEx(hWnd, szCause, ERROR_TITLE, MB_OK | MB_ICONSTOP, LANG_ENGLISH);
" y, ~2 L/ g* W0 z1 q3 I  bResult = FALSE;
  }
" M7 @! F, o; u6 r+ B
+ c7 r% F9 m  G. j2 y. r  X1 u( z Buffer->Release();
+ |8 z$ ^" _2 u) @% L3 E free(BufferBytes);

- X& r: ]" p# ]+ f# \$ m- M6 H% Y

return(bResult);
+ c1 F" _* _+ K- s( Q! z. K! ^}