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

天云上人

  BOOL CPicture::SaveAsBitmap(CString sFilePathName)
( G; u, @/ t- a4 x8 ^$ k, k- G//=============================================================================
{
BOOL bResult = FALSE;
ILockBytes *Buffer = 0;
1 j! C; r4 l, \+ S IStorage   *pStorage = 0;
IStream    *FileStream = 0;
BYTE    *BufferBytes;
6 q8 ~# A: Q9 ]% V( k; m STATSTG  BytesStatistics;
DWORD  OutData;
long  OutStream;
" D5 `/ L' U  s/ L8 o3 t6 b CFile  BitmapFile; CFileException e;
double  SkipFloat = 0;
( |( h9 V) q1 i% N DWORD  ByteSkip = 0;
_ULARGE_INTEGER RealData;


* g3 w0 b5 `5 i9 U/ L! L
CreateILockBytesOnHGlobal(NULL, TRUE, &Buffer); // Create ILockBytes Buffer
5 u9 @" d/ C! }


HRESULT hr = ::StgCreateDocfileOnILockBytes(Buffer,
+ N9 o' Z7 V! {9 J1 Q$ s* R     STGM_SHARE_EXCLUSIVE | STGM_CREATE | STGM_READWRITE, 0, &pStorage);
# M$ e) U+ g" x# [9 S
7 _# U, {2 U) _! Z4 g
% s" e! I0 c/ d0 q& M. U9 e
! m& u5 |2 l* |' ^4 \7 F5 `/ H6 U9 R- | hr = pStorage->CreateStream(LPICTURE,
) M( L3 ?! u: I# v7 E% _: v9 H   STGM_SHARE_EXCLUSIVE | STGM_CREATE | STGM_READWRITE, 0, 0, &FileStream);

# A; V. m0 `2 A0 }) c

m_pPict->SaveAsFile(FileStream, TRUE, &OutStream); // Copy Data Stream
! S. @4 f# m, V& W! Q7 C: y" b FileStream->Release();
pStorage->Release();
& @6 o; @' g$ @% T% d  M8 p$ l  ~ Buffer->Flush();
5 g7 x0 Z- Q$ @; C2 W' W; x" _
3 }  L+ _0 N5 w' ~. Y4 j" I: f

0 B1 I5 I4 A' [+ w // Get Statistics For Final Size Of Byte Array
; R  ~( I6 O4 b# J2 y2 b* V" c( r Buffer->Stat(&BytesStatistics, STATFLAG_NONAME);



6 x6 H8 O- a1 X* @+ q# u- c* E // Cut UnNeeded Data Coming From SaveAsFile() (Leave Only Pure Picture Data)
4 Y/ t" a+ p7 ^% A SkipFloat = (double(OutStream) / 512); // Must Be In a 512 Blocks...
if(SkipFloat > DWORD(SkipFloat)) ByteSkip = (DWORD)SkipFloat + 1;
) D# t2 p/ ?* H4 P8 t* j/ A else ByteSkip = (DWORD)SkipFloat;
: X. y" y1 V1 Q- ^' X ByteSkip = ByteSkip * 512; // Must Be In a 512 Blocks...

// Find Difference Between The Two Values
( v5 b/ H* G! K ByteSkip = (DWORD)(BytesStatistics.cbSize.QuadPart - ByteSkip);

' u6 ^* r8 p- I
5 h% ]: H" L% `8 |. |
7 s) a8 @, x/ X& c. F8 E  G5 } // Allocate Only The Pure Picture Data
RealData.LowPart = 0;
3 n6 B; n) l6 f, N/ n RealData.HighPart = 0;
4 Z" E' b0 k* N% l  `; D+ R RealData.QuadPart = ByteSkip;
0 b, l0 @; I2 ~- X( D BufferBytes = (BYTE*)malloc(OutStream);
9 r' r' M# u" U' I if(BufferBytes == NULL)
; Z# e" m. h$ G2 E  {
3 i, b# S) n! x6 S% e  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 Q! V! S7 y4 W, [* |  }
/ q- k7 ^6 C0 A  n


Buffer->ReadAt(RealData, BufferBytes, OutStream, &OutData);



5 w! X/ R6 U4 Q! C& r if(BitmapFile.Open(sFilePathName, CFile::typeBinary | CFile::modeCreate | CFile::modeWrite, &e))
  {
  q( l5 B4 A$ [* A( q  BitmapFile.Write(BufferBytes, OutData);
  BitmapFile.Close();
' ?( f0 _+ s0 [: H, f  bResult = TRUE;
  }
, v& h9 |- e4 w4 p1 K else // Write File Failed...
  {
" ^$ z% H! x* [. N, Y% I7 s  TCHAR szCause[255];
  e.GetErrorMessage(szCause, 255, NULL);
' l( I: r% y& f/ x  HWND hWnd = AfxGetApp()->GetMainWnd()->m_hWnd;
' U9 E5 J4 U+ x6 K; o; N  MessageBoxEx(hWnd, szCause, ERROR_TITLE, MB_OK | MB_ICONSTOP, LANG_ENGLISH);
  bResult = FALSE;
  }
' O4 A- L5 w4 I5 ?( V$ G
Buffer->Release();
free(BufferBytes);

- o5 O& I! T% O

return(bResult);
4 ]* h: t$ O) t3 D& R}