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

天云上人

  BOOL CPicture::SaveAsBitmap(CString sFilePathName)
//=============================================================================
+ P7 i6 B; k+ V. |2 L{
; C( @8 V( _, P; i" R BOOL bResult = FALSE;
ILockBytes *Buffer = 0;
+ S* o# U4 J# K) ]& W8 l* d IStorage   *pStorage = 0;
8 @" K) q, |% `, t8 s  }, y3 U+ J IStream    *FileStream = 0;
. X) K% ~: q; [9 G, R9 F& H BYTE    *BufferBytes;
STATSTG  BytesStatistics;
/ R# I9 t% ^, b2 @: Z& \ DWORD  OutData;
9 n( ]1 G& X" X: T long  OutStream;
CFile  BitmapFile; CFileException e;
, F0 }; k5 B6 j) k, k6 v double  SkipFloat = 0;
1 g+ J* N" g$ B! B- p DWORD  ByteSkip = 0;
3 N! t7 q4 [3 E! S5 X8 [ _ULARGE_INTEGER RealData;

- S- t+ }- g; j4 b8 B5 P
" ^4 j+ o( L8 p7 t+ l
# G& J$ w- H- b/ v% F8 y CreateILockBytesOnHGlobal(NULL, TRUE, &Buffer); // Create ILockBytes Buffer



9 N/ V( @2 C) g2 R# q% ? HRESULT hr = ::StgCreateDocfileOnILockBytes(Buffer,
    STGM_SHARE_EXCLUSIVE | STGM_CREATE | STGM_READWRITE, 0, &pStorage);

/ M; `. p) _/ R( i  [+ E* b
4 Z$ J2 L# y) _  ~0 C. P
hr = pStorage->CreateStream(LPICTURE,
  STGM_SHARE_EXCLUSIVE | STGM_CREATE | STGM_READWRITE, 0, 0, &FileStream);


7 @- Y* K/ g' U
m_pPict->SaveAsFile(FileStream, TRUE, &OutStream); // Copy Data Stream
FileStream->Release();
+ U/ [+ s8 p. W# q" F pStorage->Release();
Buffer->Flush();
5 n& v% n- m3 P; f2 Z3 o# ]
9 X" w- C' q" X" ?/ E/ I
3 ^; U- c5 [5 h+ D; |
// Get Statistics For Final Size Of Byte Array
! V+ ^& g9 q3 c; ^$ h  h7 i Buffer->Stat(&BytesStatistics, STATFLAG_NONAME);
; P+ L4 V+ C7 c- d1 W

' b6 `/ O6 ^! {( @+ H
// Cut UnNeeded Data Coming From SaveAsFile() (Leave Only Pure Picture Data)
( |1 k% p" r  s& G+ M SkipFloat = (double(OutStream) / 512); // Must Be In a 512 Blocks...
, o4 u# C/ T4 ~# M if(SkipFloat > DWORD(SkipFloat)) ByteSkip = (DWORD)SkipFloat + 1;
% P! v2 ~  J4 V: \" R8 S8 D9 l else ByteSkip = (DWORD)SkipFloat;
  _3 T0 o, N% v; X3 Z' ^ ByteSkip = ByteSkip * 512; // Must Be In a 512 Blocks...

// Find Difference Between The Two Values
: W6 G, F, R3 C, _; b, w% D ByteSkip = (DWORD)(BytesStatistics.cbSize.QuadPart - ByteSkip);
+ E, S+ p7 p7 }5 t& |& ^


// Allocate Only The Pure Picture Data
0 q8 f4 t) r# l( G) m8 Y- n RealData.LowPart = 0;
RealData.HighPart = 0;
% \6 k9 F/ Z0 m* K& l4 Z8 _ RealData.QuadPart = ByteSkip;
BufferBytes = (BYTE*)malloc(OutStream);
* e8 @( Z. L8 G9 b  b* I if(BufferBytes == NULL)
+ b% e3 L; F6 l  {
% c. e6 ?  ?& P: s1 d4 w3 \& |* ?' Z  Buffer->Release();
  HWND hWnd = AfxGetApp()->GetMainWnd()->m_hWnd;
6 y* V, [! V) i1 t* x. |  MessageBoxEx(hWnd, Can not allocate enough memory\\t, ERROR_TITLE, MB_OK | MB_ICONSTOP, LANG_ENGLISH);
  }

3 G) ~' r, ^, X, {) X9 B

Buffer->ReadAt(RealData, BufferBytes, OutStream, &OutData);
4 H9 H; C3 B* d4 X
& W0 d# |% A7 F; B/ K) \4 K4 \. W
' o. u; p# h' ~! S6 z
- Z) l7 C$ ]! {: c' G if(BitmapFile.Open(sFilePathName, CFile::typeBinary | CFile::modeCreate | CFile::modeWrite, &e))
" Z5 H3 B4 }9 h" L/ R. Q  {
  BitmapFile.Write(BufferBytes, OutData);
# g. p$ O0 S( @, }3 k  BitmapFile.Close();
3 A4 V2 C9 s; H  bResult = TRUE;
7 Y* W5 F1 B/ _, Y! r  ]  }
' K$ r9 }( J/ z else // Write File Failed...
  {
  TCHAR szCause[255];
  e.GetErrorMessage(szCause, 255, NULL);
  HWND hWnd = AfxGetApp()->GetMainWnd()->m_hWnd;
1 d$ U! r4 r6 h& o1 L( s7 O  MessageBoxEx(hWnd, szCause, ERROR_TITLE, MB_OK | MB_ICONSTOP, LANG_ENGLISH);
  bResult = FALSE;
# F4 X, Q- S: C' ^  }

" K$ Z/ o5 ~( {# z+ ^8 n# V! q Buffer->Release();
free(BufferBytes);

- i" l' w' i0 D( T3 R
. {0 i- C9 ~, {! t! `
: u8 V  _" K* U1 ^% [ return(bResult);
}