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

天云上人

  BOOL CPicture::SaveAsBitmap(CString sFilePathName)
//=============================================================================
$ I( @% c+ f: V{
  w9 F9 H& e# w; P6 w  b BOOL bResult = FALSE;
# K& Q6 k& O/ Q+ p1 ?7 P ILockBytes *Buffer = 0;
IStorage   *pStorage = 0;
, `* Z: _6 h! C; s+ [( | IStream    *FileStream = 0;
# _* ^, u8 B* @7 i0 q% [ BYTE    *BufferBytes;
STATSTG  BytesStatistics;
DWORD  OutData;
long  OutStream;
7 T( n2 q. C! x5 M0 C7 D/ T$ ~ CFile  BitmapFile; CFileException e;
2 k. C7 A! f. ?( W" p double  SkipFloat = 0;
DWORD  ByteSkip = 0;
_ULARGE_INTEGER RealData;



( W' S) m; _! _+ X2 n8 _  T CreateILockBytesOnHGlobal(NULL, TRUE, &Buffer); // Create ILockBytes Buffer
3 Z. E. X7 ~, R


& B9 o% M4 E! L' b# O HRESULT hr = ::StgCreateDocfileOnILockBytes(Buffer,
    STGM_SHARE_EXCLUSIVE | STGM_CREATE | STGM_READWRITE, 0, &pStorage);

( o3 u/ J& y$ y

! s3 h3 W$ V/ Q& m! h% l6 d hr = pStorage->CreateStream(LPICTURE,
  STGM_SHARE_EXCLUSIVE | STGM_CREATE | STGM_READWRITE, 0, 0, &FileStream);
6 a2 Q: X' q$ n
: e! }! }# b( O6 a6 z# w, j7 `
' ~: F* c8 R0 S- D0 A! I
! R% q3 S% a) ^& q0 L6 W4 | m_pPict->SaveAsFile(FileStream, TRUE, &OutStream); // Copy Data Stream
FileStream->Release();
0 L1 A& {  B: A  }3 _ pStorage->Release();
% U3 X" a( A$ t2 c4 z$ o Buffer->Flush();

: r. U, E; `' N0 p* ?  \
, K' w4 `/ R& H& N) W) f' W) k, H
' s4 \6 X8 ^/ @ // Get Statistics For Final Size Of Byte Array
5 Q" t5 a1 r0 F7 r2 @7 D) E Buffer->Stat(&BytesStatistics, STATFLAG_NONAME);
5 V: S7 |+ Q+ V8 a9 X- S

8 y9 P- I5 a3 J: a4 ~0 A
// 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;
6 [: h  O8 a( S# i( X4 v1 ?5 i else ByteSkip = (DWORD)SkipFloat;
6 F# K/ g$ R$ T) _ ByteSkip = ByteSkip * 512; // Must Be In a 512 Blocks...
% D4 M4 j% ~- h* N2 ^- [: P
// Find Difference Between The Two Values
ByteSkip = (DWORD)(BytesStatistics.cbSize.QuadPart - ByteSkip);
. q+ q3 Z1 P, Z' k9 N$ \+ D
( t0 `1 q7 R1 j+ J" D1 e
4 o- m0 i' n1 D. X% B
// Allocate Only The Pure Picture Data
RealData.LowPart = 0;
* V( |, r4 p# g. S, t RealData.HighPart = 0;
) j& x0 W' d0 I7 Z9 ?' J" e: ^ RealData.QuadPart = ByteSkip;
' y& s6 y; j9 O) ~/ l$ A+ f BufferBytes = (BYTE*)malloc(OutStream);
" B  a4 j! r' Q if(BufferBytes == NULL)
  {
  Buffer->Release();
  HWND hWnd = AfxGetApp()->GetMainWnd()->m_hWnd;
  MessageBoxEx(hWnd, Can not allocate enough memory\\t, ERROR_TITLE, MB_OK | MB_ICONSTOP, LANG_ENGLISH);
  }
% v3 B' ^% c: `& N
8 H! c  ^" H2 F2 m1 ?
/ R1 ?3 Q, e' Q6 a2 }2 x0 a( k" S( i
Buffer->ReadAt(RealData, BufferBytes, OutStream, &OutData);


/ h; ?  b% i  X; o
if(BitmapFile.Open(sFilePathName, CFile::typeBinary | CFile::modeCreate | CFile::modeWrite, &e))
$ T4 a) e; `7 b) u# i6 z  {
, u* S, `* M9 M% V% M  BitmapFile.Write(BufferBytes, OutData);
  BitmapFile.Close();
  bResult = TRUE;
  }
  s& t/ D* X3 x4 u- E5 e else // Write File Failed...
  {
0 s2 d7 U: _, b/ h( R$ j  TCHAR szCause[255];
# |+ T. V5 e! N- ^2 c$ ]$ K  e.GetErrorMessage(szCause, 255, NULL);
* ]# f& N8 w. |8 I4 s  HWND hWnd = AfxGetApp()->GetMainWnd()->m_hWnd;
* m% \4 d, Y, z; l: y1 P9 u  MessageBoxEx(hWnd, szCause, ERROR_TITLE, MB_OK | MB_ICONSTOP, LANG_ENGLISH);
8 C3 _3 _" o: Z8 N3 H, b9 Z( m9 k  bResult = FALSE;
  }

# U$ g/ ?9 ^' C Buffer->Release();
free(BufferBytes);
/ {2 |$ ?* U7 g
3 A* X) k2 `! i+ j; R3 R' ^

return(bResult);
3 q, z5 r  l5 p}