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

天云上人

  BOOL CPicture::SaveAsBitmap(CString sFilePathName)
//=============================================================================
5 T6 N6 x8 V1 ^: j- \% |8 O6 {) S{
BOOL bResult = FALSE;
* |4 w: p* w# @: s" a( V ILockBytes *Buffer = 0;
IStorage   *pStorage = 0;
IStream    *FileStream = 0;
3 X) L! ^5 X3 Q0 F6 B2 J; ]& p( L BYTE    *BufferBytes;
STATSTG  BytesStatistics;
DWORD  OutData;
7 I. a8 A( W% F, j% \' M% W) z long  OutStream;
CFile  BitmapFile; CFileException e;
4 b: Q: ]6 J( b- `7 U, I3 ^/ M double  SkipFloat = 0;
/ {+ M8 s4 w! L( m6 J/ T2 J DWORD  ByteSkip = 0;
_ULARGE_INTEGER RealData;
1 {. K* s. f7 b9 d

- D1 l0 h, ^2 b6 R
CreateILockBytesOnHGlobal(NULL, TRUE, &Buffer); // Create ILockBytes Buffer
; U- Z2 R' y3 C( V
8 z* t4 M; H3 B* B/ x1 E5 x- z
2 t; W' R! M/ S
HRESULT hr = ::StgCreateDocfileOnILockBytes(Buffer,
# E2 D7 q5 H- }( I; v" g0 Z     STGM_SHARE_EXCLUSIVE | STGM_CREATE | STGM_READWRITE, 0, &pStorage);
4 ^; `0 Z, o! l* B5 A: h
. g  e. N( \) z' o/ f' z

3 I5 Q. G: ]3 O7 F9 ^# q+ J6 Y! X hr = pStorage->CreateStream(LPICTURE,
  STGM_SHARE_EXCLUSIVE | STGM_CREATE | STGM_READWRITE, 0, 0, &FileStream);


4 H( y/ Q# Z& X7 `, p
m_pPict->SaveAsFile(FileStream, TRUE, &OutStream); // Copy Data Stream
: S* t- |: m9 P: s7 j FileStream->Release();
pStorage->Release();
Buffer->Flush();
5 S9 Q1 G; U$ p# Z5 Z9 V

% b' P) J; p0 k$ s
// Get Statistics For Final Size Of Byte Array
Buffer->Stat(&BytesStatistics, STATFLAG_NONAME);
( S; o, [8 S/ c


// Cut UnNeeded Data Coming From SaveAsFile() (Leave Only Pure Picture Data)
SkipFloat = (double(OutStream) / 512); // Must Be In a 512 Blocks...
$ q+ X* v" L  N) \8 U9 {8 K5 N2 a) P if(SkipFloat > DWORD(SkipFloat)) ByteSkip = (DWORD)SkipFloat + 1;
else ByteSkip = (DWORD)SkipFloat;
ByteSkip = ByteSkip * 512; // Must Be In a 512 Blocks...

9 B2 `% X! }& ^8 ~ // Find Difference Between The Two Values
; z( w- D- n3 E2 f* |" a ByteSkip = (DWORD)(BytesStatistics.cbSize.QuadPart - ByteSkip);
4 z% p2 {; U. P) V, w4 q


6 u7 r. T2 p/ w% s8 v8 K8 }/ b // Allocate Only The Pure Picture Data
RealData.LowPart = 0;
" B0 e; y. R) q( | RealData.HighPart = 0;
RealData.QuadPart = ByteSkip;
$ Q' g/ c# M+ \' x BufferBytes = (BYTE*)malloc(OutStream);
3 F( C. Q. g4 c+ e; D if(BufferBytes == NULL)
& m; z5 P$ d" F3 i% T5 B  {
  Buffer->Release();
7 u: u- p5 n5 Y2 G! x  HWND hWnd = AfxGetApp()->GetMainWnd()->m_hWnd;
; L8 s. i4 t2 A' d9 i  z. ?  MessageBoxEx(hWnd, Can not allocate enough memory\\t, ERROR_TITLE, MB_OK | MB_ICONSTOP, LANG_ENGLISH);
  }

5 u* O5 `% O" ]& v; y6 T
+ k. _# [, h* N' v# M+ \+ u" ^) N' P
5 ~+ C8 [' T6 a! x) U# g5 d Buffer->ReadAt(RealData, BufferBytes, OutStream, &OutData);
: J9 I1 _. N6 I4 {2 f6 {
9 x- s& ]. ?! l  n: w% ]2 P
& J5 p0 Q. u0 ]+ X9 C
if(BitmapFile.Open(sFilePathName, CFile::typeBinary | CFile::modeCreate | CFile::modeWrite, &e))
9 J% F& J" X" J. L; v0 \, |  {
1 E! w5 S4 T. `" e" T  BitmapFile.Write(BufferBytes, OutData);
! _* N/ X5 u3 q# J! u2 W3 B  BitmapFile.Close();
  bResult = TRUE;
  }
2 D4 y/ @9 H! X  p else // Write File Failed...
  {
. _) e9 E! w6 C" {  TCHAR szCause[255];
  e.GetErrorMessage(szCause, 255, NULL);
  HWND hWnd = AfxGetApp()->GetMainWnd()->m_hWnd;
  MessageBoxEx(hWnd, szCause, ERROR_TITLE, MB_OK | MB_ICONSTOP, LANG_ENGLISH);
! T. b) w& G5 m1 j" `# ?* i0 F' a: W  bResult = FALSE;
( t3 Q. M: g% f  }
  c( n8 ~0 |4 Z. s
Buffer->Release();
free(BufferBytes);
% p( e, P4 W8 A: C
- [% U% j1 H4 ^/ i# Z- X# ]. W
  u/ s% d! v- m7 t% W. X5 E5 }
return(bResult);
}