原VB程式片段
[code vb]
Begin VB.PictureBox view
Height = 3375
Left = 120
ScaleHeight = 3315
ScaleWidth = 4635
TabIndex = 8
Top = 120
Width = 4695
End
Dim m_obj_handle As Long <<-這個型態變數於BCB是這樣開嗎? long *m_obj_handle;
Dim m_is_run As Boolean
Private Sub run_Click()
If m_is_run = False Then
result = m_ocx.SetDeviceProtectionKey(protection_key.Text)
result = m_ocx.SetOCXProductKey("404993567672148997246334")
result = m_ocx.SetDeviceProperties("DVR", ip.Text, username.Text, password.Text, 1)
result = m_ocx.AddObject(m_obj_handle, view.hWnd, "DVR", CAMERA, 0) <<--這一行有問題
result = m_ocx.SetObjectRect(m_obj_handle, 0, 0, view.Width / 15, view.Height / 15)
result = m_ocx.StartRunning()
result = m_ocx.SetObjectText(m_obj_handle, "Camera01", vbBlue, 0, 0)
run.Caption = "Stop"
m_is_run = True
Else
result = m_ocx.StopRunning()
result = m_ocx.DeleteObject(m_obj_handle)
run.Caption = "Run"
m_is_run = False
End If
End Sub
[/code]
問題於AddObject函數中代入兩個handle,其變數是long * 型態原型如下:
long AddObject (long * obj_handle, long window_handle, BSTR dev_name, short obj_type, short obj_id)
AddObject函數中代入view.hWndu也就是PictureBox這個元件,於BCB中我用PaintBox或是Image都不行
會發生參數類型不匹配window_handle' (wanted 'long', got 'void *') 之錯誤訊息
可否請各位前輩指導一下要怎麼轉變型態代入函數中的類型是Long呢? 已爬文過了找不到類似的問題,所以才敢提問
或是有前輩可解決的可以開個價,我可能匯款給您,當打工收入吧 感謝您!

------
--==多看.多學.多聽==--

這題相當的有難度，但我近來趕案子很兇，自己都來不及了…剛好休息一下看了版，我把最重要的三關鍵給你。其他看情形再說了…
一
Dim m_obj_handle As Long
改成下面二行

long foo = 0;
long *m_obj_handle = &foo;

二
所有的字串部份全用 WideString
如:
result = m_ocx.AddObject(m_obj_handle, view.hWnd, "DVR", CAMERA, 0)
變
result = m_ocx.AddObject(m_obj_handle, view.hWnd, WideString("DVR"), CAMERA, 0)

三
先用TPanel的handle代入，暫不用image或

------


蕭沖
--All ideas are worthless unless implemented--

C++ Builder Delphi Taiwan G+ 社群
http://bit.ly/cbtaiwan

編輯記錄