質問編集履歴
1
回答頂いた内容を元に、解決したコードを追記しました。
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -52,4 +52,21 @@
|
|
|
52
52
|
### 補足情報
|
|
53
53
|
|
|
54
54
|
Microsoft Docs Bitmap.GetPixel
|
|
55
|
-
[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)
|
|
55
|
+
[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)
|
|
56
|
+
|
|
57
|
+
|
|
58
|
+
### 解決したコード
|
|
59
|
+
|
|
60
|
+
```VB.NET
|
|
61
|
+
Dim img As Bitmap = Image.FromFile("TIFF画像ファイルのパス")
|
|
62
|
+
|
|
63
|
+
'ロック
|
|
64
|
+
Dim bmpData As BitmapData = img.LockBits(New Rectangle(0, 0, img.Width, img.Height), ImageLockMode.ReadWrite, img.PixelFormat)
|
|
65
|
+
|
|
66
|
+
'ピクセルデータをバイト型配列で取得する
|
|
67
|
+
Dim pixels As Byte() = New Byte(bmpData.Stride * img.Height - 1) {}
|
|
68
|
+
Runtime.InteropServices.Marshal.Copy(bmpData.Scan0, pixels, 0, pixels.Length)
|
|
69
|
+
|
|
70
|
+
'ロック解除
|
|
71
|
+
img.UnlockBits(bmpData)
|
|
72
|
+
```
|