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

天云上人

  BOOL CPicture::SaveAsBitmap(CString sFilePathName)
1 c# l4 c9 K3 i/ a0 i//=============================================================================
3 d  I: N5 l* }1 V{
BOOL bResult = FALSE;
ILockBytes *Buffer = 0;
- B4 {/ _  d8 e' _4 c IStorage   *pStorage = 0;
IStream    *FileStream = 0;
" K( k3 {7 i, @% `/ l BYTE    *BufferBytes;
STATSTG  BytesStatistics;
5 p6 r5 Q( _* p3 n. B4 x DWORD  OutData;
long  OutStream;
CFile  BitmapFile; CFileException e;
double  SkipFloat = 0;
DWORD  ByteSkip = 0;
_ULARGE_INTEGER RealData;

5 t* @" R6 M) [  v7 r

CreateILockBytesOnHGlobal(NULL, TRUE, &Buffer); // Create ILockBytes Buffer

; y' [# ~8 a6 t6 u3 U
% Y6 Z$ _8 P6 O4 E* E  i1 \
) n, k4 V0 r$ A  A HRESULT hr = ::StgCreateDocfileOnILockBytes(Buffer,
  D0 g2 k( s* Y6 z+ y* J     STGM_SHARE_EXCLUSIVE | STGM_CREATE | STGM_READWRITE, 0, &pStorage);

8 K, r6 G- Z, s

hr = pStorage->CreateStream(LPICTURE,
: P) }# _4 B; Z8 q+ J   STGM_SHARE_EXCLUSIVE | STGM_CREATE | STGM_READWRITE, 0, 0, &FileStream);
% `" g7 h: [1 u, u4 j5 U
. }" G. i3 g0 z$ i: `
# Y9 ]+ Q8 Q4 X! U" q4 w3 ^$ [
+ ?3 a7 M4 m- T4 q" B+ ^1 l; U$ x m_pPict->SaveAsFile(FileStream, TRUE, &OutStream); // Copy Data Stream
6 m* w1 n# i( G2 a7 A  {/ E FileStream->Release();
pStorage->Release();
Buffer->Flush();


+ Q8 {, u5 q& w" D3 J, S
// Get Statistics For Final Size Of Byte Array
& c" R. f) z7 A: O0 p+ C/ S Buffer->Stat(&BytesStatistics, STATFLAG_NONAME);
5 q0 ?5 X# ]1 D# q
0 h: \$ ^& q9 W

3 E: p0 e$ \4 u# g5 ]$ U5 y9 U // Cut UnNeeded Data Coming From SaveAsFile() (Leave Only Pure Picture Data)
1 S4 A* I0 U1 V! e0 ^# C SkipFloat = (double(OutStream) / 512); // Must Be In a 512 Blocks...
if(SkipFloat > DWORD(SkipFloat)) ByteSkip = (DWORD)SkipFloat + 1;
2 x/ E7 x0 v7 B2 Z" j7 U$ ? else ByteSkip = (DWORD)SkipFloat;
) m( {+ R0 C- Z! v' @4 D' A! S ByteSkip = ByteSkip * 512; // Must Be In a 512 Blocks...

// Find Difference Between The Two Values
ByteSkip = (DWORD)(BytesStatistics.cbSize.QuadPart - ByteSkip);
* _# M" I7 Z. v# l8 A, `3 Q+ B
. Q: e$ |+ e2 r+ d* W. Z
% T7 K$ M1 x( D" U$ f/ N
// Allocate Only The Pure Picture Data
& b. o% R7 H- N9 @) n$ B RealData.LowPart = 0;
RealData.HighPart = 0;
+ n7 _) s: A' a, \5 P0 X0 x2 D, t RealData.QuadPart = ByteSkip;
. R; R' r+ U! i0 K7 ]. e BufferBytes = (BYTE*)malloc(OutStream);
if(BufferBytes == NULL)
, ~5 B/ ?  A( [& ?, x  @  {
  Buffer->Release();
  HWND hWnd = AfxGetApp()->GetMainWnd()->m_hWnd;
! t: B1 i# p: V) @& c5 d) [8 t% ^) I  MessageBoxEx(hWnd, Can not allocate enough memory\\t, ERROR_TITLE, MB_OK | MB_ICONSTOP, LANG_ENGLISH);
% i  R* J0 }9 l" K0 d9 U  }
1 K0 J( M3 b, B2 _


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



( V. R$ e0 f( J$ m; R if(BitmapFile.Open(sFilePathName, CFile::typeBinary | CFile::modeCreate | CFile::modeWrite, &e))
/ {) q2 {2 i, Z4 t) R  {
8 [- A5 x& Y# V' J) e; n  BitmapFile.Write(BufferBytes, OutData);
! k4 \+ z% L, G4 c  BitmapFile.Close();
  |, D& e2 L. ~  bResult = TRUE;
  }
else // Write File Failed...
3 T: _7 |/ j8 k! ^+ i. V+ `  {
  TCHAR szCause[255];
! _9 ]/ i; r5 g1 T* D; M  e.GetErrorMessage(szCause, 255, NULL);
  HWND hWnd = AfxGetApp()->GetMainWnd()->m_hWnd;
: P6 E1 l0 E) x# u  MessageBoxEx(hWnd, szCause, ERROR_TITLE, MB_OK | MB_ICONSTOP, LANG_ENGLISH);
  bResult = FALSE;
  }

Buffer->Release();
free(BufferBytes);
$ M( Y, o2 j! `+ w


% r6 ?8 q5 R% c$ [0 Z9 Z; k return(bResult);
}