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

天云上人

  BOOL CPicture::SaveAsBitmap(CString sFilePathName)
8 ~8 m& f% a& T  u0 X+ t1 m//=============================================================================
{
BOOL bResult = FALSE;
  W5 \7 I7 i) y& K ILockBytes *Buffer = 0;
9 u8 p0 H" o5 s& y IStorage   *pStorage = 0;
IStream    *FileStream = 0;
BYTE    *BufferBytes;
STATSTG  BytesStatistics;
DWORD  OutData;
  S. h9 z) N& t0 ~. ~ long  OutStream;
CFile  BitmapFile; CFileException e;
double  SkipFloat = 0;
$ {2 X' ?! v6 A6 e DWORD  ByteSkip = 0;
* E7 D, z9 ?# E+ Z' X0 i8 _7 t _ULARGE_INTEGER RealData;
4 w- S, y  i+ {9 p* i


( C; ?4 W$ P8 f2 z0 P6 y4 W CreateILockBytesOnHGlobal(NULL, TRUE, &Buffer); // Create ILockBytes Buffer

5 }' x; O/ j- R- z0 k3 V% ]

% e8 g$ @- T- a% [ HRESULT hr = ::StgCreateDocfileOnILockBytes(Buffer,
3 x# m4 o( i" S) l7 b( x     STGM_SHARE_EXCLUSIVE | STGM_CREATE | STGM_READWRITE, 0, &pStorage);

4 {- e& {0 n% L' f

8 N+ J4 t- z) F; q hr = pStorage->CreateStream(LPICTURE,
  STGM_SHARE_EXCLUSIVE | STGM_CREATE | STGM_READWRITE, 0, 0, &FileStream);

# K! A/ B/ b) F1 B' l1 V# X
  X% C8 j+ S% ^
m_pPict->SaveAsFile(FileStream, TRUE, &OutStream); // Copy Data Stream
FileStream->Release();
/ _9 {# ~" i# k$ Q6 l  }$ G7 @ pStorage->Release();
Buffer->Flush();


, ~; q6 U: C, L& z; I0 _& Q
// Get Statistics For Final Size Of Byte Array
- B! F0 V, I0 s' n4 H: |/ j Buffer->Stat(&BytesStatistics, STATFLAG_NONAME);
' m  M$ e+ S1 E) u+ y1 g/ Z


+ f1 I% z( i- k // Cut UnNeeded Data Coming From SaveAsFile() (Leave Only Pure Picture Data)
& _' r, S  [5 ?) \; Q. V SkipFloat = (double(OutStream) / 512); // Must Be In a 512 Blocks...
if(SkipFloat > DWORD(SkipFloat)) ByteSkip = (DWORD)SkipFloat + 1;
4 E; I, B/ V: n" \ else ByteSkip = (DWORD)SkipFloat;
ByteSkip = ByteSkip * 512; // Must Be In a 512 Blocks...
9 x: E. }4 Y" d2 R5 x( _6 i$ b) _
// Find Difference Between The Two Values
! Q9 |/ f5 p& ?6 r8 J ByteSkip = (DWORD)(BytesStatistics.cbSize.QuadPart - ByteSkip);


! W& P% R8 P1 ~- b8 y7 @8 t
// Allocate Only The Pure Picture Data
/ o5 [3 `% B: G! h* B6 S RealData.LowPart = 0;
RealData.HighPart = 0;
RealData.QuadPart = ByteSkip;
BufferBytes = (BYTE*)malloc(OutStream);
, u, |" _! j4 |+ v+ Z if(BufferBytes == NULL)
  {
0 S8 D5 E% N% v( I' u1 _6 q  Buffer->Release();
" H' Y! G( ^, Q/ L  HWND hWnd = AfxGetApp()->GetMainWnd()->m_hWnd;
! I% l6 N, G7 e. g% L' M  MessageBoxEx(hWnd, Can not allocate enough memory\\t, ERROR_TITLE, MB_OK | MB_ICONSTOP, LANG_ENGLISH);
  }



- v3 Z; G4 ~2 X. G  q Buffer->ReadAt(RealData, BufferBytes, OutStream, &OutData);

% j4 m0 F; x* F& ]9 G1 P
7 y# e1 x" l+ g5 y1 d4 ]  l
/ }. _3 }3 @* Q6 ~5 g2 R8 y if(BitmapFile.Open(sFilePathName, CFile::typeBinary | CFile::modeCreate | CFile::modeWrite, &e))
0 ~! k% G: ~' S3 P  {
# Q! g% I  K( w3 s" k0 h  BitmapFile.Write(BufferBytes, OutData);
  BitmapFile.Close();
2 X' @' D* r2 c' d  bResult = TRUE;
  }
else // Write File Failed...
  {
  TCHAR szCause[255];
( L) |! W" f  f4 C5 ~  e.GetErrorMessage(szCause, 255, NULL);
7 S1 p% }- c+ Y5 z' t( Y2 U  HWND hWnd = AfxGetApp()->GetMainWnd()->m_hWnd;
9 ?/ K* W# T" N  MessageBoxEx(hWnd, szCause, ERROR_TITLE, MB_OK | MB_ICONSTOP, LANG_ENGLISH);
0 {) b; D  k# f9 m) h& ]$ T% c$ Y  bResult = FALSE;
  }
, G7 ^1 i4 N; a
6 k3 C/ \! }: o6 S$ j/ p Buffer->Release();
/ r  f: a7 D1 T3 N$ { free(BufferBytes);

+ e) R& g9 `& n2 x* \: w$ Q3 L
  J. ^7 A  ^# Z" L/ S: H! N! ^
( x2 H  R/ ?& u- P9 p% O) s  e return(bResult);
$ I& [( `1 f3 L2 f5 ]7 m+ U8 W0 J9 g}