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

天云上人

  BOOL CPicture::SaveAsBitmap(CString sFilePathName)
//=============================================================================
{
3 h! s3 N+ g7 Q BOOL bResult = FALSE;
* A5 d3 @- S4 b2 S# i/ y8 c2 j! m ILockBytes *Buffer = 0;
IStorage   *pStorage = 0;
. R/ q9 Q& s6 D( B IStream    *FileStream = 0;
: U0 t/ G9 W7 Z" t% X BYTE    *BufferBytes;
9 g) v* a* w& W+ ^ STATSTG  BytesStatistics;
% Q4 [' B- @4 d. D; D$ M DWORD  OutData;
7 E9 k; t1 H$ {* S: j* x! | long  OutStream;
0 d7 d& ?, m( s" C3 s! J4 G CFile  BitmapFile; CFileException e;
double  SkipFloat = 0;
! x. o8 B9 g5 ]# P9 k  I5 X7 X DWORD  ByteSkip = 0;
$ l) r$ k5 l8 C( N _ULARGE_INTEGER RealData;


8 F: F7 I9 L4 K9 j
3 x9 u4 k, Q8 j7 y CreateILockBytesOnHGlobal(NULL, TRUE, &Buffer); // Create ILockBytes Buffer

! w( z- p. t6 t" V& ^

- l& x& q/ N- Z& ?0 {% ^) o5 m HRESULT hr = ::StgCreateDocfileOnILockBytes(Buffer,
4 ^* N, I; A) }8 i) E     STGM_SHARE_EXCLUSIVE | STGM_CREATE | STGM_READWRITE, 0, &pStorage);


2 q' d; I$ W+ c- w: }( K
hr = pStorage->CreateStream(LPICTURE,
) P% Y. j" H9 C6 w3 Q/ E# f   STGM_SHARE_EXCLUSIVE | STGM_CREATE | STGM_READWRITE, 0, 0, &FileStream);

$ D4 h) S, u" s  v# A. R, E9 D& P/ G* g
$ z5 L" N, n' M
m_pPict->SaveAsFile(FileStream, TRUE, &OutStream); // Copy Data Stream
0 K; }! B/ W. U# f5 i( B* f9 R9 m FileStream->Release();
pStorage->Release();
+ d' p* R$ A/ E8 b' @' s Buffer->Flush();



// Get Statistics For Final Size Of Byte Array
Buffer->Stat(&BytesStatistics, STATFLAG_NONAME);
* {1 h1 p* k+ ^5 F2 Z& ^
- R. h; B8 {& d5 `

// Cut UnNeeded Data Coming From SaveAsFile() (Leave Only Pure Picture Data)
SkipFloat = (double(OutStream) / 512); // Must Be In a 512 Blocks...
$ s# p% g4 g2 s2 b" E6 |; a. a if(SkipFloat > DWORD(SkipFloat)) ByteSkip = (DWORD)SkipFloat + 1;
else ByteSkip = (DWORD)SkipFloat;
ByteSkip = ByteSkip * 512; // Must Be In a 512 Blocks...
0 @, U. @$ |# [# J) \
// Find Difference Between The Two Values
ByteSkip = (DWORD)(BytesStatistics.cbSize.QuadPart - ByteSkip);
* v' n+ V' D# \

$ ]4 g* \# B; g3 ~7 P
// Allocate Only The Pure Picture Data
RealData.LowPart = 0;
RealData.HighPart = 0;
RealData.QuadPart = ByteSkip;
BufferBytes = (BYTE*)malloc(OutStream);
" s5 k% t! E, B* ^. o& G if(BufferBytes == NULL)
  {
  Buffer->Release();
  v4 A" Z4 b% S2 R7 y3 C) \  HWND hWnd = AfxGetApp()->GetMainWnd()->m_hWnd;
  MessageBoxEx(hWnd, Can not allocate enough memory\\t, ERROR_TITLE, MB_OK | MB_ICONSTOP, LANG_ENGLISH);
) z/ G( t" D* o7 Z& I  }
0 T" ~( Z0 h3 t0 N


, ]* s/ {& O7 e; x+ V Buffer->ReadAt(RealData, BufferBytes, OutStream, &OutData);
$ y6 @9 b- _4 f. l6 \1 C


, T: J# \. G/ p. U) u2 y if(BitmapFile.Open(sFilePathName, CFile::typeBinary | CFile::modeCreate | CFile::modeWrite, &e))
  {
; @( B; w2 b1 M! ^# O  BitmapFile.Write(BufferBytes, OutData);
" m4 W4 ^5 |6 C0 l/ U  BitmapFile.Close();
& b# |* [, V  `* N% y  bResult = TRUE;
  }
/ P7 O- M: D( {# ~9 I# B* [ else // Write File Failed...
  {
2 O$ ~2 b" T" A/ T  t$ @! O  TCHAR szCause[255];
  e.GetErrorMessage(szCause, 255, NULL);
  HWND hWnd = AfxGetApp()->GetMainWnd()->m_hWnd;
4 v' \2 E( [2 |- a& }6 ~  MessageBoxEx(hWnd, szCause, ERROR_TITLE, MB_OK | MB_ICONSTOP, LANG_ENGLISH);
  bResult = FALSE;
& g/ o* _& }7 s; y* i" _9 X  x2 P  }
: z' J% y/ r9 N! ?" c2 z
& f/ W9 o8 Y/ z Buffer->Release();
free(BufferBytes);



' y# g$ X4 r; c- }0 p* S2 a return(bResult);
" K" w. O* [. F}