delphiÔõô¿ØÖÆUSB - Delphi / VCL×é¼þ¿ª·¢¼°Ó¦ÓÃ
ÒÔǰÖмäÕ¾ÊǵçÄÔͨ¹ý´®¿Ú¿ØÖƵģ¬ÏÖÔڸijÉÁËUSB½Ó¿Ú£¬ÇëÎÊÒªÔõô×ö°¡£¿Çó¸ßÊÖÖ¸µãÒ»ÏÂ
ÊÇusbת´®¿ÚÂð£¿ÄÇÓ¦¸Ã»¹ÊÇ¿ÉÒÔ°´´®¿Ú²Ù×÷µÄ£¬Ö»ÊÇËٶȲ»ÄÜÌ«¸ß
Èç¹û²»ÊÇusbת´®¿Ú£¬Çë²éÔÄusbÇý¶¯µÄsdk˵Ã÷¡£
Õâ¸öÊDz»ÊǺÜÄѰ¡£¿ÓÐûÓÐʲôÊéºÍ×ÊÁÏÍÆ¼öһϠллÁË
¹Ø×¢Ò»ÏÂ
mark
°ïÄã¶¥£¬ÎÒÒ²ÏëÖªµÀ
Èç¹û³ÌÐò²»¸ÄÖ»ÒªÂòÁ½¸öUSBת´®¿ÚÏߣ¬Èç¹ûÖ»ÊÇÏ뽫һ¸ùUSBÏß½«Á½Ì¨µçÄÔÁ¬ÆðÀ´Í¨Ñ¶£¬Ä¿Ç°ÎÒÊÇû×ö¹ý£¬¶øÇÒҲû¼û¹ýÕâÑùµÄÏß
¶¥ÆðÀ´¡£¡£
ÓÐûÓÐ ¿Ø¼þ»òÕßDLLÖ®ÀàµÄ¿ÉÒÔÓ𡣿
Çó¸ßÊÖÖ¸µãÒ»ÏÂ
µÈ´ý ~
´óϺµÄ½µÁÙ£¡
¶¥ÆðÀ´,ΪÁËѧϰ!
Ö÷Òª¿´ÄãµÄÉ豸,
Èç¹ûÊÇÈ˼ҵıê×¼É豸,±ÈÈç ÑлªµÄusb ²É¼¯¿¨,È˼ÒÌṩdll ºÍ demo ,ºÜºÃÓÃ;
Èç¹ûÊÇ×Ô¼ºµÄÉ豸,×Ô¼ºÐ´Çý¶¯,»òÕß²»Ð´Çý¶¯,×ö³Éusb hidÉ豸,xp×Ô¼ºÇý,
Äã¾ÍÖ±½Ó¿ØÖÆhidÉ豸¾Íok,
Äã¿ÉÒÔÏÂÔØÒ»¸öhidÉ豸µÄ°ü,ÓÐdll,ºÍvb vc demo
¹Ø¼üÊÇ¿´ÄãµÄÉ豸,
hidÉ豸±È½ÏÆÕ±é,×Ô¼ºµ÷ÓÃapiÒ²¿ÉÒÔÖ±½Ó¿ØÖƵÄ,ÔõôŪ¶¼¿ÉÒÔ
Êг¡ÉÏÓÐUSBת´®¿ÚµÄÏߵġ£²»¹ýµÄÈ·»á¶Ô´«ÊäµÄËÙ¶ÈÓÐÓ°Ïì.
ºÜ¿ÉÄÜÊÇÓÃUSB¿ÚÄ£Äâ³É´®¿ÚµÄ£¬»¹°´´®¿Ú²Ù×÷¾ÍÐÐÁË
»¹°´´®¿Ú²Ù×÷
Ò»¸ùUSBÏß½«Á½Ì¨µçÄÔÁ¬ÆðÀ´Í¨Ñ¶----ÕâÊDz»¿ÉÄܵģ¬ÒòΪ˫·½¶¼ÊÇhost.
Ò»°ãlzµÄÎÊÌâÒªºÍÇý¶¯½áºÏÆðÀ´£¬¿´¿´Çý¶¯ÌṩÁËʲô½Ó¿Ú£¬È»ºóÔÙ×ö¾ö¶ÏµÄ¡£
Ïà¹ØÎÊ´ð£º
delphi ÊÖ¶¯×°ÔØÇý¶¯ÎļþÌáʾ£º
RROR (1058): The driver is marked as disabled (Start=4) in its service database entry.
ÊDz»ÊÇÕâ¸öÇý¶¯±ØÐèÒªÓÃINFÀ´°²×°¡£¡£ÓÃ×Ô´øµÄINFÀ´×°ÊÇÕý³£µÄ¡£ÓÃÊÖ¶¯×°ÔؾÍÌáʾÈçÉÏ¡ ......
Ò»Ö±ÏëʹÓÃdll£¬µ«delphiµÄdll×Ó´°Ìå¾³£Óи÷ÖÖÎÊÌ⣬±ÈÈçÖ÷´°¿ÚÓëdll×Ó´°¿ÚµÄ½¹µãÎÊÌ⣬×Ó´°¿ÚÖпؼþµÄtab¼ü¡¢Èȼü¡¢enter¼üµÈµÄÎÊÌ⣬×Ó´°¿ÚÍ˳öµÄÎÊÌâ¡¢Æ½Ãæ°´Å¥ÎÊÌâµÈµÈ£¬ÍøÕ¾ÉϽøÐÐÁËËÑË÷£¬Ã»ÓбȽÏÍêÃÀµÄ½â¾ö· ......
delphi 數據類ÐÍ ¶¨義A~Z 為ÓÐÐòÐÍ£¬A為×îС£¬Z×î´ó¡£
Delphi(Pascal) code:
var
arr:array ['A'..'Z'] of Char;
Óü¯ºÏ¸ã¶¨
Ôõ麼È¥運ËãÄØ£¿inc() ......
ÎÊÌâÊÇÕâÑù×ÓµÄ
ÎÒÔÚform1Öж¨ÒåÁËÒ»¸ösk1:tsocket
È»ºóÔÚform2ÖÐ
ÓÃsk1 ·¢ËͶ«Î÷ ·¢Íêºó socket ×Ô¶¯¹Ø±ÕÁË~
µ«ÊÇÔÚform1Öз¢¶«Î÷ Èç¹ûÎÒ²»ÔËÐÐ closesocket µÄ»° ÊDz»»á¶ÏµôµÄ
ÎÊÏ ÕâÊÇÔõô»ØÊÂ
ÁíÎÒÔÚ for ......
procedure WMNCHitTest(var Msg:TWMNCHitTest); message WM_NCHITTEST;
procedure WMNCPaint(var Msg: TWMNCPaint); message WM_NCPAINT;
ÇëÎÊһϣ¬ÕâÁ½¸öº¯ÊýÊÇÉÏÃæÒâ˼£¬ÔÚÉÏÃæÊ±ºòµ÷Óã¬message WM_NCHITTEST; ......