質問編集履歴
1
回答頂いた内容を元に、解決したコードを追記しました。
test
CHANGED
File without changes
|
test
CHANGED
@@ -107,3 +107,37 @@
|
|
107
107
|
Microsoft Docs Bitmap.GetPixel
|
108
108
|
|
109
109
|
[https://docs.microsoft.com/ja-jp/dotnet/api/system.drawing.bitmap.getpixel?view=netframework-4.5.2](https://docs.microsoft.com/ja-jp/dotnet/api/system.drawing.bitmap.getpixel?view=netframework-4.5.2)
|
110
|
+
|
111
|
+
|
112
|
+
|
113
|
+
|
114
|
+
|
115
|
+
### 解決したコード
|
116
|
+
|
117
|
+
|
118
|
+
|
119
|
+
```VB.NET
|
120
|
+
|
121
|
+
Dim img As Bitmap = Image.FromFile("TIFF画像ファイルのパス")
|
122
|
+
|
123
|
+
|
124
|
+
|
125
|
+
'ロック
|
126
|
+
|
127
|
+
Dim bmpData As BitmapData = img.LockBits(New Rectangle(0, 0, img.Width, img.Height), ImageLockMode.ReadWrite, img.PixelFormat)
|
128
|
+
|
129
|
+
|
130
|
+
|
131
|
+
'ピクセルデータをバイト型配列で取得する
|
132
|
+
|
133
|
+
Dim pixels As Byte() = New Byte(bmpData.Stride * img.Height - 1) {}
|
134
|
+
|
135
|
+
Runtime.InteropServices.Marshal.Copy(bmpData.Scan0, pixels, 0, pixels.Length)
|
136
|
+
|
137
|
+
|
138
|
+
|
139
|
+
'ロック解除
|
140
|
+
|
141
|
+
img.UnlockBits(bmpData)
|
142
|
+
|
143
|
+
```
|