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

天云上人

  BOOL CPicture::SaveAsBitmap(CString sFilePathName)
//=============================================================================
{
$ c  G: ?) `( i/ A8 v  ~ BOOL bResult = FALSE;
) z6 N! L$ K6 H& W2 a ILockBytes *Buffer = 0;
, C. T7 K! l8 k( f IStorage   *pStorage = 0;
5 t! J. L% L- {( | IStream    *FileStream = 0;
BYTE    *BufferBytes;
STATSTG  BytesStatistics;
3 t9 H6 {, \* I9 Y% l, A3 R+ |$ P DWORD  OutData;
long  OutStream;
CFile  BitmapFile; CFileException e;
double  SkipFloat = 0;
DWORD  ByteSkip = 0;
+ I. A" b: O1 Q! } _ULARGE_INTEGER RealData;

) z& e0 Z' E- g  i- n) l8 q

CreateILockBytesOnHGlobal(NULL, TRUE, &Buffer); // Create ILockBytes Buffer

# G1 V) i% ?( K- v& B
! {  X; D$ d8 t% p7 m3 U
HRESULT hr = ::StgCreateDocfileOnILockBytes(Buffer,
% y9 [# o1 i+ ~, I7 v6 L9 |2 c! q- O     STGM_SHARE_EXCLUSIVE | STGM_CREATE | STGM_READWRITE, 0, &pStorage);
! A5 z) [7 n2 e0 g1 ?  {( T4 h


hr = pStorage->CreateStream(LPICTURE,
  STGM_SHARE_EXCLUSIVE | STGM_CREATE | STGM_READWRITE, 0, 0, &FileStream);
/ r' u; b& e' ^# ^: M( |
. R* s: u; n" y0 Y, ~* I: U

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


, m4 \+ q& ~  c% y, R) x9 R
' o3 S5 U& [* U9 |! P+ @! i( `' s // Get Statistics For Final Size Of Byte Array
+ Y  v8 u9 W5 J) y( X Buffer->Stat(&BytesStatistics, STATFLAG_NONAME);
6 w/ y" G* V) J4 J" E+ ^, {4 A
* E% B: j0 H% l1 c) e7 B
7 A1 C! F! `* M1 a! [* D
) k' n, F1 r$ h; z& H* l+ F, t$ v // Cut UnNeeded Data Coming From SaveAsFile() (Leave Only Pure Picture Data)
SkipFloat = (double(OutStream) / 512); // Must Be In a 512 Blocks...
7 w$ {7 R+ Z7 t. ~3 D1 r+ n/ M if(SkipFloat > DWORD(SkipFloat)) ByteSkip = (DWORD)SkipFloat + 1;
else ByteSkip = (DWORD)SkipFloat;
ByteSkip = ByteSkip * 512; // Must Be In a 512 Blocks...
- n% e/ B9 _' C! g7 i: @$ U/ Z
// Find Difference Between The Two Values
ByteSkip = (DWORD)(BytesStatistics.cbSize.QuadPart - ByteSkip);
1 ^- J! P, C: G. w/ |0 z

9 Y. {2 s% m5 I4 K, W9 ?* A  A
// Allocate Only The Pure Picture Data
  V0 S& _% ~- K* X& d) V7 d# | RealData.LowPart = 0;
RealData.HighPart = 0;
! u' O8 d% Z2 r, @: G: u9 d( J5 \% R! ~ RealData.QuadPart = ByteSkip;
BufferBytes = (BYTE*)malloc(OutStream);
if(BufferBytes == NULL)
6 ~" b0 V& R0 O% X+ {  {
! @; d% O: ~* z% d$ C- P$ q1 ~  Buffer->Release();
  HWND hWnd = AfxGetApp()->GetMainWnd()->m_hWnd;
  MessageBoxEx(hWnd, Can not allocate enough memory\\t, ERROR_TITLE, MB_OK | MB_ICONSTOP, LANG_ENGLISH);
6 z2 K. _, B$ I: [' W* @/ f  }
7 B0 w! |, j  K6 W' t5 H9 K+ p
2 G' T7 u/ a& u; n  }2 X4 W1 v# j5 z
' {. v8 `, O2 i
8 t' |4 V% j* g3 F4 J& y Buffer->ReadAt(RealData, BufferBytes, OutStream, &OutData);
0 q; S8 }5 @/ S0 r: R6 g  ^( `

$ D3 m) c6 j1 e9 ?7 z- c( t: v
7 J% u8 [2 j5 K# x if(BitmapFile.Open(sFilePathName, CFile::typeBinary | CFile::modeCreate | CFile::modeWrite, &e))
5 S4 C% `- z; x  l/ g4 v  {
  BitmapFile.Write(BufferBytes, OutData);
  BitmapFile.Close();
$ H; e# e; _' X2 q7 {# i  bResult = TRUE;
4 i# l/ ?% P2 |6 g% \! x  }
else // Write File Failed...
+ P3 [  w5 E1 ]& t1 a; v- V; ~  {
  TCHAR szCause[255];
6 }- A& ]# q, w  e.GetErrorMessage(szCause, 255, NULL);
, B, `" r  W' x0 n- d/ i5 ~  HWND hWnd = AfxGetApp()->GetMainWnd()->m_hWnd;
; _. X4 n9 ^. L5 v+ B2 h# P# W  MessageBoxEx(hWnd, szCause, ERROR_TITLE, MB_OK | MB_ICONSTOP, LANG_ENGLISH);
  bResult = FALSE;
  }

2 `6 _4 c% B" E! i2 w7 w  ? Buffer->Release();
free(BufferBytes);
0 ^$ m: Y1 l5 q$ X, b$ Z
! ~2 s1 {& i2 R1 i* N

0 W0 t- C8 t, x& y return(bResult);
' r5 n- x- x$ j}