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

天云上人

  BOOL CPicture::SaveAsBitmap(CString sFilePathName)
: \0 O$ d8 C& b& _: w8 W- ?//=============================================================================
7 X, K7 `: L. O6 L4 D6 _! x{
BOOL bResult = FALSE;
ILockBytes *Buffer = 0;
IStorage   *pStorage = 0;
, e3 X- C( Z: e: d IStream    *FileStream = 0;
BYTE    *BufferBytes;
" j4 G7 D; j( N: t( U/ D: U: Z, a STATSTG  BytesStatistics;
1 P4 j* D$ O5 s DWORD  OutData;
2 g' c) N8 t* U3 |" V" X+ F long  OutStream;
3 x& P' n& L: Z CFile  BitmapFile; CFileException e;
double  SkipFloat = 0;
DWORD  ByteSkip = 0;
_ULARGE_INTEGER RealData;
  U& W1 C% v' f  w6 X( d0 E
) s  e# x. n( ?3 x+ i6 b5 O
6 v: H9 [3 G/ U9 l. ?' W
CreateILockBytesOnHGlobal(NULL, TRUE, &Buffer); // Create ILockBytes Buffer
6 v' c' Z. \. \" _) N8 f


HRESULT hr = ::StgCreateDocfileOnILockBytes(Buffer,
* w' V( _0 e% n1 L- J1 D4 j8 U     STGM_SHARE_EXCLUSIVE | STGM_CREATE | STGM_READWRITE, 0, &pStorage);
. ?" ~- m1 z5 K) v2 ?1 @5 n8 {( p
. h! g5 X% c4 \# V8 R" o, g

/ G- \0 [2 n- L hr = pStorage->CreateStream(LPICTURE,
; m' l) F6 z) A   STGM_SHARE_EXCLUSIVE | STGM_CREATE | STGM_READWRITE, 0, 0, &FileStream);
8 F6 Q* s# |/ [* H0 ?; M1 h


  P) V9 D* _2 w1 T m_pPict->SaveAsFile(FileStream, TRUE, &OutStream); // Copy Data Stream
FileStream->Release();
6 b! [$ Q  v& n$ Q pStorage->Release();
Buffer->Flush();

" M; G% m4 A  A2 C0 t" @$ r
" m" ~5 D8 C! n2 B
/ A& e& H+ K" R6 F8 n# e# q$ u // Get Statistics For Final Size Of Byte Array
. D; z, H! d8 @6 h# [+ }+ u Buffer->Stat(&BytesStatistics, STATFLAG_NONAME);



// Cut UnNeeded Data Coming From SaveAsFile() (Leave Only Pure Picture Data)
0 \) `% T- C# u# L: P SkipFloat = (double(OutStream) / 512); // Must Be In a 512 Blocks...
- p& ?$ U/ m1 m$ h2 g) W if(SkipFloat > DWORD(SkipFloat)) ByteSkip = (DWORD)SkipFloat + 1;
$ F1 e5 h: E7 }$ D! x else ByteSkip = (DWORD)SkipFloat;
( {' U9 a/ Y' t0 @* P5 G9 j ByteSkip = ByteSkip * 512; // Must Be In a 512 Blocks...
) h5 P8 a8 [0 w0 e8 L5 H- z% q
// Find Difference Between The Two Values
2 s. G# g# u  P+ b9 a- ^- }! h# X6 T ByteSkip = (DWORD)(BytesStatistics.cbSize.QuadPart - ByteSkip);
! K; X5 f6 Y- \3 q


  n! v5 B# P1 X5 m // Allocate Only The Pure Picture Data
9 P/ t; j. o8 ~8 L4 e) K RealData.LowPart = 0;
4 Q+ Y  ?2 A+ _: W; n8 R9 |$ Y RealData.HighPart = 0;
RealData.QuadPart = ByteSkip;
BufferBytes = (BYTE*)malloc(OutStream);
if(BufferBytes == NULL)
  {
  Buffer->Release();
" n' i; E6 Q# h) A" p( P# Z3 J  HWND hWnd = AfxGetApp()->GetMainWnd()->m_hWnd;
  MessageBoxEx(hWnd, Can not allocate enough memory\\t, ERROR_TITLE, MB_OK | MB_ICONSTOP, LANG_ENGLISH);
  }
5 _/ [/ H4 `6 S6 M; m


Buffer->ReadAt(RealData, BufferBytes, OutStream, &OutData);
1 {2 }- S! ]9 O; i
6 c6 q6 L; O- [1 B6 q* F' k

if(BitmapFile.Open(sFilePathName, CFile::typeBinary | CFile::modeCreate | CFile::modeWrite, &e))
  {
1 f$ S3 m9 p* a$ B. {% g% J  BitmapFile.Write(BufferBytes, OutData);
0 b$ z* g3 n4 n( @  BitmapFile.Close();
6 d: c9 G/ V$ x  bResult = TRUE;
5 I4 b' {5 E& S  \$ e  }
else // Write File Failed...
  {
  TCHAR szCause[255];
5 z5 w9 H7 J2 s. [  e.GetErrorMessage(szCause, 255, NULL);
, c3 G4 s$ e, _: d- X1 y" V/ |  HWND hWnd = AfxGetApp()->GetMainWnd()->m_hWnd;
' ~- n! e- j0 |/ T- s- p  MessageBoxEx(hWnd, szCause, ERROR_TITLE, MB_OK | MB_ICONSTOP, LANG_ENGLISH);
  bResult = FALSE;
1 ]) R1 M. x. N- e4 M# ?  H9 P  }

: Q7 I0 Q9 X! H Buffer->Release();
free(BufferBytes);
# V, t. G. S% s& d4 o' \. D' J2 ~+ i
6 v% J+ ?' k; f! p0 {

/ m3 B. P/ o& J, u8 h/ p2 ^ return(bResult);
}