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

天云上人

  BOOL CPicture::SaveAsBitmap(CString sFilePathName)
" X- N. |7 E) n+ |//=============================================================================
8 [' O0 |9 N6 I1 K' Z. u# l' N{
2 G: S! D% D! X% q3 f" w: [# }9 r1 C BOOL bResult = FALSE;
ILockBytes *Buffer = 0;
4 b2 H/ s& a" t( l5 W% E" X4 J4 ? IStorage   *pStorage = 0;
IStream    *FileStream = 0;
BYTE    *BufferBytes;
STATSTG  BytesStatistics;
2 ~1 z& m3 u% h" h+ M7 u, g; E DWORD  OutData;
, ?# _9 F6 h" C5 Q+ A3 A( F long  OutStream;
' Q2 I" d& s3 r7 d CFile  BitmapFile; CFileException e;
double  SkipFloat = 0;
5 J# G; a; M. R+ Q9 W6 q DWORD  ByteSkip = 0;
_ULARGE_INTEGER RealData;
( @3 ^! `( F6 E9 _4 f- E; `1 C
/ g- ~3 U$ j2 G# t
7 B( E! D% K" O6 j' C$ }5 @# J
8 O+ V; M: h! } CreateILockBytesOnHGlobal(NULL, TRUE, &Buffer); // Create ILockBytes Buffer
9 H2 n. H; ]! Z  v; ]2 T+ a" `) M
, s6 @5 k/ B5 X3 F) S; p0 Q# O# L

1 r% L  D/ n4 V; \9 B# j8 N HRESULT hr = ::StgCreateDocfileOnILockBytes(Buffer,
) U. `' L' g6 c( O9 o     STGM_SHARE_EXCLUSIVE | STGM_CREATE | STGM_READWRITE, 0, &pStorage);
, F+ S/ B  ~* X. p3 Y3 q; |


hr = pStorage->CreateStream(LPICTURE,
/ }- B  o, ^+ F0 H7 `   STGM_SHARE_EXCLUSIVE | STGM_CREATE | STGM_READWRITE, 0, 0, &FileStream);
3 P7 k( ^. ^, a. C1 ^' @, p

* t: i8 U: u  G" j2 e, Y* K
: ~4 h& p6 ]5 M5 }* l) r m_pPict->SaveAsFile(FileStream, TRUE, &OutStream); // Copy Data Stream
; p; z( o# v: V8 }3 s FileStream->Release();
! f" w& Z# \- H! j0 _3 ? pStorage->Release();
/ L$ ]. x6 B" p5 a Buffer->Flush();


# ^+ v4 j' ~$ U: `. X
: T; }& ]$ s+ g1 ~2 A3 ` // Get Statistics For Final Size Of Byte Array
Buffer->Stat(&BytesStatistics, STATFLAG_NONAME);
* |& m1 ~/ L, I' r' e


// Cut UnNeeded Data Coming From SaveAsFile() (Leave Only Pure Picture Data)
SkipFloat = (double(OutStream) / 512); // Must Be In a 512 Blocks...
if(SkipFloat > DWORD(SkipFloat)) ByteSkip = (DWORD)SkipFloat + 1;
else ByteSkip = (DWORD)SkipFloat;
' f& N1 h1 G& x7 {0 c2 e ByteSkip = ByteSkip * 512; // Must Be In a 512 Blocks...
/ w  p2 v7 u8 z( f) A, S
// Find Difference Between The Two Values
ByteSkip = (DWORD)(BytesStatistics.cbSize.QuadPart - ByteSkip);
' ^$ |7 S) g+ u; s/ z6 i8 U
$ j% u; y, ]- g! L
3 Z5 M9 [  ?" }1 X8 {  n' Y
' Q* ?: B& [% B. x* {" { // Allocate Only The Pure Picture Data
RealData.LowPart = 0;
RealData.HighPart = 0;
RealData.QuadPart = ByteSkip;
9 _( Y  ~: o$ z- O/ i BufferBytes = (BYTE*)malloc(OutStream);
if(BufferBytes == NULL)
  {
  Buffer->Release();
( t+ P/ S0 t7 q$ F  HWND hWnd = AfxGetApp()->GetMainWnd()->m_hWnd;
  MessageBoxEx(hWnd, Can not allocate enough memory\\t, ERROR_TITLE, MB_OK | MB_ICONSTOP, LANG_ENGLISH);
* Q7 t% w' N# t# j2 }  }
0 C& B- O" f& _- a% p9 ?
* A$ l+ B6 l" l6 Q$ A, p

) v6 ?( |5 \; w" c" @ Buffer->ReadAt(RealData, BufferBytes, OutStream, &OutData);
9 ?5 L/ F& o" k0 R. n3 @9 o( |0 X


if(BitmapFile.Open(sFilePathName, CFile::typeBinary | CFile::modeCreate | CFile::modeWrite, &e))
; Z* s# z1 r! F* z$ {9 g: y& b  {
  BitmapFile.Write(BufferBytes, OutData);
# @5 v* o- K7 O6 K# @  BitmapFile.Close();
- g% U/ K! J% ^% k3 h! f  bResult = TRUE;
  }
else // Write File Failed...
  {
  TCHAR szCause[255];
  e.GetErrorMessage(szCause, 255, NULL);
9 A$ c) g( j. ^. F  HWND hWnd = AfxGetApp()->GetMainWnd()->m_hWnd;
  MessageBoxEx(hWnd, szCause, ERROR_TITLE, MB_OK | MB_ICONSTOP, LANG_ENGLISH);
1 h+ f  x4 u! o% y, s; f+ e  bResult = FALSE;
: \6 n. n/ N5 J! _  }
! f5 e  L& D: N' Z
Buffer->Release();
0 I* I9 n( x# p: O* P free(BufferBytes);
# {- p( J( c! O+ a: u& ^

8 B4 F, Z3 w7 ^, k% x( D
* B: J5 ?0 z0 i; F, Z5 r return(bResult);
}