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

天云上人

  BOOL CPicture::SaveAsBitmap(CString sFilePathName)
//=============================================================================
{
BOOL bResult = FALSE;
ILockBytes *Buffer = 0;
5 N9 O8 W# ]2 d# p IStorage   *pStorage = 0;
* m5 ~3 I' I% Z# T" ~ IStream    *FileStream = 0;
BYTE    *BufferBytes;
" S6 F4 z2 V' o& K STATSTG  BytesStatistics;
DWORD  OutData;
& _: e% _9 w, Z long  OutStream;
CFile  BitmapFile; CFileException e;
double  SkipFloat = 0;
3 r% Y' Q, c* q' x) A DWORD  ByteSkip = 0;
: F. _4 \+ j/ x% n8 X  b6 j0 A _ULARGE_INTEGER RealData;
/ i. e2 U; i- Y9 B3 O, \6 u* q0 G

- L# P! {( t/ `7 I# }
CreateILockBytesOnHGlobal(NULL, TRUE, &Buffer); // Create ILockBytes Buffer

1 M$ g2 L$ l8 ?6 D( q% C- C
. |" z7 u% w. Z4 W& E
8 I1 y4 ~2 B4 X, ^  S" K6 x HRESULT hr = ::StgCreateDocfileOnILockBytes(Buffer,
$ `; ^! a0 D; `# U2 {# i     STGM_SHARE_EXCLUSIVE | STGM_CREATE | STGM_READWRITE, 0, &pStorage);
! y  v2 J6 c6 K: x


  v- g  \7 a5 G6 u& ` hr = pStorage->CreateStream(LPICTURE,
+ f- ^6 b% ?; k. s7 f   STGM_SHARE_EXCLUSIVE | STGM_CREATE | STGM_READWRITE, 0, 0, &FileStream);



m_pPict->SaveAsFile(FileStream, TRUE, &OutStream); // Copy Data Stream
FileStream->Release();
) E$ `/ i: l. f( _' v pStorage->Release();
  E/ t' N, x, M  o. e Buffer->Flush();

- O$ T; Z3 u$ @1 l# o3 J: \
5 x4 H9 b4 I3 v+ c
8 h0 a2 e0 K, h // Get Statistics For Final Size Of Byte Array
Buffer->Stat(&BytesStatistics, STATFLAG_NONAME);
6 F4 m) }5 c" d) p- e
- x/ e% T4 z8 W
: Q. Q- X/ i/ _
// Cut UnNeeded Data Coming From SaveAsFile() (Leave Only Pure Picture Data)
SkipFloat = (double(OutStream) / 512); // Must Be In a 512 Blocks...
8 p3 ~1 d2 w9 L3 \. e* P$ v+ G if(SkipFloat > DWORD(SkipFloat)) ByteSkip = (DWORD)SkipFloat + 1;
else ByteSkip = (DWORD)SkipFloat;
) ~$ r, M# |6 D. b5 [' b ByteSkip = ByteSkip * 512; // Must Be In a 512 Blocks...

// Find Difference Between The Two Values
: m, ]3 ?  s. H8 I, A3 `# g ByteSkip = (DWORD)(BytesStatistics.cbSize.QuadPart - ByteSkip);



// Allocate Only The Pure Picture Data
1 ]6 s9 F4 s7 P0 h. T. C8 ] RealData.LowPart = 0;
# T* }4 C4 p* S4 x RealData.HighPart = 0;
RealData.QuadPart = ByteSkip;
$ C1 Y+ a; @2 e) o) p5 Y/ a( z BufferBytes = (BYTE*)malloc(OutStream);
# k% z  q5 k  _5 R6 _ if(BufferBytes == NULL)
" @3 T, ^% R5 Z8 W1 h1 R  {
  Buffer->Release();
. T; I% O4 Q) ]  D- R5 ~2 d  HWND hWnd = AfxGetApp()->GetMainWnd()->m_hWnd;
1 w7 D- S6 D& h4 h/ \. C+ Y( z  MessageBoxEx(hWnd, Can not allocate enough memory\\t, ERROR_TITLE, MB_OK | MB_ICONSTOP, LANG_ENGLISH);
  }
8 b5 F  J* }/ d- H& l. z$ Y. I


9 a7 k. M0 ~* K! r8 X Buffer->ReadAt(RealData, BufferBytes, OutStream, &OutData);

- Y  I: Y. o! i" Y2 ]/ T. d& n1 s

6 T8 \; c0 U: a4 k if(BitmapFile.Open(sFilePathName, CFile::typeBinary | CFile::modeCreate | CFile::modeWrite, &e))
2 ?+ M+ |4 B( [, \1 D5 Q0 X  H5 d, r  {
  BitmapFile.Write(BufferBytes, OutData);
+ K/ h9 x& t& C5 \  BitmapFile.Close();
" W  t* c, j; @4 D2 O# _1 [3 I- [  bResult = TRUE;
' U/ P4 T" M4 _, O8 u  T( Z7 k  }
else // Write File Failed...
  {
6 a9 {( N+ w. y  X. V  TCHAR szCause[255];
  e.GetErrorMessage(szCause, 255, NULL);
  HWND hWnd = AfxGetApp()->GetMainWnd()->m_hWnd;
  MessageBoxEx(hWnd, szCause, ERROR_TITLE, MB_OK | MB_ICONSTOP, LANG_ENGLISH);
  bResult = FALSE;
; V& l2 f" D. N7 l+ {# O  }
. r+ W) [  g' H$ o# [9 ~
3 q* @5 F8 c/ P% o Buffer->Release();
free(BufferBytes);

9 X9 S2 o1 u8 [4 y6 i& b- d3 O. F
- F- }5 Z: Q0 h& @; y7 t% F6 {  H
! x, B' `  q2 D, a5 G return(bResult);
}