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

天云上人

  BOOL CPicture::SaveAsBitmap(CString sFilePathName)
//=============================================================================
4 Q: v2 j; C$ i* b4 M4 c+ L{
# A4 w: B% M, t1 ? BOOL bResult = FALSE;
ILockBytes *Buffer = 0;
  Y' A8 Z+ ^1 ?2 B7 ~+ c1 N IStorage   *pStorage = 0;
IStream    *FileStream = 0;
BYTE    *BufferBytes;
STATSTG  BytesStatistics;
DWORD  OutData;
long  OutStream;
5 H* ]- B& p" h4 R" C5 U CFile  BitmapFile; CFileException e;
/ ?5 }" ]4 _4 p4 j) } double  SkipFloat = 0;
. I* g  V( C5 S& f; }" o) f DWORD  ByteSkip = 0;
_ULARGE_INTEGER RealData;


9 u$ i8 n- r* x5 t! Y! p# a  `
+ D* v+ ?3 J; s- t3 | CreateILockBytesOnHGlobal(NULL, TRUE, &Buffer); // Create ILockBytes Buffer

" E4 D3 ]" U1 T5 \/ S5 |* ]
/ o% i9 ^1 N$ ?# |) Q# \8 b
HRESULT hr = ::StgCreateDocfileOnILockBytes(Buffer,
    STGM_SHARE_EXCLUSIVE | STGM_CREATE | STGM_READWRITE, 0, &pStorage);
+ d- }; I8 E/ W: j( y
3 b  z7 l. y- x5 c+ @

hr = pStorage->CreateStream(LPICTURE,
/ Y! G9 h: x, K8 s' O  N: m: J   STGM_SHARE_EXCLUSIVE | STGM_CREATE | STGM_READWRITE, 0, 0, &FileStream);
  U, D: h1 U- @5 A


m_pPict->SaveAsFile(FileStream, TRUE, &OutStream); // Copy Data Stream
FileStream->Release();
pStorage->Release();
Buffer->Flush();

: {3 o- y  w8 {, M* }& i
4 V! ^3 E3 p  M
// Get Statistics For Final Size Of Byte Array
+ e' ?7 s% e0 Y Buffer->Stat(&BytesStatistics, STATFLAG_NONAME);

0 N/ E, w1 k# O* s
7 Q# u2 ^. G' N% {4 j9 u
// Cut UnNeeded Data Coming From SaveAsFile() (Leave Only Pure Picture Data)
4 J, C# w0 o( L- h SkipFloat = (double(OutStream) / 512); // Must Be In a 512 Blocks...
if(SkipFloat > DWORD(SkipFloat)) ByteSkip = (DWORD)SkipFloat + 1;
else ByteSkip = (DWORD)SkipFloat;
3 Z% s' V' \" q9 f. F ByteSkip = ByteSkip * 512; // Must Be In a 512 Blocks...
2 J: L( P! ]' s( W
! _- ~& }+ p2 K, U) P6 f // Find Difference Between The Two Values
ByteSkip = (DWORD)(BytesStatistics.cbSize.QuadPart - ByteSkip);
9 t2 `7 R6 J/ a( I. D
. N- l8 X& f2 y% j' |; Y

// Allocate Only The Pure Picture Data
* o: N) I" `7 W4 u RealData.LowPart = 0;
$ ?5 `: Y+ U/ w9 D( k2 L9 C RealData.HighPart = 0;
$ v3 J- u9 u) i: N$ B2 k, g' U7 j RealData.QuadPart = ByteSkip;
BufferBytes = (BYTE*)malloc(OutStream);
; p1 I; c, @3 b' h; i! w if(BufferBytes == NULL)
  {
3 p5 u9 `3 @' N* F; l* v  Buffer->Release();
& V6 A6 R8 B+ A+ ~# b6 A9 M2 k2 }  HWND hWnd = AfxGetApp()->GetMainWnd()->m_hWnd;
  MessageBoxEx(hWnd, Can not allocate enough memory\\t, ERROR_TITLE, MB_OK | MB_ICONSTOP, LANG_ENGLISH);
  }



Buffer->ReadAt(RealData, BufferBytes, OutStream, &OutData);


. ~, i+ R# e4 ], D; X8 c
) I# Z; e3 s8 a) f" N2 v4 b9 S% I if(BitmapFile.Open(sFilePathName, CFile::typeBinary | CFile::modeCreate | CFile::modeWrite, &e))
  {
  BitmapFile.Write(BufferBytes, OutData);
  BitmapFile.Close();
! X) K2 k) Z. `4 t  bResult = TRUE;
  }
8 A$ `. I# ^8 A" j8 A" b' q else // Write File Failed...
  {
, y4 K" b1 ?1 P* o" Z  TCHAR szCause[255];
/ w: k- p5 s- H6 J  e.GetErrorMessage(szCause, 255, NULL);
; G+ k! R& a7 G5 W& \  HWND hWnd = AfxGetApp()->GetMainWnd()->m_hWnd;
  MessageBoxEx(hWnd, szCause, ERROR_TITLE, MB_OK | MB_ICONSTOP, LANG_ENGLISH);
  bResult = FALSE;
/ U& }* w3 X! a1 q! \+ @  }

/ Y# G  Q) ?0 l Buffer->Release();
free(BufferBytes);

8 d5 |/ }: Q  @% X1 T  _1 A% g  u, M
; E. o& Z9 Z' X: ]- ~. M% }9 U) R
return(bResult);
6 Q/ ^2 Z5 x9 I' g& j+ h' _! Y}