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

天云上人

  BOOL CPicture::SaveAsBitmap(CString sFilePathName)
* K+ F+ x" u. N5 t0 W% O- M9 _//=============================================================================
$ {8 {2 L$ h( m1 f3 d2 U( I{
BOOL bResult = FALSE;
" P" L" G$ \4 U% }$ h ILockBytes *Buffer = 0;
IStorage   *pStorage = 0;
2 U5 ?) W6 }% e/ v4 b8 H IStream    *FileStream = 0;
BYTE    *BufferBytes;
STATSTG  BytesStatistics;
DWORD  OutData;
long  OutStream;
CFile  BitmapFile; CFileException e;
double  SkipFloat = 0;
DWORD  ByteSkip = 0;
0 i6 M  P- a1 T _ULARGE_INTEGER RealData;
' b8 b4 _- j  _5 O
5 p4 u+ O/ G* W4 s9 ?/ v, S
* N* Q; e: N8 w. {- Q
CreateILockBytesOnHGlobal(NULL, TRUE, &Buffer); // Create ILockBytes Buffer


+ p0 H, S& @1 \8 ^) B4 B! k
HRESULT hr = ::StgCreateDocfileOnILockBytes(Buffer,
    STGM_SHARE_EXCLUSIVE | STGM_CREATE | STGM_READWRITE, 0, &pStorage);
  [2 j' B' t7 P% |
5 L) _8 K2 a, i3 w! u
; A2 Y, Q. K" U: Q* |# J" k
hr = pStorage->CreateStream(LPICTURE,
4 ?* e6 M/ b& ]" k   STGM_SHARE_EXCLUSIVE | STGM_CREATE | STGM_READWRITE, 0, 0, &FileStream);

1 z) Y. C! H" r, V$ J/ H: A

, k, q: N) O2 N4 D m_pPict->SaveAsFile(FileStream, TRUE, &OutStream); // Copy Data Stream
1 S2 a9 m$ a0 z) `: x& I FileStream->Release();
4 _+ |) M1 O, `5 J5 ] pStorage->Release();
# q# d, H% G' @ Buffer->Flush();
" {2 F% m: C8 D' [) r) r, ]

; G6 W* j6 D' S8 x
  S4 o" J$ G; q' i // Get Statistics For Final Size Of Byte Array
Buffer->Stat(&BytesStatistics, STATFLAG_NONAME);

/ m, v8 Q9 J$ ^

// 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;
6 B6 U5 V+ E+ K" [ else ByteSkip = (DWORD)SkipFloat;
) X: W3 {& q( p3 y$ l2 C ByteSkip = ByteSkip * 512; // Must Be In a 512 Blocks...

// Find Difference Between The Two Values
8 C# }% A+ W" E ByteSkip = (DWORD)(BytesStatistics.cbSize.QuadPart - ByteSkip);
6 C5 z% i8 D( B5 _


// Allocate Only The Pure Picture Data
RealData.LowPart = 0;
RealData.HighPart = 0;
RealData.QuadPart = ByteSkip;
) v) y0 o5 H! q9 s9 L" \. m BufferBytes = (BYTE*)malloc(OutStream);
if(BufferBytes == NULL)
  {
: w! Q" L5 |1 y6 S: ?9 A, |  Buffer->Release();
  HWND hWnd = AfxGetApp()->GetMainWnd()->m_hWnd;
  MessageBoxEx(hWnd, Can not allocate enough memory\\t, ERROR_TITLE, MB_OK | MB_ICONSTOP, LANG_ENGLISH);
. h/ Z( d" {! v+ D& r; @  }

; V, H: C9 G$ r

/ g0 }4 j5 V* y  y Buffer->ReadAt(RealData, BufferBytes, OutStream, &OutData);



if(BitmapFile.Open(sFilePathName, CFile::typeBinary | CFile::modeCreate | CFile::modeWrite, &e))
  {
  BitmapFile.Write(BufferBytes, OutData);
  BitmapFile.Close();
' C% d$ N6 n. Z) W! A2 P  bResult = TRUE;
  }
+ T+ ?1 E: n5 M) ]2 E/ H" } else // Write File Failed...
& C; t3 a- k. ]( D  H6 W9 r  {
  TCHAR szCause[255];
  e.GetErrorMessage(szCause, 255, NULL);
: v0 T! R/ o9 @2 h  HWND hWnd = AfxGetApp()->GetMainWnd()->m_hWnd;
  MessageBoxEx(hWnd, szCause, ERROR_TITLE, MB_OK | MB_ICONSTOP, LANG_ENGLISH);
  ~$ b, P/ \# o, W  bResult = FALSE;
  }

Buffer->Release();
/ F& t6 j/ `& d) C* s free(BufferBytes);
- ]1 t. s% q) {" ]  G* y% ~


: F$ Y, O$ {0 y; V% V1 m return(bResult);
3 v' X7 Z6 G, _% V}