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

天云上人

  BOOL CPicture::SaveAsBitmap(CString sFilePathName)
//=============================================================================
{
BOOL bResult = FALSE;
$ d* ]  ^. q8 |1 w8 U; T; D ILockBytes *Buffer = 0;
IStorage   *pStorage = 0;
IStream    *FileStream = 0;
4 o1 R0 _$ g( d  x- F2 E% Z: P: U BYTE    *BufferBytes;
, ^# {3 I3 U" |) {. x8 ` STATSTG  BytesStatistics;
1 \8 {6 a6 L8 [9 ? DWORD  OutData;
' u- |+ p- ~' a long  OutStream;
CFile  BitmapFile; CFileException e;
% C8 {! v( x- x' l2 } double  SkipFloat = 0;
DWORD  ByteSkip = 0;
_ULARGE_INTEGER RealData;

$ L4 [) P- |0 b5 ^' c  ?. S) W+ u

' U; a' y7 K) y# A CreateILockBytesOnHGlobal(NULL, TRUE, &Buffer); // Create ILockBytes Buffer

0 {4 Z9 u6 f9 {# m6 m! c, c
- {& i4 L: `( p
9 f, v5 m' ?9 X; @" q* n  t HRESULT hr = ::StgCreateDocfileOnILockBytes(Buffer,
, |) [' q: u5 n/ e. `5 \! f     STGM_SHARE_EXCLUSIVE | STGM_CREATE | STGM_READWRITE, 0, &pStorage);

2 C1 W9 O1 N" @( ]4 J4 A, @3 G
$ J( ~  {) S7 H
5 w* }4 k' A1 L7 B$ p hr = pStorage->CreateStream(LPICTURE,
' b4 ?" F: Y/ }5 E- o   STGM_SHARE_EXCLUSIVE | STGM_CREATE | STGM_READWRITE, 0, 0, &FileStream);

9 m# p! n- y- j/ c

m_pPict->SaveAsFile(FileStream, TRUE, &OutStream); // Copy Data Stream
, |2 v! M5 D# ]  o  i FileStream->Release();
! R' ~; _) [* _6 U pStorage->Release();
5 L  {9 F- N4 Y+ N Buffer->Flush();
. V; g$ Z( f3 `: S& ^0 u/ L* N
; F; D. C0 R# B* R3 U7 z
! ?0 P3 W$ i4 s( M5 G( R) f3 y
7 j1 K9 h2 j+ U% Y: [ // Get Statistics For Final Size Of Byte Array
  y2 e2 T4 i7 Y8 ~ Buffer->Stat(&BytesStatistics, STATFLAG_NONAME);


3 ^0 g% f$ X9 S) ~' S  z; s
8 q9 ?7 ^% [8 [ // Cut UnNeeded Data Coming From SaveAsFile() (Leave Only Pure Picture Data)
/ c' d- ~. V( j3 {8 R SkipFloat = (double(OutStream) / 512); // Must Be In a 512 Blocks...
- x7 q9 e1 s/ o; u if(SkipFloat > DWORD(SkipFloat)) ByteSkip = (DWORD)SkipFloat + 1;
( ]* l. B. |8 t  N9 r else ByteSkip = (DWORD)SkipFloat;
ByteSkip = ByteSkip * 512; // Must Be In a 512 Blocks...
! q% _8 O3 s2 O/ n
// Find Difference Between The Two Values
ByteSkip = (DWORD)(BytesStatistics.cbSize.QuadPart - ByteSkip);
! u, u* ~+ |! b/ h$ j" N, ]
. ^2 j+ g7 u" V9 M! T7 p( H

) f! }  Z* B" i) f2 k5 U- W // Allocate Only The Pure Picture Data
5 G; a. }1 m! M1 w RealData.LowPart = 0;
9 M* m! U; L5 i; R' {$ ^4 g RealData.HighPart = 0;
; }* e! t+ ~2 e: Z: k RealData.QuadPart = ByteSkip;
- \% I! H+ J' e0 g7 i BufferBytes = (BYTE*)malloc(OutStream);
if(BufferBytes == NULL)
  {
) ^- q- X; d8 o: x( f9 N% s  Buffer->Release();
  HWND hWnd = AfxGetApp()->GetMainWnd()->m_hWnd;
  MessageBoxEx(hWnd, Can not allocate enough memory\\t, ERROR_TITLE, MB_OK | MB_ICONSTOP, LANG_ENGLISH);
+ ]9 g* p6 X3 ?% x" I. W1 W  }

3 k0 D) D& H- Z5 ~
8 }9 z! u- ]4 a5 E, {( Z: {
% S, p5 m7 y, Y Buffer->ReadAt(RealData, BufferBytes, OutStream, &OutData);
% A; g9 D# q2 _% z% G# ^3 {


if(BitmapFile.Open(sFilePathName, CFile::typeBinary | CFile::modeCreate | CFile::modeWrite, &e))
4 p. u. q5 l- h0 [. i" y  {
2 k  {* v& Z* l# S  BitmapFile.Write(BufferBytes, OutData);
  BitmapFile.Close();
  bResult = TRUE;
! K* o. k3 B$ v8 T  }
else // Write File Failed...
$ z" O3 R) h' Q( \$ J  {
  TCHAR szCause[255];
3 r- [9 i# I* {, H7 M$ o  e.GetErrorMessage(szCause, 255, NULL);
- x: X- j! E' |: V4 t! H  HWND hWnd = AfxGetApp()->GetMainWnd()->m_hWnd;
  MessageBoxEx(hWnd, szCause, ERROR_TITLE, MB_OK | MB_ICONSTOP, LANG_ENGLISH);
' f0 x4 y) q. d8 ]3 _  bResult = FALSE;
  Q! K* v% V. w( r( d: D  }
. g. \& s1 H1 ?- D4 J/ S
$ {6 Z  _( T8 y Buffer->Release();
free(BufferBytes);
6 t1 ]% X+ Z, W! {

" g* x$ Q) {( Y8 C
return(bResult);
" z9 R1 O5 }$ {' g}