最近有PS测评的需求，故而想到了解析psd文件，目的就是为了获取文档信息和图层信息；获取PS的图像信息有很多方式，有过程性的，比如监听PS的各种操作事件；有结果性的，比如本文写的解析PSD文件。
0.添加Photoshop 引用
在解决方案邮件点击添加>>引用，如下图：
在引用管理器中，点击COM，找到Adobe Photoshop XXX ，勾上，点击确定。
1.在vb文件添加导入Photoshop
2.解析psd
话不多说，直接上代码：
Imports Photoshop
Imports System.IO
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim filePath As String = "D:\PhotoshopCS6操作题1\1\PS1.psd"
parsePsd(filePath)
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Console.WriteLine("ssss")
Dim filePath As String = "D:\PhotoshopCS6操作题1\1\PS1.psd"
parsePsd(filePath)
End Sub
Private Sub parsePsd(filePath As String)
Dim fileInfo As New FileInfo(filePath)
Dim fileSizeInBytes As Long = fileInfo.Length
Dim fileSizeInMB As Double = fileSizeInBytes / (1024 * 1024)
If fileSizeInMB > 5 Then
Console.WriteLine("文档大小[{0}MB]超过5MB", fileSizeInMB)
Else
Console.WriteLine("文档大小[{0}MB]符合要求", fileSizeInMB, fileSizeInBytes)
End If
' 创建Photoshop应用程序对象
Dim app As New Photoshop.Application()
' 打开PSD文件
Dim doc As Photoshop.Document = app.Open(filePath)
Try
Console.WriteLine("名称: " & doc.Name)
Console.WriteLine("文档尺寸宽: " & doc.Width)
Console.WriteLine("文档尺寸高: " & doc.Height)
Console.WriteLine("颜色模式: " & doc.Mode.ToString)
' 获取图像分辨率
Dim resolution As Double = doc.Resolution
Console.WriteLine("图像分辨率：{0} dpi", resolution)
' 将宽度和高度转换为像素
Dim widthInPixels As Integer = CInt((doc.Width * resolution) / 2.54)
Dim heightInPixels As Integer = CInt((doc.Height * resolution) / 2.54)
Console.WriteLine("图像宽度：{0} 像素", widthInPixels)
Console.WriteLine("图像高度：{0} 像素", heightInPixels)
' 遍历图层
For Each layer As Object In doc.Layers
Console.WriteLine("0图层名称: " & layer.Name)
Console.WriteLine("0图层LayerType: " & layer.Kind.ToString)
Console.WriteLine("0图层Opacity: " & layer.Opacity)
Console.WriteLine("0图层IsBackgroundLayer: " & layer.IsBackgroundLayer)
If layer.Kind = PsLayerKind.psTextLayer Then
Console.WriteLine("0图层文字内容: " & layer.TextItem.Contents)
Console.WriteLine("0图层文字字体size: " & layer.TextItem.Size)
Console.WriteLine("0图层文字字体: " & layer.TextItem.Font)
' 获取文字颜色
Dim textColor As SolidColor = layer.TextItem.Color
' 获取颜色的分量值
Dim red As Integer = textColor.RGB.Red
Dim green As Integer = textColor.RGB.Green
Dim blue As Integer = textColor.RGB.Blue
Console.WriteLine("HexValue: " & textColor.RGB.HexValue)
Console.WriteLine("文字颜色：R={0}, G={1}, B={2}", red, green, blue)
End If
If layer.IsBackgroundLayer = True Then
Console.WriteLine("背景：PixelsLocked={0}, IsBackgroundLayer={1}, Visible={2}", layer.PixelsLocked, layer.IsBackgroundLayer, layer.Visible)
' 检查图层是否有蒙版
'If layer.HasLayerMask Then
' 获取蒙版
'Dim layerMask As Object = layer.LayerMask
'Console.WriteLine("layerMask:" & layerMask.ToString)
'End If
End If
Next
Console.WriteLine("========================================")
For Each layer As ArtLayer In doc.ArtLayers
Console.WriteLine("图层名称: " & layer.Name)
Console.WriteLine("图层LayerType: " & layer.Kind.ToString)
Console.WriteLine("图层Opacity: " & layer.Opacity)
Console.WriteLine("图层IsBackgroundLayer: " & layer.IsBackgroundLayer)
If layer.Kind = PsLayerKind.psTextLayer Then
Console.WriteLine("图层文字内容: " & layer.TextItem.Contents)
Console.WriteLine("图层文字字体: " & layer.TextItem.Font)
Console.WriteLine("图层文字字体size: " & layer.TextItem.Size)
' 获取文字颜色
Dim textColor As SolidColor = layer.TextItem.Color
' 获取颜色的分量值
Dim red As Integer = textColor.RGB.Red
Dim green As Integer = textColor.RGB.Green
Dim blue As Integer = textColor.RGB.Blue
Console.WriteLine("HexValue: " & textColor.RGB.HexValue)
Console.WriteLine("文字颜色：R={0}, G={1}, B={2}", red, green, blue)
Console.WriteLine("图层文字BlendMode: " & layer.BlendMode.ToString)
Console.WriteLine("变形: {0}" & layer.TextItem.WarpBend)
Console.WriteLine("变形弯曲方向: {0}" & layer.TextItem.WarpDirection.ToString)
'psNoWarp = 1
'psArc = 2
'psArcLower = 3
'psArcUpper = 4
'psArch = 5
'psBulge = 6
'psShellLower = 7
'psShellUpper = 8
'psFlag = 9
'psWave = 10
'psFish = 11
'psRise = 12
'psFishEye = 13
'psInflate = 14
'psSqueeze = 15
'psTwist = 16
Console.WriteLine("变形样式: {0}" & layer.TextItem.WarpStyle.ToString)
'抗锯齿效果:
'psNoAntialias = 1 无
'psSharp = 2 锐化
'psCrisp = 3 清晰
'psStrong = 4 浑厚
'psSmooth = 5 平滑
Console.WriteLine("文本的抗锯齿方法:" & layer.TextItem.AntiAliasMethod.ToString)
End If
Console.WriteLine("BlendMode:" & layer.BlendMode.ToString)
If layer.IsBackgroundLayer = True Then
Console.WriteLine("背景：PixelsLocked={0}, IsBackgroundLayer={1}, Visible={2}", layer.PositionLocked, layer.IsBackgroundLayer, layer.Visible)
End If
Console.WriteLine(">>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>")
Next
For Each channel As Channel In doc.Channels
Console.WriteLine(" channel.Name=" & channel.Name)
Console.WriteLine(" channel.Kind=" & channel.Kind.ToString)
Next
For Each historyState As HistoryState In doc.HistoryStates
Console.WriteLine(" historyState.Name=" & historyState.Name)
Console.WriteLine(" historyState.Snapshot=" & historyState.Snapshot)
Next
' 获取背景图层
Dim backgroundLayer As ArtLayer = doc.BackgroundLayer
Catch ex As Exception
Console.WriteLine("发生异常: " & ex.Message)
End Try
' 关闭文档
doc.Close()
' 退出Photoshop应用程序
app.Quit()
End Sub
End Class
3.解析结果
此方法可以解析到文档基本信息，文档的宽高、颜色模式、分辨率等，图层的基本信息，文字图层信息，文字变化等，图层混合选项及滤镜信息暂时没获取到。
