用VB擷取影像資訊

[小蔡]

那NI-IMAQ Version 6.0 和 Vision 8.2.3 Acquisition Software 是否可用於儲存影像檔案?

[Billingsley]

這位仁兄：

答案是可。

請上ni.com--> search " save image file without vision "

您可以得到很多建議。

http://digital.ni.com/public.nsf/allkb/B51CCE62D00112B68625735C0000DDCF

[小蔡]

我在NI的 IMAQ VB使用手冊裡，看到CWIMAQVision.WriteImageAndVisionInfo這個指令可以儲存影像!?

而CWIMAQVision.WriteImageAndVisionInfo ( SourceImage, Path [, ColorPalette]) 當中

三個參數要輸入什麼? 以下是我的擷取影像CODE

Private Sub Command1_Click()
CWIMAQ1.AcquisitionType = cwimaqAcquisitionContinuous  

CWIMAQ1.Start                                          

CWIMAQVision.WriteImageAndVisionInfo

End Sub

我的介面裡面有使用CWIMAQVision，CWIMAQ兩個元件和CWIMAQViewer顯示影像                                         

[Billingsley]

這位仁兄：

如果您買了正式版的Vision，而且將軟體授權啟動，您的程式應該可以跑。

但是您在VB看到的物件應該是試用版，他是隨著measurement studio安裝時順道安裝進去的。

建議您到>>開始>>程式集>>National Instruments>>License Manager檢查一下Vision是否是綠燈？

如果不是？那請聯絡NI Taiwan買軟體吧!!!

[Ronland]

Hello 小蔡:

您所選的CWIMAQVision.WriteImageAndVisionInfo是將額外的資訊和image一起寫到PNG檔。
應該和您所想達到的寫檔不太一樣

由於Vision的函式比較多，也比較複雜，若您買Vision Development Module後，您可以直接打電話到NI尋求技術支援，速度會快很多喔!

Thanks,
Ronland,
NI Taiwan Engineer.

[小蔡]

在沒有購買Vision Development Module前提之下，無法使用CWIMAQVision.WriteImageAndVisionInfo指令!?

那我要使用哪個指令可以達到自動儲存的功能?

另外"CWIMAQVision.WriteImageAndVisionInfo是將額外的資訊和image一起寫到PNG檔"

額外資訊是指什麼也可以告知一下嗎?

[小蔡]

Private Sub Command1_Click()
CWIMAQ1.AcquisitionType = cwimaqAcquisitionContinuous  
CWIMAQ1.Start                                          
End Sub

Private Sub Command4_Click()
Dim image(0 To 639, 0 To 479) As Integer
Dim ImageArray As Variant
ImageArray = CWIMAQViewer1.image.ImageToArray(, , CWIMAQViewer1.image.Width, CWIMAQViewer1.image.Height)
MsgBox (ImageArray(639, 479))
End Sub

我顯示的數值都很大，此時我擷取的數值是否為灰階值?

似乎是0~2^10-1，我如何取的0~255的灰階值?

另外能否調整CWIMAQViewer1顯示的影像大小? 內建似乎為640*480..

[Billingsley]

以下有很多論壇在討論類似的案例。

http://search.ni.com/nisearch/main/p/sn/catnav:df/q/save%20image%20vb

http://forums.ni.com/ni/board/message?board.id=170&message.id=235810&requireLogin=False

[小蔡]

HI derek wu

我在論壇上找到的不外乎是使用LABVIEW或者有VISION License

我的問題是用VB 且沒有VISION License 的情況下，如何儲存IMAQViewer的影像

                                                                                              謝

[小蔡]

Dear all:

目前我可以儲存png的影像格式，但使用png以外的格式儲存時，會出現"Invaild image type"，

另外我還是無法轉成8 bit，希望能給予一些指導，以下是我的程式

                                                                                                                謝謝

Private Sub Command6_Click()
CWIMAQ1.AcquisitionType = cwimaqAcquisitionContinuous   '加這行可以連續顯示取像
CWIMAQ1.Start
End Sub

Private Sub Command7_Click()
    Dim PictureName As String
    CommonDialog1.Action = 2
    PictureName = CommonDialog1.FileName
    CWIMAQVision1.WritePNGFile CWIMAQViewer1.image, PictureName, PNGOptions, CWIMAQViewer1.Palette

End Sub