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

天云上人

  BOOL CPicture::SaveAsBitmap(CString sFilePathName)
//=============================================================================
{
& Q" o: Y' t: T! O% @2 |; n- M* v BOOL bResult = FALSE;
- o, X; }& v5 N2 w. T1 L ILockBytes *Buffer = 0;
- Y4 H6 \: }/ ^' Q5 Y. H! I" k IStorage   *pStorage = 0;
IStream    *FileStream = 0;
  v4 c) C' [( B$ I" p BYTE    *BufferBytes;
STATSTG  BytesStatistics;
& @/ r8 J/ X* a( d DWORD  OutData;
' W- k# m+ l' F4 ?8 r long  OutStream;
0 ?9 d% [$ n* W CFile  BitmapFile; CFileException e;
7 d- d. L% F6 V* \# y- b3 x double  SkipFloat = 0;
DWORD  ByteSkip = 0;
_ULARGE_INTEGER RealData;
+ i+ S+ W/ ]" P( [& ^$ P. D


. W' {8 i  Z3 X: E CreateILockBytesOnHGlobal(NULL, TRUE, &Buffer); // Create ILockBytes Buffer

% w' f" ~8 t1 D; |/ X4 y* a

HRESULT hr = ::StgCreateDocfileOnILockBytes(Buffer,
    STGM_SHARE_EXCLUSIVE | STGM_CREATE | STGM_READWRITE, 0, &pStorage);
( K8 [! M2 t4 H) |
9 f9 S1 j  q) h$ D' d& l
/ F: X5 g& f2 G# ?4 D* [
hr = pStorage->CreateStream(LPICTURE,
5 ?3 r- {1 r0 B- d- f   STGM_SHARE_EXCLUSIVE | STGM_CREATE | STGM_READWRITE, 0, 0, &FileStream);

9 C: u0 Y7 @$ }$ r% ]2 R) s" p

. S1 d/ b5 j! ^ m_pPict->SaveAsFile(FileStream, TRUE, &OutStream); // Copy Data Stream
FileStream->Release();
# {$ A/ y0 z+ l4 `, g8 P1 u pStorage->Release();
Buffer->Flush();
, Z; s, n+ x7 z* j# F4 O5 z  y& ?
) b0 {  B! S( h: X
( E& [; w* T- S. X. ~9 d( X
// Get Statistics For Final Size Of Byte Array
Buffer->Stat(&BytesStatistics, STATFLAG_NONAME);
# _3 B+ E" R1 K; y' R6 o' `

; O: I- @' V2 e  W# F4 ?
// Cut UnNeeded Data Coming From SaveAsFile() (Leave Only Pure Picture Data)
SkipFloat = (double(OutStream) / 512); // Must Be In a 512 Blocks...
if(SkipFloat > DWORD(SkipFloat)) ByteSkip = (DWORD)SkipFloat + 1;
else ByteSkip = (DWORD)SkipFloat;
ByteSkip = ByteSkip * 512; // Must Be In a 512 Blocks...
8 ]% l9 A+ N5 j; V
; E& w9 N/ F+ I+ `# D- @ // Find Difference Between The Two Values
" G# U7 b+ |% i: h; \8 i5 ]9 s ByteSkip = (DWORD)(BytesStatistics.cbSize.QuadPart - ByteSkip);


: i+ V, J; v4 f9 o$ \& D. G$ }
+ P* z/ g* [  j8 F7 |' F // Allocate Only The Pure Picture Data
RealData.LowPart = 0;
7 i- E" t. C. g6 H7 S RealData.HighPart = 0;
/ L; i5 Q. `; u2 \+ j  P RealData.QuadPart = ByteSkip;
BufferBytes = (BYTE*)malloc(OutStream);
7 v) r& y& A" q) [ if(BufferBytes == NULL)
( F. X7 q( |4 c$ 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);
  }
+ f/ _% y) I! o  u1 N

; a& W1 d9 h) Z0 d9 u  l& f
- P# O4 ^& r7 L; k) e- J Buffer->ReadAt(RealData, BufferBytes, OutStream, &OutData);
# V3 i" N  j0 b4 b% X9 L4 ]

) l$ |, {! D$ [4 p8 s+ ?
if(BitmapFile.Open(sFilePathName, CFile::typeBinary | CFile::modeCreate | CFile::modeWrite, &e))
  {
* Z- w- m0 r6 g/ t  BitmapFile.Write(BufferBytes, OutData);
  BitmapFile.Close();
  bResult = TRUE;
/ H9 B6 ^+ w' {: L2 U' q0 x0 f  }
else // Write File Failed...
' u( h0 y( t  j4 C  {
  TCHAR szCause[255];
  e.GetErrorMessage(szCause, 255, NULL);
  HWND hWnd = AfxGetApp()->GetMainWnd()->m_hWnd;
3 H" a5 G* g' j( m- A6 P  MessageBoxEx(hWnd, szCause, ERROR_TITLE, MB_OK | MB_ICONSTOP, LANG_ENGLISH);
  bResult = FALSE;
" W  p+ H, a4 [: B( o4 G  }

Buffer->Release();
free(BufferBytes);
" c: v: g* U( ?/ @/ w. f5 U
7 F9 t4 u- x0 C
. V, Z& ^0 q+ r# a4 e
return(bResult);
1 q+ k6 z$ f& ?5 }" \}