不懂且不知道去哪查~~USB 裝置列舉 |
答題得分者是:popzone
|
eric900507
一般會員 發表:1 回覆:0 積分:0 註冊:2010-08-02 發送簡訊給我 |
以下程式是可行的DEMO程式
但我在網路上找不到解說 又因為是初學 所以都不知道他的意思 請問 我要去哪上網找一堆函數的用法 請原諒我笨 又懶(其實我已經GOOGLE 3天了) 例如~ Dev := TJvHidDevice(DevListBox.Items.Objects[I]); TJvHidDevice這函數 我都搜尋不到 不知道怎用 HidCtl.CheckIn(Dev); 這又是啥意思? DevListBox.Items.Objects[I] := nil; nil是0的意思嗎?這行又是啥意思? [code delphi] 請在此區域輸入程式碼 procedure TUsagesForm.HidCtlDeviceChange(Sender: TObject); var Dev: TJvHidDevice; I: Integer; begin // hand back all the devices assigned to the list entries for I := 0 to DevListBox.Items.Count - 1 do begin Dev := TJvHidDevice(DevListBox.Items.Objects[I]); HidCtl.CheckIn(Dev); DevListBox.Items.Objects[I] := nil; end; DevListBox.Items.Clear; HidCtl.Enumerate; end; function TUsagesForm.HidCtlEnumerate(HidDev: TJvHidDevice; const Idx: Integer): Boolean; var Dev: TJvHidDevice; N: Integer; begin // add a descriptive entry to the listbox for the device if HidDev.ProductName <> '' then N := DevListBox.Items.Add(HidDev.ProductName) else N := DevListBox.Items.Add(Format('Device VID=%x PID=%x', [HidDev.Attributes.VendorID, HidDev.Attributes.ProductID])); // check out the device and assign it to the list entry HidCtl.CheckOutByIndex(Dev, Idx); DevListBox.Items.Objects[N] := Dev; Result := True; end; [/code] |
popzone
一般會員 發表:0 回覆:4 積分:10 註冊:2005-09-18 發送簡訊給我 |
你所提及的控件(HIDKomponente)在这有:
http://delphi.ktop.com.tw/board.php?cid=30&fid=73&tid=84473 自己去看源码 nil的意思 是空指针 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |