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

天云上人

  BOOL CPicture::SaveAsBitmap(CString sFilePathName)
0 F2 M! n& q$ W5 _: J: ^//=============================================================================
{
BOOL bResult = FALSE;
( k/ n3 c/ S' [ ILockBytes *Buffer = 0;
$ l9 G: Z3 O( Y% G IStorage   *pStorage = 0;
IStream    *FileStream = 0;
* N3 H. j) e. M6 l9 f& Z* \. P BYTE    *BufferBytes;
) R% n- o7 l4 s0 C STATSTG  BytesStatistics;
DWORD  OutData;
long  OutStream;
CFile  BitmapFile; CFileException e;
0 x. _1 n; U2 Y9 }# w! J$ t& j double  SkipFloat = 0;
DWORD  ByteSkip = 0;
$ K0 _8 l+ R0 t& C5 m& z9 o _ULARGE_INTEGER RealData;
6 w( L5 d5 }4 e% e+ j# j& G


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

% U7 @, x% g5 e  v

! q3 T/ l3 {/ Y3 N, u HRESULT hr = ::StgCreateDocfileOnILockBytes(Buffer,
9 H, `7 W$ r& b2 w% m0 v" e5 m     STGM_SHARE_EXCLUSIVE | STGM_CREATE | STGM_READWRITE, 0, &pStorage);

/ g$ @4 w* E, M- M1 p

; N0 D; z4 Y1 ?. p" E0 c hr = pStorage->CreateStream(LPICTURE,
' l; |5 X+ L- K+ ^( X6 t' Y   STGM_SHARE_EXCLUSIVE | STGM_CREATE | STGM_READWRITE, 0, 0, &FileStream);
, \- q* M# @# F' d
0 u0 a8 s' s7 n! j2 g* d
- d) x: [: m' I+ a5 f
; p. |) i! Y. w5 w$ ^: F m_pPict->SaveAsFile(FileStream, TRUE, &OutStream); // Copy Data Stream
FileStream->Release();
pStorage->Release();
Buffer->Flush();
- j2 G# |" \3 T7 \4 k! i* F


' E. n; B, @" `8 ~8 [+ K // Get Statistics For Final Size Of Byte Array
Buffer->Stat(&BytesStatistics, STATFLAG_NONAME);

: X; {. k3 Q- r2 T1 E* d: K

// Cut UnNeeded Data Coming From SaveAsFile() (Leave Only Pure Picture Data)
# u$ ~. A5 G& R) d) @ SkipFloat = (double(OutStream) / 512); // Must Be In a 512 Blocks...
# ]& d; }- n. ?' d if(SkipFloat > DWORD(SkipFloat)) ByteSkip = (DWORD)SkipFloat + 1;
else ByteSkip = (DWORD)SkipFloat;
ByteSkip = ByteSkip * 512; // Must Be In a 512 Blocks...
5 ~0 o- R& _" X7 T
  ~& J3 I/ S) ^* d2 I5 i // Find Difference Between The Two Values
/ g, u5 Q3 D# H4 ^ ByteSkip = (DWORD)(BytesStatistics.cbSize.QuadPart - ByteSkip);
2 |1 o, `0 `6 R6 U( I& D$ z3 F+ p
$ g2 ]" X# m/ F5 w7 W
- m" ^1 p) r7 [* i& ]* P6 Z" D$ u
// Allocate Only The Pure Picture Data
" B0 f1 ]- b# Y) r4 a/ [1 V RealData.LowPart = 0;
2 ?3 ~9 h: `/ C RealData.HighPart = 0;
+ Q+ ~; @) q* E& P* @( q RealData.QuadPart = ByteSkip;
6 N6 ]) }/ x) x0 {6 o* s BufferBytes = (BYTE*)malloc(OutStream);
" r7 f" H6 {3 b  y/ D+ h8 a/ |6 R if(BufferBytes == NULL)
  {
  Buffer->Release();
  HWND hWnd = AfxGetApp()->GetMainWnd()->m_hWnd;
* P) W2 ^+ M/ n* V  MessageBoxEx(hWnd, Can not allocate enough memory\\t, ERROR_TITLE, MB_OK | MB_ICONSTOP, LANG_ENGLISH);
  }


- z: C2 G" `; Y, D0 Q( d
Buffer->ReadAt(RealData, BufferBytes, OutStream, &OutData);



- ]0 l2 {" h, R5 W if(BitmapFile.Open(sFilePathName, CFile::typeBinary | CFile::modeCreate | CFile::modeWrite, &e))
: A: e6 n7 o- w/ o( q7 u) R# n  {
  BitmapFile.Write(BufferBytes, OutData);
5 N. [) E: k1 y  BitmapFile.Close();
7 x+ W7 ~  b3 m7 A# _# y% T  bResult = TRUE;
( Z8 _- e" F$ {' j  }
else // Write File Failed...
  {
$ D& N2 T- H# h! R- `4 z0 R% X  TCHAR szCause[255];
7 O) x0 [: u% x# R  B8 G+ T! ]  e.GetErrorMessage(szCause, 255, NULL);
9 m/ n- T$ [4 G$ l/ v. z: Q  HWND hWnd = AfxGetApp()->GetMainWnd()->m_hWnd;
5 ~3 J+ ]7 q& ~, @; \5 a  MessageBoxEx(hWnd, szCause, ERROR_TITLE, MB_OK | MB_ICONSTOP, LANG_ENGLISH);
3 L0 [4 C/ H2 L' ~% ]- q9 o0 A  bResult = FALSE;
- C9 y% J8 i1 v& C! {  }
7 H& P3 _" H6 h: b( H! V+ [& c1 G
Buffer->Release();
free(BufferBytes);

) _  u0 J3 i; z4 y& \" e* N

% c; `0 K* g" X3 s  M return(bResult);
9 j0 O. J" W. v) A! Q! G# d}