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

天云上人

  BOOL CPicture::SaveAsBitmap(CString sFilePathName)
- R7 M$ E( l: P6 |4 I5 V//=============================================================================
! J( t( d" S! @) B0 Q- W/ w{
BOOL bResult = FALSE;
$ ~! X: a% A" V" A; O ILockBytes *Buffer = 0;
IStorage   *pStorage = 0;
. U6 L9 O9 ]1 D- ^; ]6 v# T IStream    *FileStream = 0;
BYTE    *BufferBytes;
, w' z/ z$ n- V# w1 y( K9 _! q; a: F STATSTG  BytesStatistics;
DWORD  OutData;
long  OutStream;
CFile  BitmapFile; CFileException e;
6 R8 @! |( k) T. }6 q& v& V double  SkipFloat = 0;
DWORD  ByteSkip = 0;
_ULARGE_INTEGER RealData;
+ [3 F9 I  r; k+ f. D2 f
" n- ]8 [& \- f7 F& U' u6 N" ?; n

CreateILockBytesOnHGlobal(NULL, TRUE, &Buffer); // Create ILockBytes Buffer
( o/ y5 s5 u$ \& C; n
& `! \' _5 }7 k9 A9 A
$ C3 l) T! D$ J, z$ K) r
' I" Z6 n* I) m, V8 [ HRESULT hr = ::StgCreateDocfileOnILockBytes(Buffer,
, d" t: F5 l) ^1 {. N$ |  S     STGM_SHARE_EXCLUSIVE | STGM_CREATE | STGM_READWRITE, 0, &pStorage);

& h2 U- p% ^# u/ g: V7 }0 F; f
) e0 ~5 [# _- x' S  s5 b3 P. h
) }* L, {" e: M5 y/ ? hr = pStorage->CreateStream(LPICTURE,
  STGM_SHARE_EXCLUSIVE | STGM_CREATE | STGM_READWRITE, 0, 0, &FileStream);



0 \. Z- k  G( [: j3 v2 n m_pPict->SaveAsFile(FileStream, TRUE, &OutStream); // Copy Data Stream
FileStream->Release();
  L+ d. R- D* i0 d( X& w; X- k pStorage->Release();
  `4 J7 P: N# ^ Buffer->Flush();

+ S: f5 l4 e" Y* i: t
+ ?' Y7 p( b, _! i
. Y  a4 {4 p8 H/ M( J5 ~' V // Get Statistics For Final Size Of Byte Array
Buffer->Stat(&BytesStatistics, STATFLAG_NONAME);



6 M6 d) g- L9 j // Cut UnNeeded Data Coming From SaveAsFile() (Leave Only Pure Picture Data)
% [( }$ N0 P, L2 x  a' s5 V5 m& w! \( Y SkipFloat = (double(OutStream) / 512); // Must Be In a 512 Blocks...
6 X. ^# E, N5 e  M8 o. ? if(SkipFloat > DWORD(SkipFloat)) ByteSkip = (DWORD)SkipFloat + 1;
else ByteSkip = (DWORD)SkipFloat;
ByteSkip = ByteSkip * 512; // Must Be In a 512 Blocks...

. O$ j0 R" p& b) | // Find Difference Between The Two Values
ByteSkip = (DWORD)(BytesStatistics.cbSize.QuadPart - ByteSkip);
9 a) h! p5 `8 O
" l4 ?/ p  @5 l0 N: |6 _

' Z( i6 E4 H. T  o // Allocate Only The Pure Picture Data
& G( k$ g1 O* {6 R# J RealData.LowPart = 0;
RealData.HighPart = 0;
RealData.QuadPart = ByteSkip;
BufferBytes = (BYTE*)malloc(OutStream);
if(BufferBytes == NULL)
0 m6 d1 b/ F6 }2 g  {
4 `1 r2 A9 v3 x7 i% Y2 ^  Buffer->Release();
6 o1 C. q9 ?- a) b: _- K+ _* a  HWND hWnd = AfxGetApp()->GetMainWnd()->m_hWnd;
  MessageBoxEx(hWnd, Can not allocate enough memory\\t, ERROR_TITLE, MB_OK | MB_ICONSTOP, LANG_ENGLISH);
  D( Q; B' o: p: }( Q) J+ U0 t  }
# n' T; t" k5 z4 [
* B) v6 i1 W/ I

Buffer->ReadAt(RealData, BufferBytes, OutStream, &OutData);
5 [9 ]; G$ ?. K* O. Z5 c
* |; V7 w! @- Q2 F2 z$ Q

7 z2 V0 C1 C, o1 W4 p) q if(BitmapFile.Open(sFilePathName, CFile::typeBinary | CFile::modeCreate | CFile::modeWrite, &e))
6 G' }9 F' \9 P- ]! |  {
: z; e1 J6 h- m. c  BitmapFile.Write(BufferBytes, OutData);
1 D- f9 l& Q9 D7 H6 V  BitmapFile.Close();
' N+ d. e% p7 R1 T# L% ?3 p  f  d  bResult = TRUE;
  }
else // Write File Failed...
2 |8 e; I9 P+ E  {
  TCHAR szCause[255];
  e.GetErrorMessage(szCause, 255, NULL);
: h: b: H1 V! ^9 z  {  z9 ~/ v  HWND hWnd = AfxGetApp()->GetMainWnd()->m_hWnd;
& n; k% I) d) ~4 {# H% q5 X  MessageBoxEx(hWnd, szCause, ERROR_TITLE, MB_OK | MB_ICONSTOP, LANG_ENGLISH);
( g4 f$ c/ b9 a) L( q/ `! s  bResult = FALSE;
* A. `3 ]* v6 \  {! J  }

Buffer->Release();
8 }$ ?9 L) J# [! F0 I# o; Y: ~ free(BufferBytes);

  P& T: }% z: q9 o3 |+ W7 d; H$ k7 p

return(bResult);
}