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

天云上人

  BOOL CPicture::SaveAsBitmap(CString sFilePathName)
//=============================================================================
) H" v' N5 r# G* G7 G% u{
) e5 U% J' ~, |  h" S  g/ C3 m; E BOOL bResult = FALSE;
6 A0 _7 J( N, S9 m. A- k0 @9 k( Q ILockBytes *Buffer = 0;
$ M9 t& L# q5 ]! z) D; O IStorage   *pStorage = 0;
# C, l1 A: c  e( ~) M3 Y IStream    *FileStream = 0;
BYTE    *BufferBytes;
STATSTG  BytesStatistics;
DWORD  OutData;
long  OutStream;
! O7 I+ c2 L8 n* v% \( [ CFile  BitmapFile; CFileException e;
double  SkipFloat = 0;
DWORD  ByteSkip = 0;
_ULARGE_INTEGER RealData;



3 A1 Q  b' t4 G& e8 L4 w CreateILockBytesOnHGlobal(NULL, TRUE, &Buffer); // Create ILockBytes Buffer
( ^; ~( U  @6 Y0 E& w$ A+ a

9 K- @  D$ h( |3 S. J
HRESULT hr = ::StgCreateDocfileOnILockBytes(Buffer,
9 S3 a( f7 k1 Q+ F9 Q% C) J     STGM_SHARE_EXCLUSIVE | STGM_CREATE | STGM_READWRITE, 0, &pStorage);
9 Y9 I/ t1 k- q/ @% i) ~, R. Z
6 |# c4 V. C9 d4 ]1 `3 I9 J6 t
2 D8 _5 o3 D5 @4 e( I
hr = pStorage->CreateStream(LPICTURE,
  STGM_SHARE_EXCLUSIVE | STGM_CREATE | STGM_READWRITE, 0, 0, &FileStream);
: F8 G$ b& }( m


! a2 k0 u4 {9 @& d- Q) T m_pPict->SaveAsFile(FileStream, TRUE, &OutStream); // Copy Data Stream
9 t. U, _" z8 F4 ^3 { FileStream->Release();
pStorage->Release();
0 M9 Z9 m4 g# h$ b7 ~ Buffer->Flush();


( ~! E; N; e3 `" r" T4 Y; j4 n
// Get Statistics For Final Size Of Byte Array
" u' k2 C5 r, d" u8 t# z6 e Buffer->Stat(&BytesStatistics, STATFLAG_NONAME);

$ E& x9 \4 ]2 m" r9 w2 V% M- R- U
2 r8 J2 ~5 y: C1 j' c
// Cut UnNeeded Data Coming From SaveAsFile() (Leave Only Pure Picture Data)
% j% m' E& H( d! F/ _6 V SkipFloat = (double(OutStream) / 512); // Must Be In a 512 Blocks...
if(SkipFloat > DWORD(SkipFloat)) ByteSkip = (DWORD)SkipFloat + 1;
else ByteSkip = (DWORD)SkipFloat;
- |" H6 i2 e1 @8 Q' _ ByteSkip = ByteSkip * 512; // Must Be In a 512 Blocks...

: e4 w. ~2 u: m6 Q8 Y4 F // Find Difference Between The Two Values
ByteSkip = (DWORD)(BytesStatistics.cbSize.QuadPart - ByteSkip);
( M6 f- a3 I6 Y2 U+ w- K
, x  U1 }" N+ l' {& e
6 x/ o, C6 i3 x5 c5 b) X6 e
// Allocate Only The Pure Picture Data
RealData.LowPart = 0;
RealData.HighPart = 0;
RealData.QuadPart = ByteSkip;
BufferBytes = (BYTE*)malloc(OutStream);
  b8 s5 F, `  F- L; B3 m if(BufferBytes == NULL)
  {
6 c( I) N3 O  {, u# Y7 M) U2 D  Buffer->Release();
  HWND hWnd = AfxGetApp()->GetMainWnd()->m_hWnd;
  MessageBoxEx(hWnd, Can not allocate enough memory\\t, ERROR_TITLE, MB_OK | MB_ICONSTOP, LANG_ENGLISH);
  }
+ i5 [4 R3 L5 a- ~, N" J9 T
: l! c* S. |/ c: y5 v& `! t
% s+ k, t# M7 V2 T  Z5 y
Buffer->ReadAt(RealData, BufferBytes, OutStream, &OutData);


# F! e& N, j7 k% n
/ x! p5 x3 H9 |: X if(BitmapFile.Open(sFilePathName, CFile::typeBinary | CFile::modeCreate | CFile::modeWrite, &e))
  {
8 W! c( @, {2 z; w( u  BitmapFile.Write(BufferBytes, OutData);
  BitmapFile.Close();
! P2 M/ _# A4 K1 ?- b% I: }5 n% ?  bResult = TRUE;
  }
else // Write File Failed...
) a/ q; ?3 U  r: g  C5 N  {
  TCHAR szCause[255];
( S& C+ n6 a& u' f9 q% [2 t+ z  e.GetErrorMessage(szCause, 255, NULL);
  HWND hWnd = AfxGetApp()->GetMainWnd()->m_hWnd;
  MessageBoxEx(hWnd, szCause, ERROR_TITLE, MB_OK | MB_ICONSTOP, LANG_ENGLISH);
  bResult = FALSE;
2 v1 y. u2 q, ~8 C, G$ m! n2 d  }

Buffer->Release();
free(BufferBytes);
5 @% u$ f' D# H) T6 C
* |* l9 E0 X8 P% i; Y4 Y

return(bResult);
; @% U  i5 Y' \}