'USBHID.DLL '有四個api 'opendevice : 開始與HID裝置通訊 'Writedevice : 傳送資料到HID裝置 'Readdevice : 從HID裝置接收資料 'closedevice : 結束與HID裝置通訊 Public hid As New HIDUSB Const MyVendorID = &H1234 ; 販售商VID碼 Const MyProductID = &H5678 ; 產品PID碼 Dim Timeout As Boolean Private Sub Command1_Click() Dim hiddevice As Boolean Dim send(7) As Byte Dim recevice() As String hiddevice = hid.opendevice(MyVendorID, MyProductID) ; 判斷是否含有HID裝置 Text1.Text = hiddevice If hiddevice = True Then send(0) = Val("&H" Text2.Text) ; 如果含有人工界面裝置，就送出一個位元組資料 hid.Writedevice send() Timeout = False Timer1.Enabled = True Timer1.Interval = 50 Do DoEvents Loop Until Timeout = True recevice() = hid.Readdevice ' 接收一個位元組資料 Text3.Text = recevice(0) End If hid.closedevice End Sub Private Sub text2_KeyPress(KeyAscii As Integer) If (Chr$(KeyAscii) Like "[!A-Fa-f0-9]") Then KeyAscii = 0 End Sub Private Sub timer1_Timer() Timeout = True Timer1.Enabled = False End Sub 發表人 - harvey30438 於 2004/12/16 02:06:21

http://delphi.ktop.com.tw/topic.php?TOPIC_ID=53605

抱歉..不過我有幾個地方還是不太懂ㄟ Public hid As New HIDUSB ^^^^^^^^^^^^^^^^^^^^^^^^^這樣的宣告是什麼意思阿 Const MyVendorID = &H1234 ; 販售商VID碼 Const MyProductID = &H5678 ; 產品PID碼 Dim Timeout As Boolean  Private Sub Command1_Click()  Dim hiddevice As Boolean  Dim send(7) As Byte  Dim recevice() As String  hiddevice = hid.opendevice(MyVendorID, MyProductID) ; 判斷是否含有HID裝置        ^^^^^^^^^^^^^^^這樣的呼叫方式在bcb要怎麼呼叫.. Text1.Text = hiddevice  If hiddevice = True Then  send(0) = Val("&H" + Text2.Text) ; 如果含有人工界面裝置，就送出一個位元組資料 hid.Writedevice send() //send()裡沒有給數字可以使用?? Timeout = False Timer1.Enabled = True     Timer1.Interval = 50     Do DoEvents  //這在bcb該怎麼使用 Loop Until Timeout = True recevice() = hid.Readdevice ' 接收一個位元組資料 ^^^^^^^^^^我真的搞不懂沒加數字跟有加數字的差別 Text3.Text = recevice(0) End If  hid.closedevice  End Sub  各位大大真抱歉...vb的語法真的看不懂@@ 最近一值在爬有關use控制的文章 不過越爬越頭痛=.= 感覺好複雜阿/_ 發表人 - harvey30438 於 2004/12/16 20:13:42

harvey30438: 1. Public hid As New HIDUSB.就是指 在Public中宣告一各HIDUSB類型的hid指標. 2. hiddevice = hid.opendevice(MyVendorID, MyProductID) ; ^^^^^^^^^^^^^^^這樣的呼叫方式在bcb要怎麼呼叫.. 如過沒錯ㄉ話 opendevice應該是USBHID.DLL中的函式. 所以說你要先利用我前一篇所提供的文章. 將DLL的函數指標建立好.這樣才可以直接只用. 3. VB中的DoEvents它的作用是轉讓控制權，以便操作系統處理事件. 在BCB中你可以使用 Application->ProcessMessages()來達到一樣的效果 4.建議有空去翻翻VB的書.其實VB語法蠻簡單.這樣的話你在做轉換會比較輕鬆 發表人 - 李國維 於 2004/12/17 10:28:33

隨便翻,供參考 ^_^        

 
//-------------------------------------------------------    //USBHID.DLL
//有四個api
//opendevice : 開始與HID裝置通訊
//Writedevice : 傳送資料到HID裝置
//Readdevice : 從HID裝置接收資料
//closedevice : 結束與HID裝置通訊    Public hid As New HIDUSB
Const MyVendorID = &H1234 ; //販售商VID碼
Const MyProductID = &H5678 ;// 產品PID碼
bool Timeout ;    Private Sub Command1_Click() 
{
    bool hiddevice ; 
    char send[7] 
    AnsiString recevice 
    hiddevice = hid.opendevice(MyVendorID, MyProductID) ; //判斷是否含有HID裝置
    Text1->Text = hiddevice ;        if ( hiddevice == True)
    { 
        send(0) = Val("&H"   Text2.Text) ; 如果含有人工界面裝置，就送出一個位元組資料
        hid.Writedevice send() ;
        Timeout = False  ;
        Timer1->Enabled = True ;            Timer1->Interval = 50 ;            //Do
        //DoEvents
        //Loop Until Timeout = True
        while (Timeout != True )
        {
              Application->ProcessMessages();
          
        }  
        recevice() = hid.Readdevice;// ' 接收一個位元組資料
        Text3->Text = recevice(0);        };
 
    hid.closedevice ;    };//End Sub     Private Sub text2_KeyPress(KeyAscii As Integer)
{
    //If (Chr$(KeyAscii) Like "[!A-Fa-f0-9]") Then KeyAscii = 0
    //請自行判斷 keyin 代號  
    
};//End Sub
//-----------------------------------------------------------
Private Sub timer1_Timer()
{
    Timeout = True;
    Timer1.Enabled = False;
};//End Sub    //-------------------------------------------------------    

應該有問題嗎.... ^_^ 練習! 練習! 再練習!

------
嘿嘿嘿

harvey30438 您好 程式碼請縮排，敬請配合，詳請參考 【公告】程式碼張貼規則與方法

引言: harvey30438: 1. Public hid As New HIDUSB.就是指 在Public中宣告一各HIDUSB類型的hid指標. 2. hiddevice = hid.opendevice(MyVendorID, MyProductID) ; ^^^^^^^^^^^^^^^這樣的呼叫方式在bcb要怎麼呼叫.. 如過沒錯ㄉ話 opendevice應該是USBHID.DLL中的函式. 所以說你要先利用我前一篇所提供的文章. 將DLL的函數指標建立好.這樣才可以直接只用. 3. VB中的DoEvents它的作用是轉讓控制權，以便操作系統處理事件. 在BCB中你可以使用 Application->ProcessMessages()來達到一樣的效果 4.建議有空去翻翻VB的書.其實VB語法蠻簡單.這樣的話你在做轉換會比較輕鬆 發表人 - 李國維 於 2004/12/17 10:28:33

真的很感激~~ 謝謝你的指導囉^^ 看來我還有得學勒^^"

引言: harvey30438 您好 程式碼請縮排，敬請配合，詳請參考 【公告】程式碼張貼規則與方法

抱歉..原來你所謂的縮排是這個意思^^" 以後會注意

extern "C" __declspec(dllimport) void __stdcall opendevice(const MyVendorID,const MyProductID);
//extern "C" __declspec(dllimport) void __stdcall Writedevice(Byte x);
//extern "C" __declspec(dllimport) void __stdcall closedevice();    const MyVendorID=0x1234;
const MyProductID=0x5678;    bool Timeout;    //---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------    void __fastcall TForm1::Button1Click(TObject *Sender)
{
 bool (*openhid)(const ,const );
 //void (*writehid)(Byte x);
 void (*closehid)();
 HINSTANCE hid=LoadLibrary("USB_HID.dll");
 (FARPROC &)openhid=GetProcAddress(hid,"opendevice");
 //(FARPROC &)writehid=GetProcAddress(hid,"Writedevice");
 (FARPROC &)closehid=GetProcAddress(hid,"closedevice");
 bool hiddevice;
 hiddevice=true;
 byte send[7];
 hiddevice =openhid(MyVendorID, MyProductID);
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
我快瘋了..函數指標也建立好了
但是執行此DLL內建函數時還是會出現錯誤
是我函式設定的格式不符合嗎?
還是有可能哪邊沒注意到
    

發表人 - harvey30438 於 2004/12/19 04:29:15

harvey30438: 1.你試試看把const改成long extern "C" __declspec(dllimport) void __stdcall opendevice(long MyVendorID,long MyProductID); bool (*openhid)(long ,long ); 2.你把中斷點設在下面這一行,看看hid的值是不是NULL. HINSTANCE hid=LoadLibrary("USB_HID.dll");