ab.com コミュニティ

コード: 全て選択

hWndDC = GetDC(hMainWnd)
SetStretchBltMode(hWndDC,COLORONCOLOR)	'これやらないと縮小した時に画像が滲みます。

pGetFrameObj=AVIStreamGetFrameOpen(pAVIStream, AVIGETFRAMEF_BESTDISPLAYFMT)
ptr=AVIStreamGetFrame(pGetFrameObj,a)

StretchDIBits((hWndDC, 0, 0, 幅, 高さ, 0, 0, ptr->biWidth, ptr->biHeight, ptr +ptr->biSize, ByVal ptr, DIB_RGB_COLORS, SRCCOPY)	'幅, 高さで縮小拡大できます

ReleaseDC(hMainWnd,hWndDC)

コード: 全て選択

GdipCreateBitmapFromGdiDib(ByVal ptr,VarPtr(bfh),g_gpBitmap)
Hozon()

コード: 全て選択

Sub Hozon()

	Dim Buffer As String
	Dim pwFileName As WordPtr
	Dim dwFNSize As DWord
	Dim sClsId As String
	Dim pwClsId As WordPtr
	Dim dwCISize As DWord
	Dim tClsId As CLSID


	'毎回選択するのは面倒なので決め打ち
	Buffer ="C:\Program Files\ActiveBasic\MyProjects\ImageViewerAB\Avi2J.jpg"
	sClsId = CLSID_JPEG


	'ファイルパスワイド文字格納領域サイズを取得し、動的に確保する　　ワイド文字に変換する
	dwFNSize = MultiByteToWideChar(0, 0, StrPtr(Buffer), -1, 0, 0) * 2
	pwFileName = malloc(dwFNSize)
	MultiByteToWideChar(0, 0, StrPtr(Buffer), -1, pwFileName, dwFNSize)


	'クラスIDワイド文字格納領域サイズを取得し、動的に確保する　　クラスIDをワイド文字に変換する
	dwCISize = MultiByteToWideChar(0, 0, StrPtr(sClsId), -1, 0, 0) * 2
	pwClsId = malloc(dwCISize)
	MultiByteToWideChar(0, 0, StrPtr(sClsId), -1, pwClsId, dwCISize)

	

	'クラスID文字列から128BitクラスID値を取得する
	If CLSIDFromString(pwClsId As Long, tClsId) <> 0 Then
		MessageBox(hMainWnd, "ファイル形式のID値取得に失敗しました", "エラー", MB_OK)
		free(pwFileName)
		free(pwClsId)
		Exit Sub
	End If

	
	'指定形式でファイルを保存する　　確保したワイド文字格納領域を解放する
	If GdipSaveImageToFile(g_gpBitmap, pwFileName As Long, tClsId, 0) <> 0 Then
		MessageBox(hMainWnd, "ファイルの保存に失敗しました", "エラー", MB_OK)
	Else
		MessageBox(hMainWnd, "ファイルを保存しました", "成功", MB_OK)
	End If

	free(pwFileName)
	free(pwClsId)

End Sub

コード: 全て選択

Declare FunctionGdipCreateBitmapFromGdiDib Lib "gdiplus.dll"(
    ByRef gdiBitmapInfo As BITMAPINFO,
    ByVal gdiBitmapData As VoidPtr,
    ByRef bitmap As Long) As Long