ÓÃSPCOMM ÔÚ DelphiÖÐʵÏÖ´®¿ÚͨѶ
ÓÃDelphi ʵÏÖ´®¿ÚͨѶ£¬³£Óõļ¸ÖÖ·½·¨Îª£ºÊ¹ÓÿؼþÈçMSCOMMºÍSPCOMM£¬Ê¹ÓÃAPIº¯Êý»òÕßÔÚDelphi Öе÷ÓÃÆäËü´®¿ÚͨѶ³ÌÐò¡£ÀûÓÃAPI±àд´®¿ÚͨÐųÌÐò½ÏΪ¸´ÔÓ£¬ÐèÒªÕÆÎÕ´óÁ¿Í¨ÐÅ֪ʶ£¬ÆäÓŵãÊÇ¿ÉʵÏֵŦÄܸüÇ¿´ó£¬Ó¦ÓÃÃæ¸ü¹ã·º£¬¸üÊʺÏÓÚ±àд½ÏΪ¸´ÔÓ µÄµÍ²ã´ÎͨÐųÌÐò¡£Ïà±È½Ï¶øÑÔ£¬ÀûÓÃSPComm¿Ø¼þÔòÏà¶Ô½Ï¼òµ¥£¬¸Ã¿Ø¼þ¾ßÓзḻµÄÓë´®¿ÚͨÐÅÃÜÇÐÏà¹ØµÄÊôÐÔ¼°Ê¼þ£¬ÌṩÁ˶Դ®¿ÚµÄ¸÷ÖÖ²Ù×÷¡£
¡¡¡¡Ê¹ÓÿؼþÕâÒ»·½·¨ÈÝÒ×ÕÆÎÕ£¬¶øSPCOMMÖ§³Ö¶àỊ̈߳¬ËùÒÔSPCOMM¿Ø¼þµÄÓ¦Óøü¼Ó¹ã·º¡£½áºÏʵÀýÏêϸ½éÉÜSPCOMMµÄʹÓá£
Ò»£®SPCOMM¿Ø¼þµÄ°²×°
1£®Ñ¡ÔñÏÂÀ²Ëµ¥ComponentµÄµÚ¶þÏîInstall Component ¡£
ͼ1
µ¯³öͼ1ËùʾµÄ´°¿Ú,ÔÚUnit file name ´¦Ìîд¿Ø¼þSPCOMM¿Ø¼þËùÔÚ·¾¶£¬ÆäËü¿ÉÓÃĬÈÏÖµ£¬µã»÷OK°´Å¦¡£
2£®°²×°³É¹¦ºó£¬system¿Ø¼þÃæ°åÖн«³öÏÖÒ»¸öºìÉ«¿Ø¼þCOMM¡£ÏÖÔÚʹÓÃCOMM¿Ø¼þ¿ÉÒÔÏóDelphi×Ô´ø¿Ø¼þÒ»ÑùʹÓá£
¶þ£®SPCOMMµÄÖ÷ÒªÊôÐÔ£¬·½·¨ºÍʼþ
1.ÊôÐÔ
CommName£ºÌîдCOM1,COM2…µÈ´®¿ÚµÄÃû×Ö,ÔÚ´ò¿ª´®¿Úǰ£¬±ØÐëÌîдºÃ´ËÖµ¡£
BaudRate:É趨²¨ÌØÂÊ9600£¬4800µÈ£¬¸ù¾Ýʵ¼ÊÐèÒªÀ´¶¨£¬ÔÚ´®¿Ú´ò¿ªºóÒ²¿É¸ü¸Ä²¨ÌØÂÊ£¬Êµ¼Ê²¨ÌØÂÊËæÖ®¸ü¸Ä¡£
ParityCheck£ºÆæÅ¼Ð£Ñé¡£
ByteSize£º×Ö½Ú³¤¶È_5,_6,_7,_8µÈ£¬¸ù¾Ýʵ¼ÊÇé¿öÉ趨¡£
Parity£ºÆæÅ¼Ð£Ñéλ
pBits£ºÍ£Ö¹Î»
SendDataEmpty£ºÕâÊÇÒ»¸ö²¼¶ûÊôÐÔ£¬Îªtrueʱ±íʾ·¢ËÍ»º´æÎª¿Õ£¬»òÕß·¢ËͶÓÁÐÀïûÓÐÐÅÏ¢£»ÎªFalseʱ±íʾ±íʾ·¢ËÍ»º´æ²»Îª¿Õ£¬»òÕß·¢ËͶÓÁÐÀïÓÐÐÅÏ¢¡£
2£®·½·¨
¡¡¡¡Startcomm¹ý³ÌÓÃÓÚ´ò¿ª´®¿Ú£¬µ±´ò¿ªÊ§°Üʱͨ³£»á±¨´í£¬´íÎóÖ÷ÒªÓÐ7ÖÖ£º
¢Å´®¿ÚÒѾ´ò¿ª £»
¢Æ´ò¿ª´®¿Ú´íÎó £»
¢ÇÎļþ¾ä±ú²»ÊÇͨѶ¾ä±ú£»
¢È²»Äܹ»°²×°Í¨Ñ¶»º´æ£»
¢É²»ÄܲúÉúʼþ £»
¢Ê²»ÄܲúÉú¶Á½ø³Ì£»
¢Ë²»ÄܲúÉúд½ø³Ì£»
¡¡¡¡StopComm¹ý³ÌÓÃÓڹرմ®¿Ú£¬Ã»Óзµ»ØÖµ¡£
¡¡¡¡º¯ÊýWriteCommData(pDataToWrite: PChar;dwSizeofDataToWrite:Word ): boolean ÓÃÓÚ·¢ËÍÒ»¸ö×Ö·û´®µ½Ð´Ị̈߳¬·¢Ëͳɹ¦·µ»Øtrue,·¢ËÍʧ°Ü·µ»Øfalse, Ö´Ðд˺¯Êý½«Á¢¼´µÃµ½·µ»ØÖµ£¬·¢ËͲÙ×÷ËæºóÖ´ÐС£º¯ÊýÓÐÁ½¸ö²ÎÊý£¬ÆäÖÐ pdatatowriteÊÇÒª·¢Ë͵Ä×Ö·û´®£¬dwsizeofdatatowrite ÊÇ·¢Ë͵ij¤¶È¡£
3£®Ê¼þ
OnReceiveData : procedure (Sender: TObject;Buffer: Pointer;BufferLength: Word) of object¡¡
µ±ÊäÈ뻺´æÓÐÊý¾Ýʱ½«´¥·¢¸Ãʼþ£¬ÔÚÕâÀï¿ÉÒÔ¶Ô´Ó´®¿ÚÊÕµ½µÄÊý¾Ý½øÐд¦Àí¡£BufferÖÐÊÇÊÕµ½µÄÊý¾Ý£¬bufferlengthÊÇÊÕµ½µÄÊý¾Ý³¤¶
Ïà¹ØÎĵµ£º
ÓÐЩʱºò,ҪдһЩ³ÌÐò,ÔÚ JAVA ÀïÃæºÃÄÑʵÏÖ, µ«Èç¹ûʹÓÃÆäËü±à³ÌÓïÑÔÈ´ÓֱȽÏÈÝÒ×ʱ,ÎÒÃDz»·Áͨ¹ý JNI À´Èò»Í¬ÓïÑԵijÌÐò¹²Í¬Íê³É.
JNI µÄ½Ì³Ì, ÍøÉÏ C µÄ±È½Ï¶à,Java Ò²ÌṩÁË javah.exe Ϊ C ÓïÑ﵀ JNI ³ÌÐòÉú³ÉÍ·Îļþ, Èç¹ûÄãÊÇÒ»¸ö Delphi ±à³ÌÔ±, ÄÜ·ñÈà JAVA Óë Delphi ³ÌÐò½»»¥ÄØ? ´ð°¸Êǿ϶¨µÄ,½ñÌìÎÒÃǾÍÀ´ ......
Delphi¶¯Ì¬Ê¼þÉîÈë·ÖÎö
2009-2-7
×÷Õß:²»µÃÏÐ
ºËÐÄÌáʾ£º±¾ÊµÑéÖ¤Ã÷ÁËÔÚÀàÖз½·¨µÄµ÷ÓÃʱºò£¬ËùÓеķ½·¨¶¼Òþº¬ÁËÒ»¸öSelf²ÎÊý£¬²¢ÇҸòÎÊý×÷Ϊ¶ÔÏó·½·¨µÄµÚÒ»¸ö²ÎÊý´«µÝ...
Ê×ÏÈ×öÒ»¸ö¿Õ´°Ì壬·ÅÈëÒ»Button¡£
ÔÚimplementationÏÂÃæÉùÃ÷Á½¸ö·½·¨ÈçÏ£º
//Íⲿ·½·¨£¬Ö»ÉùÃ÷Ò»¸ö²ÎÊý£¬´Ëʱ°´ÕÕ±ê×¼µÄ¶ÔÏóÄÚ²¿Ê¼þ·½·¨T ......
15±¾DelphiÊé¼®(PDF¸ñʽ)ÏÂÔØ (ת)
ÎļþÃû: Delphi×é¼þ²Î¿¼´óÈ«.rar
ÏÂÔØµØÖ·: http://www.rayfile.com/files/678ca1e3-f73f-11de-9d02-0014221b798a/
ÎļþÃû: DelphiÐÅϢϵͳ¿ª·¢ÊµÀý¾«Ñ¡.rar
ÏÂÔØµØÖ·: http://www.rayfile.com/files/fb328f02-f73e-11de-8a76-0014221b798a/
ÎļþÃû ......
ÏûÏ¢µÄ´¦ÀíÁ÷³Ì£¬Á÷³ÌÈçÏ£º
ÆäÅÉ·¢´¦Àí¹ý³ÌÏêϸÈçÏ£º
×¢Ò⣺TWinControlÀïÃæWndProcÓе÷ÓÃϵͳAPI DefWindowProc,¸Ãº¯Êýµ÷ÓÃȱʡµÄ´°¿Ú¹ý³ÌÀ´ÎªÓ¦ÓóÌÐòûÓд¦ÀíµÄÈκδ°¿ÚÏûÏ¢ÌṩȱʡµÄ´¦Àí¡£¶øTWinControlÀïÃæDefaultHandlerÓÖµ÷ÓÃÁËϵͳAPI CallWindowProc£¬¸Ãº¯ÊýCallWindowProc½«ÏûÏ¢ÐÅÏ¢´«Ë͸øÖ¸¶¨µÄ´°¿ ......
¼¼Êõ½»Á÷,DH½²½â. ֮ǰÕÕ×ÅÌìÊéÒ¹¶Á,ÓÃDelphiÀ´ÅªÁËÏÂÑ»·Ìå,ÏÖÔÚ¾ÍÀ´ÅªÒ»ÏÂÌõ¼þÅжϰÉ.
Ê×Ïȿ϶¨ÊÇÎÒÃǾ³£¿´¼ûµÄIFÓï¾ä¿©. Var
I: Integer;
Begin
I:= 99;
If (I> 0)And (I< 0) Then
Writeln('I>0')
Else
If (I> 10)And (I< 100) Then
Writeln('I>10 and I100');
End.
·´»ã±à³öÀ´»áÊÇ ......