windowscodecs dll，mp4文件的压缩类型不受支持？
解决导入错误
当您看到“文件的压缩类型不受支持”错误时，请检查 Premiere Pro 中的媒体缓存和媒体缓存数据库。
在 Windows 操作系统中选择“编辑”菜单 > 首选项 > 媒体缓存数据库，或在 Mac OS 中选择“Premiere Pro”菜单 > 偏好设置 > 媒体缓存数据库。请记下此位置。
清除媒体缓存
关闭 Premiere Pro 及其他 Adobe 音频和视频应用程序。
导航至 Premiere Pro > 首选项下指定的媒体缓存位置，然后重命名文件夹、媒体缓存文件和媒体缓存。选择清理以清理媒体缓存数据库文件夹。
启动 Premiere Pro 并尝试导入文件。
如果问题仍然存在，请更改 AVCHD 文件所在的文件目录，然后检查是否解决了问题。例如，如果文件夹结构为：
AVCHD>BDMV>STREAM>.MTS0000
可再创建一个文件夹 XYZ，然后将 AVCHD 文件夹中的内容移动到 XYZ 文件夹。
注意:
确保 MTS 文件的文件夹结构与原始文件夹相同。
如果错误仍然存在，则问题可能与激活有关。
检查您是否正在使用 Adobe Premiere Pro 的试用版。如果您正在使用试用版，则会在导入 AVCHD 和 MP4 文件时遇到问题，因为所需的 .dll 文件未安装到以下位置：C:\用户\公用\公用文档\AdobeInstalledCodecs。请升级到付费 Creative Cloud 会员资格。
在 Windows 操作系统中，卸载 Premiere Pro。
选择 C:\用户\公用\公用文档\AdobeInstalledCodecs。
将文件夹 AdobeInstalledCodecs重命名为其他名称。
在 Windows 操作系统中重命名“AdobeInstalledCodecs”文件夹
重新安装 Premiere Pro。
启动 Premiere Pro，然后尝试导入 MTS或 MP4 文件。
在 Mac OS 中，卸载 Premiere Pro。
选择 Mac HD/用户/用户名/Shared，然后将文件夹 AdobeInstalledCodecs 重命名为其他名称。
在 Mac OS 中重命名“AdobeInstalledCodecs”文件夹
重新安装 Premiere Pro。
启动 Premiere Pro，然后尝试导入 MTS或 MP4 文件。
windows资源管理器重启了还是卡？
一：出现这种问题的主要原因：软件冲突，性能分配。
二：处理方法如下：
方法1：打开资源管理器——组织——文件夹和搜索选项——查看—— 在缩略图上显示文字图标（取消勾） 。
方法2：开始——计算机——右键 属性——高级系统设置——高级——性能设置——显示缩略图，而不是显示图标（取消勾） 应用确定 。
方法3：打开任务管理器，点“文件”，再点”新建任务”，在”打开”后面打上 explorer.exe 确定，找到WinRAR,点”选项”，”设置”，”综合”,“把WinRAR整合到资源管理器中”的勾消除就行了 。
方法4：关闭显示缩略图功能。点“组织”中的“文件夹与搜索选项”，将“始终显示图标，从不显示缩略图”选上即可。此方法虽然可行，但图片也无法预览。
方法5：资源管理器重启是因为无法对某些视频文件预览，即电脑上的视频解码器不行，选择合适的解码器或者播放器就好了。装DivX for windows以前，.mkv文件无法预览，其他视频文件正常。装DivX for windows后，.mkv文件可以预览了，资源管理器也没再崩溃过。
方法6：资源管理器重启的另一个原因是软件兼容性问题，查查最近安了什么新软件，卸载了试试。
方法7： 360SoftMgr.cpl的属性是“控制面板项”，位置在System32，大小 91.5 KB。卸载360安全卫士时这个家伙赖着不动。就是它导致“资源管理已停止工作”。删掉它就OK了。
方法8：只要装了Win7 codecs之后必然导致此问题。使用QQ播放器里面的libavcodec.dll（或者其他播放器带的libavcodec.dll） 替换
Win7 codecs\filters\目录下的同名文件。 默认路径好像是的C:\Program Files\Win7codecs\filters 建议把 ffdshow.ax 这个文件也替换了，这个文件容易导致预览avi文件时资源管理器重启。
方法9： 当使用资源管理器打开新文件夹或用浏览器打开新页面不响应时，用“Win+D”或单击快速启动栏的显示桌面按钮，再在桌面上按F5或右键刷新即可。一般刷新3-5次后再把资源管理器或浏览器窗口还原就会恢复正常了。
方法10： 这一招很灵，能对付大多数假死的情况。当任务管理器都打不开时，先把光驱弹出之后再弹入(千万不要在光驱里放光盘)，鼠标指针旁会出现一个小光盘标志，这时就会唤起系统的知觉，这招可是屡试不爽!
方法11：最后的杀手锏，用组合键“Ctrl+Alt+Del”启动任务管理器，然后在“进程”选项卡中结束 explorer.exe，整个桌面只剩一张壁纸，桌面图标和任务栏都没影了，然后在任务管理器的“文件→新建任务”中输入explorer.exe，即可恢复正常。这一招还可释放内存资源，一举两得。
另外可以： 右击计算机——属性——高级系统设置——高级——性能
设置——视觉效果——选中“调整为最佳性能”——应用确定。
如何用VBA代码来提取word中的图片？
使用Range.EnhMetaFileBits
来获取图片的EMF格式数组
然后用一系列API，转换成常规的jpg/png/gif/bmp格式
本方法不占用剪贴板
GDI+ 保存图片的函数改自这里：
https://www.cnblogs.com/Imageshop/archive/2012/03/02/2377871.html
略作调整如下：
'*************************************************************************
'** 作 者 ： laviewpbt
'** 函 数 名 ： SavehBitmapToFile
'** 输 入 ： Stdpic(StdPicture) - 图象句柄
'** ： FileName(String) - 保存路径
'** ： FileFormat(ImageFileFormat) - 保存格式，默认jpg
'** ： JpgQuality(Long) - JPG图象质量
'** ： Resolution(Single) - 设置分辨率
'** 输 出 ： 无
'** 功能描述 ： 把图象保存为JPG、PNG、GIF、BMP格式
'** 修 改 人 ： laviewpbt
'** 日 期 ： 2012-03-02 22:56
'** 版 本 ： 终结版
'** 修 改 人 : loquat 20190401
'*************************************************************************
Option Explicit
Private Const UnitPixel As Long = 2
Private Const EncoderQuality As String = "{1D5BE4B5-FA4A-452D-9CDD-5DB35105E7EB}"
Private Type GdiplusStartupInput
GdiplusVersion As Long
DebugEventCallback As Long
SuppressBackgroundThread As Long
SuppressExternalCodecs As Long
End Type
Private Enum EncoderParameterValueType
EncoderParameterValueTypeByte = 1
EncoderParameterValueTypeASCII = 2
EncoderParameterValueTypeShort = 3
EncoderParameterValueTypeLong = 4
EncoderParameterValueTypeRational = 5
EncoderParameterValueTypeLongRange = 6
EncoderParameterValueTypeUndefined = 7
EncoderParameterValueTypeRationalRange = 8
End Enum
Private Type EncoderParameter
GUID(0 To 3) As Long
NumberOfValues As Long
type As EncoderParameterValueType
Value As Long
End Type
Private Type EncoderParameters
count As Long
Parameter As EncoderParameter
End Type
Private Type ImageCodecInfo
ClassID(0 To 3) As Long
FormatID(0 To 3) As Long
CodecName As Long
DllName As Long
FormatDescription As Long
FilenameExtension As Long
MimeType As Long
Flags As Long
Version As Long
SigCount As Long
SigSize As Long
SigPattern As Long
SigMask As Long
End Type
Private Declare Function GdiplusStartup Lib "gdiplus" (token As Long, inputbuf As GdiplusStartupInput, Optional ByVal outputbuf As Long = 0) As Long
Private Declare Sub GdiplusShutdown Lib "gdiplus" (ByVal token As Long)
Private Declare Function GdipSaveImageToFile Lib "gdiplus" (ByVal hImage As Long, ByVal sFilename As Long, clsidEncoder As Any, encoderParams As Any) As Long
Private Declare Function GdipDisposeImage Lib "gdiplus" (ByVal Image As Long) As Long
Private Declare Function GdipCreateBitmapFromHBITMAP Lib "gdiplus" (ByVal hbm As Long, ByVal hPal As Long, bitmap As Long) As GpStatus
Private Declare Function GdipGetImageEncodersSize Lib "gdiplus" (numEncoders As Long, Size As Long) As Long
Private Declare Function GdipGetImageEncoders Lib "gdiplus" (ByVal numEncoders As Long, ByVal Size As Long, Encoders As Any) As Long
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
Private Declare Function lstrlenW Lib "kernel32" (ByVal psString As Any) As Long
Private Declare Function CLSIDFromString Lib "ole32" (ByVal lpszProgID As Long, pclsid As Any) As Long
Private Declare Function GdipBitmapSetResolution Lib "gdiplus" (ByVal bitmap As Long, ByVal xdpi As Single, ByVal ydpi As Single) As Long
Public Enum GpStatus
Ok = 0
GenericError = 1
InvalidParameter = 2
OutOfMemory = 3
ObjectBusy = 4
InsufficientBuffer = 5
NotImplemented = 6
Win32Error = 7
WrongState = 8
Aborted = 9
FileNotFound = 10
ValueOverflow = 11
AccessDenied = 12
UnknownImageFormat = 13
FontFamilyNotFound = 14
FontStyleNotFound = 15
NotTrueTypeFont = 16
UnsupportedGdiplusVersion = 17
GdiplusNotInitialized = 18
PropertyNotFound = 19
PropertyNotSupported = 20
ProfileNotFound = 21
End Enum
Public Enum ImageFileFormat
bmp = 1
jpg = 2
png = 3
gif = 4
End Enum
Public Function SavehBitmapToFile(hBitmap As Long, ByVal FileName As String, _
Optional ByVal FileFormat As ImageFileFormat = jpg, _
Optional ByVal JpgQuality As Long = 80, _
Optional Resolution As Single) As Boolean
Dim CLSID(3) As Long
Dim bitmap As Long
Dim token As Long
Dim Gsp As GdiplusStartupInput
Gsp.GdiplusVersion = 1 'GDI+ 1.0版本
GdiplusStartup token, Gsp '初始化GDI+
Debug.Print GdipCreateBitmapFromHBITMAP(hBitmap, 0, bitmap)
If bitmap <> 0 Then '如果成功的将hBitmap句柄代表的stdPic对象转换为GDI+的Bitmap对象了
GdipBitmapSetResolution bitmap, Resolution, Resolution
Select Case FileFormat
Case ImageFileFormat.bmp
If Not GetEncoderCLSID("Image/bmp", CLSID) = -1 Then
SavehBitmapToFile = (GdipSaveImageToFile(bitmap, StrPtr(FileName), CLSID(0), ByVal 0) = 0)
End If
Case ImageFileFormat.jpg 'JPG格式可以设置保存的质量
Dim aEncParams() As Byte
Dim uEncParams As EncoderParameters
If GetEncoderCLSID("Image/jpeg", CLSID) <> -1 Then
uEncParams.count = 1 ' 设置自定义的编码参数，这里为1个参数
If JpgQuality < 0 Then
JpgQuality = 0
ElseIf JpgQuality > 100 Then
JpgQuality = 100
End If
ReDim aEncParams(1 To Len(uEncParams))
With uEncParams.Parameter
.NumberOfValues = 1
.type = EncoderParameterValueTypeLong ' 设置参数值的数据类型为长整型
Call CLSIDFromString(StrPtr(EncoderQuality), .GUID(0)) ' 设置参数唯一标志的GUID，这里为编码品质
.Value = VarPtr(JpgQuality) ' 设置参数的值：品质等级，最高为100，图像文件大小与品质成正比
End With
CopyMemory aEncParams(1), uEncParams, Len(uEncParams)
SavehBitmapToFile = (GdipSaveImageToFile(bitmap, StrPtr(FileName), CLSID(0), aEncParams(1)) = 0)
End If
Case ImageFileFormat.png
If Not GetEncoderCLSID("Image/png", CLSID) = -1 Then
SavehBitmapToFile = (GdipSaveImageToFile(bitmap, StrPtr(FileName), CLSID(0), ByVal 0) = 0)
End If
Case ImageFileFormat.gif
If Not GetEncoderCLSID("Image/gif", CLSID) = -1 Then '如果原始的图像是24位，则这个函数会调用系统的调色板来将图像转换为8位，转换的效果会不尽人意,但也有可能系统不自动转换，保存失败
SavehBitmapToFile = (GdipSaveImageToFile(bitmap, StrPtr(FileName), CLSID(0), ByVal 0) = 0)
End If
End Select
End If
GdipDisposeImage bitmap '注意释放资源
GdiplusShutdown token '关闭GDI+。
End Function
Private Function GetEncoderCLSID(strMimeType As String, ClassID() As Long) As Long
Dim num As Long
Dim Size As Long
Dim i As Long
Dim Info() As ImageCodecInfo
Dim Buffer() As Byte
GetEncoderCLSID = -1
GdipGetImageEncodersSize num, Size '得到解码器数组的大小
If Size <> 0 Then
ReDim Info(1 To num) As ImageCodecInfo '给数组动态分配内存
ReDim Buffer(1 To Size) As Byte
GdipGetImageEncoders num, Size, Buffer(1) '得到数组和字符数据
CopyMemory Info(1), Buffer(1), (Len(Info(1)) * num) '复制类头
For i = 1 To num '循环检测所有解码
If (StrComp(PtrToStrW(Info(i).MimeType), strMimeType, vbTextCompare) = 0) Then '必须把指针转换成可用的字符
CopyMemory ClassID(0), Info(i).ClassID(0), 16 '保存类的ID
GetEncoderCLSID = i '返回成功的索引值
Exit For
End If
Next
End If
End Function
Private Function PtrToStrW(ByVal lpsz As Long) As String
Dim Out As String
Dim Length As Long
Length = lstrlenW(lpsz)
If Length > 0 Then
Out = StrConv(String$(Length, vbNullChar), vbUnicode)
CopyMemory ByVal Out, ByVal lpsz, Length * 2
PtrToStrW = StrConv(Out, vbFromUnicode)
End If
End Function
以下是我封装的代码：
当然我偷懒，没有使用GDI+，又选用了GDI，实际可以都用GDI+
Private Declare Function GetDC Lib "user32.dll" (ByVal hWnd As Long) As Long
Private Declare Function CreateCompatibleDC Lib "gdi32.dll" (ByVal hdc As Long) As Long
Private Declare Function CreateCompatibleBitmap Lib "gdi32.dll" (ByVal hdc As Long, ByVal nWidth As Long, ByVal nHeight As Long) As Long
Private Declare Function SelectObject Lib "gdi32.dll" (ByVal hdc As Long, ByVal hObject As Long) As Long
Private Declare Function SetEnhMetaFileBits& Lib "gdi32.dll" (ByVal DataLen&, pData As Any)
Private Declare Function PlayEnhMetaFile& Lib "gdi32" (ByVal hdc&, ByVal hEMF&, pRect As Any)
Private Declare Function DeleteEnhMetaFile& Lib "gdi32.dll" (ByVal hEMF As Long)
Private Declare Function DeleteObject Lib "gdi32.dll" (ByVal hObject As Long) As Long
Private Declare Function DeleteDC Lib "gdi32.dll" (ByVal hdc As Long) As Long
Private Declare Function ReleaseDC Lib "user32" (ByVal hWnd As Long, ByVal hdc As Long) As Long
Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
Private Declare Function FillRect Lib "user32.dll" (ByVal hdc As Long, ByRef lpRect As Any, ByVal hBrush As Long) As Long
Private Declare Function InvertRect Lib "user32.dll" (ByVal hdc As Long, ByRef lpRect As Any) As Long
Function ImageExtract(obj As Object, ByVal FileName As String, _
Optional ByVal FileFormat As ImageFileFormat = jpg, _
Optional ByVal JpgQuality As Long = 80, _
Optional Resolution As Single) As Boolean
Dim n! '放大倍数
Dim aRECT(0 To 3) As Long
Dim hScreenDC&
Dim hMemDC&
Dim hBitmap&, hBitTemp&
Dim arr() As Byte, hEMF&
n = 4
Select Case TypeName(obj) '获取图像数组
Case "InlineShape"
arr = obj.Range.EnhMetaFileBits
aRECT(2) = PointsToPixels(obj.Width, False) '宽度
aRECT(3) = PointsToPixels(obj.Height, True) '高度
Case "Shape"
arr = obj.Anchor.EnhMetaFileBits
aRECT(2) = PointsToPixels(obj.Width, False) '宽度
aRECT(3) = PointsToPixels(obj.Height, True) '高度
End Select
hEMF = SetEnhMetaFileBits(UBound(arr) + 1, arr(0))
hScreenDC = GetDC(0&)
hMemDC = CreateCompatibleDC(hScreenDC)
hBitmap = CreateCompatibleBitmap(hScreenDC, aRECT(2), aRECT(3))
hBitTemp = SelectObject(hMemDC, hBitmap)
InvertRect hMemDC, aRECT(0)
If hEMF Then
PlayEnhMetaFile hMemDC, hEMF, aRECT(0)
DeleteEnhMetaFile hEMF '销毁EMF
End If
hBitmap = SelectObject(hMemDC, hBitTemp)
ImageExtract = SavehBitmapToFile(hBitmap, FileName, FileFormat, JpgQuality, Resolution)
DeleteObject hBitmap
DeleteDC hMemDC
DeleteDC hScreenDC
End Function
调用示例：
Dim oInlineShape As InlineShapeDim oShape As ShapeSet oInlineShape = oDocument.InlineShapes(1)Set oShape = oDocument.Shapes(2)If ImageExtract(oInlineShape, "c:\1.jpg",jpg, 100,600) thenmsgbox "保存成功"End IfIf ImageExtract(oShape, "c:\2.jpg",jpg, 100,600) thenmsgbox "保存成功"End IfWindowsCodecsdll没有指定在Windows上运行是怎么回事？
就是说，你这个dll出现异常了，没有运行，这个DLL其实是一个动态链接库文件，1去网上下载这个DLL文件，将其放置到System32目录下面2重启系统，或者在CMD下面运行regsvr32*.dll注册该DLL3你也可以使用腾讯电脑管家的电脑诊所来修复一下，这个不需要懂批处理，它有专门的解决方案，你点点鼠标就行，其余的它就替你搞定了
电脑说WindowsCodecsdll没有被指定在Windows上运行怎么办？
打開“資源監視器”。在“資源監視器”界面中，點擊第二個選項卡“CPU”。在“關聯的句柄”右側搜索框內輸入文件名稱，就可以查看該文件被那幾個程序佔用了。