A. 如何把Fluke紅外熱像儀的IS2圖片格式轉換成BMP
不是直接JPEG格式的，是IS2格式的.
紅外熱像儀是利用紅外探測器和光學成像物鏡接受被測目標的紅外輻射能量分布圖形反映到紅外探測器的光敏元件上，從而獲得紅外熱像圖，這種熱像圖與物體表面的熱分布場相對應。通俗地講紅外熱像儀就是將物體發出的不可見紅外能量轉變為可見的熱圖像。熱圖像的上面的不同顏色代表被測物體的不同溫度。
B. fluke熱成像儀怎麼把本機圖片導入SD卡
熱成像儀圖像導出方法
熱成像儀數據可以通過不同的文件格式保存到SD 存儲卡中。
圖像格式選項有.bmp、.jpg 和.is2。視頻格式選項有.avi 和.is3。導出\另存數據方法一:
此方法針對.bmp 和.jpg 文件格式,這些格式不允許進行完整的分析或修改,不需要專用軟體即可在大多數PC 和MAC 系統上打開。
對於需要較小的文件大小、解析度最大,而不用修改的情況,選擇.bmp文件格式。對於不需要修改,圖像質量和解析度不重要的最小文件大小,選擇.jpg 文件格式。
步驟一:更改文件格式
按F2鍵→選擇設置→點擊確定→選擇文件格式→點擊確定→選
擇.bmp或.jpg(建議選擇.jpg)
C. IS2怎麼打開，求鏈接
ISO文件是什麼意思：英文全稱Isolation，鏡像文件的後綴名，通過特定的壓縮方式，將大量的數據文件統一為一個後綴名為ISO的鏡像文件，讓後在將這些ISO鏡像文件刻錄到光碟中去，實際上ISO文件可以理解為從光碟中復制出來的數據文件，所以ISO鏡像文件需要使用虛擬光碟機才能打開，或者將ISO文件刻錄到光碟中後，使用光碟機來進行讀取；
ISO文件怎麼打開
ISO文件需要配合虛擬光碟機使用才能正常的打開，下面將詳細講解ISO文件用什麼打開的方法：
第一步，下載安裝虛擬光碟機，參照本站的虛擬光碟機怎麼用的文章詳細步驟，進行虛擬光碟機的安裝；
第二步：按照本站文章介紹的步驟安裝完畢虛擬光碟機之後，重新啟動計算機，在任務欄右下角找到虛擬光碟機圖標，點擊滑鼠右鍵，在彈出菜單中選擇「虛擬設備」；
第三步：選擇「設備O:[盤符:]無媒體」，選擇「載入鏡像」；
第四步：將後綴名為ISO的鏡像文件，載入到虛擬光碟機中；
第五步：成功載入ISO文件之後，點擊「我的電腦」，點擊進入虛擬光碟機的盤符，就能打開ISO文件了，同時可以查看到ISO文件中的各種文件信息；
END
經驗總結：
要解決ISO文件用什麼打開、ISO文件怎麼打開、如何打開ISO文件的問題，首先就要學會如何安裝虛擬光碟機，這方面的資料可以通過網上自行學習，很簡單的！希望以上的內容給你帶來幫助！
D. vb 部分截屏之後識別圖片上的文字
主要是先要將圖片轉換為位元組數組
'存放格式為(*, *, *),從左下角開始:
'第一維:0-藍色分量,1-綠色分量,2-紅色分量,
'第二維:列；第三維:行
全部步驟如下
1、用DibGet獲取圖片數據
2、用ColorToBlackAndWhite（或ColorToGray+OtsuColorToBlackAndWhite）將圖片數據轉換為黑白數據
3、用DibPut將數據恢復到一個PictureBox中
4、截取各個數字到單獨的PictureBox中
5、將數字圖片轉換為圖片數據，並與標准數據（0-9）對比，相似度最高的為准（比如與1的相似度為75%，與2的相似度為85%，則此數字為2）
有問題Hi
'圖像輸出的過程:
Public Sub DIBPut(ByVal IdDestination As Long, ByRef ImageData() As Byte)
Dim LineBytes As Long
Dim Width As Long, Height As Long
Width = UBound(ImageData, 2) + 1
Height = UBound(ImageData, 3) + 1
On Error GoTo ErrLine
Done = False
With bi24BitInfo.bmiHeader
.biWidth = Width
.biHeight = Height
LineBytes = ((Width * Bits + 31) And &HFFFFFFE0) \ 8
.biSizeImage = LineBytes * Height
End With
SetDIBitsToDevice IdDestination, 0, 0, Width, Height, 0, 0, 0, Height, ImageData(0, 0, 0), bi24BitInfo, 0
Done = True
Exit Sub
ErrLine:
MsgBox Err.Description
End Sub
'灰度處理SrcData(0 to 2, 0 to 寬度-1, 0 to 高度-1)
Public Sub ColorToGray(ByRef SrcData() As Byte, ByRef DestData() As Byte, _
Optional Left As Long = -1, Optional Top As Long = -1, _
Optional Right As Long = -1, Optional Bottom As Long = -1)
Dim i As Long, j As Long, k As Long
Dim red As Byte, green As Byte, blue As Byte
Dim Color As Long, newcolor As Long
Dim Width As Long, Height As Long
Width = UBound(SrcData, 2) + 1
Height = UBound(SrcData, 3) + 1
If Left = -1 Then Left = 0
If Top = -1 Then Top = 0
If Right = -1 Then Right = Width - 1
If Bottom = -1 Then Bottom = Height - 1
For j = Left To Right
For k = Height - Bottom - 1 To Height - Top - 1
blue = SrcData(0, j, k)
green = SrcData(1, j, k)
red = SrcData(2, j, k)
newcolor = CLng(0.299 * CDbl(red) + 0.585 * CDbl(green) + 0.114 * CDbl(blue)) '
newcolor = newcolor * 65793
red = newcolor Mod 256
green = newcolor / 256 Mod 256 '(9798 * RValue + 19235 * GValue + 3735 * BValue) / 32768
blue = newcolor / 256 / 256
DestData(0, j, k) = blue
DestData(1, j, k) = green
DestData(2, j, k) = red
Next
Next
End Sub
'黑白處理DestData(0 to 2, 0 to 寬度-1, 0 to 高度-1)
'圖片最下面兩行總是無法參與變換？？？？只好將採集的圖片區域向下多延伸2個像素
Public Sub ColorToBlackAndWhite(ByRef SrcData() As Byte, ByRef DestData() As Byte)
Dim i As Long, j As Long, k As Long
Dim red As Byte, green As Byte, blue As Byte
Dim Color As Long, newcolor As Long
Dim Width As Long, Height As Long
Width = UBound(SrcData, 2) + 1
Height = UBound(SrcData, 3) + 1
For j = 0 To Width - 1
For k = 0 To Height - 1
blue = SrcData(0, j, k)
green = SrcData(1, j, k)
red = SrcData(2, j, k)
newcolor = CLng(0.3 * CDbl(red) + 0.59 * CDbl(green) + 0.11 * CDbl(blue))
' newcolor = CLng(0.39 * CDbl(red) + 0.5 * CDbl(green) + 0.11 * CDbl(blue))
If newcolor > 127 Then newcolor = 255 Else newcolor = 0
red = newcolor
green = newcolor
blue = newcolor
DestData(0, j, k) = blue
DestData(1, j, k) = green
DestData(2, j, k) = red
Next
Next
End Sub
'黑白處理DestData(0 to 2, 0 to 寬度-1, 0 to 高度-1)
'圖片最下面兩行總是無法參與變換？？？？只好將採集的圖片區域向下多延伸2個像素
'OSTU演算法可以說是自適應計算單閾值（用來轉換灰度圖像為二值圖像）的簡單高效方法。
'1978 OTSU年提出的最大類間方差法以其計算簡單、穩定有效，一直廣為使用。
Public Sub OtsuColorToBlackAndWhite(ByRef SrcData() As Byte, ByRef DestData() As Byte)
On Error Resume Next
Dim i As Long, j As Long, k As Long
Dim red As Byte, green As Byte, blue As Byte
Dim Color As Long, newcolor As Long
Dim Width As Long, Height As Long
Dim AllSum As Long, SumSmall As Long, SumBig As Long, PartSum As Long
Dim AllPixelNumber As Integer, PixelNumberSmall As Long, PixelNumberBig As Long
Dim ProbabilitySmall As Double, ProbabilityBig As Double, Probability As Double, MaxValue As Double
Dim BmpData() As Byte, Threshold As Byte
Dim Histgram(255) As Integer '圖像直方圖，256個點
Dim PixelNumber As Integer
Width = UBound(SrcData, 2) + 1
Height = UBound(SrcData, 3) + 1
PixelNumber = Width * Height
For i = 0 To Width - 1
For j = 0 To Height - 1
Histgram(SrcData(0, i, j)) = Histgram(SrcData(0, i, j)) + 1 '統計圖像的直方圖
Next
Next
For i = 0 To 255
AllSum = AllSum + i * Histgram(i) ' 質量矩
AllPixelNumber = AllPixelNumber + Histgram(i) ' 質量
Next
MaxValue = -1#
For i = 0 To 255
PixelNumberSmall = PixelNumberSmall + Histgram(i)
PixelNumberBig = AllPixelNumber - PixelNumberSmall
If PixelNumberBig = 0 Then Exit For
SumSmall = SumSmall + i * Histgram(i)
SumBig = AllSum - SumSmall
ProbabilitySmall = CDbl(SumSmall) / PixelNumberSmall
ProbabilityBig = CDbl(SumBig) / PixelNumberBig
' Probability = PixelNumberSmall * PixelNumberBig * (ProbabilityBig - ProbabilitySmall) * (ProbabilityBig - ProbabilitySmall)
Probability = PixelNumberSmall * ProbabilitySmall * ProbabilitySmall + PixelNumberBig * ProbabilityBig * ProbabilityBig
If Probability > MaxValue Then
MaxValue = Probability
Threshold = i
End If
Next
For j = 0 To Width - 1
For k = 0 To Height - 1
If SrcData(0, j, k) <= Threshold Then
DestData(0, j, k) = 0
DestData(1, j, k) = 0
DestData(2, j, k) = 0
Else
DestData(0, j, k) = 255
DestData(1, j, k) = 255
DestData(2, j, k) = 255
End If
Next
Next
End Sub
'迭代法 (最佳閥值法)
'(1)求出圖象的最大灰度值和最小灰度值，分別記為Zl和Zk，令初始閾值為：T=(Zl+Zk)/2
'(2)根據閾值TK將圖象分割為前景和背景，分別求出兩者的平均灰度值Z0和ZB:
'(3)令當前閾值Tk=(Z0+ZB)/2
'(4)若TK=TK+1， 則所得即為閾值，否則轉2，迭代計算。
Public Sub (ByRef SrcData() As Byte, ByRef DestData() As Byte)
Dim i As Long, j As Long, k As Long
Dim red As Byte, green As Byte, blue As Byte
Dim Color As Long, newcolor As Long
Dim Width As Long, Height As Long
Dim PixelNumber As Integer
Dim Threshold As Integer, NewThreshold As Integer, MaxGrayValue As Integer
Dim MinGrayValue As Integer, MeanGrayValue1 As Integer, MeanGrayValue2 As Integer
Dim IP1 As Long, IP2 As Long, IS1 As Long, IS2 As Long
Dim Iteration As Long, Histgram(255) As Integer
Width = UBound(SrcData, 2) + 1
Height = UBound(SrcData, 3) + 1
PixelNumber = Width * Height
'求出圖像中的最小和最大灰度值，並 計算閾值初值為
MaxGrayValue = 0: MinGrayValue = 255
For i = 0 To Width - 1
For j = 0 To Height - 1
Histgram(SrcData(0, i, j)) = Histgram(SrcData(0, i, j)) + 1 '統計圖像的直方圖
If MinGrayValue > SrcData(0, i, j) Then MinGrayValue = SrcData(0, i, j)
If MaxGrayValue < SrcData(0, i, j) Then MaxGrayValue = SrcData(0, i, j)
Next
Next
NewThreshold = (MinGrayValue + MaxGrayValue) / 2
While Threshold <> NewThreshold And Iteration < 100
Threshold = NewThreshold
'根據閾值將圖像分割成目標和背景兩部分，求出兩部分的平均灰度值
For i = MinGrayValue To Threshold
IP1 = IP1 + Histgram(i) * i
IS1 = IS1 + Histgram(i)
Next
MeanGrayValue1 = CByte(IP1 / IS1)
For i = Threshold + 1 To MaxGrayValue
IP2 = IP2 + Histgram(i) * i
IS2 = IS2 + Histgram(i)
Next
MeanGrayValue2 = CByte(IP2 / IS2)
'求出新的閾值：
NewThreshold = (MinGrayValue + MaxGrayValue) / 2
Iteration = Iteration + 1
Wend
For j = 0 To Width - 1
For k = 0 To Height - 1
If SrcData(0, j, k) <= Threshold Then
DestData(0, j, k) = 0
DestData(1, j, k) = 0
DestData(2, j, k) = 0
Else
DestData(0, j, k) = 255
DestData(1, j, k) = 255
DestData(2, j, k) = 255
End If
Next
Next
End Sub
E. 熱成像儀IS2 格式如何在電腦中打開
一般用熱成像儀拍出來的圖片都是IS2格式。
兩個方法可以打開：
用fluke smartview軟體可以打開；
下載虛擬光碟機嘗試啟動該文件。