ÓÃ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ÊÇÊÕµ½µÄÊý¾Ý³¤¶
Ïà¹ØÎĵµ£º
ÏûÏ¢µÄ´¦ÀíÁ÷³Ì£¬Á÷³ÌÈçÏ£º
ÆäÅÉ·¢´¦Àí¹ý³ÌÏêϸÈçÏ£º
×¢Ò⣺TWinControlÀïÃæWndProcÓе÷ÓÃϵͳAPI DefWindowProc,¸Ãº¯Êýµ÷ÓÃȱʡµÄ´°¿Ú¹ý³ÌÀ´ÎªÓ¦ÓóÌÐòûÓд¦ÀíµÄÈκδ°¿ÚÏûÏ¢ÌṩȱʡµÄ´¦Àí¡£¶øTWinControlÀïÃæDefaultHandlerÓÖµ÷ÓÃÁËϵͳAPI CallWindowProc£¬¸Ãº¯ÊýCallWindowProc½«ÏûÏ¢ÐÅÏ¢´«Ë͸øÖ¸¶¨µÄ´°¿ ......
×¢²áÂ룺6amd-pdj686-apme9d-9cdr
Ãܳףºyvx-27c
Delphi²¿·Öº¯Êý¡¢ÃüÁî¡¢ÊôÐÔÖÐÎÄ˵Ã÷
Abort º¯Êý ÒýÆð·ÅÆúµÄÒâÍâ´¦Àí
Abs º¯Êý ¾ø¶ÔÖµº¯Êý
AddExitProc º¯Êý ½«Ò»¹ý³ÌÌí¼Óµ½ÔËÐÐʱ¿âµÄ½áÊø¹ý³Ì±íÖÐ
Addr º¯Êý ·µ»ØÖ¸¶¨¶ÔÏóµÄµØÖ·
AdjustLineBreaks º¯Êý ½«¸ø¶¨×Ö·û´®µÄÐзָô·ûµ÷ÕûΪCR/LFÐòÁÐ
Align ÊôÐÔ Ê¹¿Ø¼þÎ ......
ÔÚ±àÒëdelphi³ÌÐòʱ»á³öÏÖÔÚЩÌáʾ£¬È«ÊÇEÎĵģ¬ÏÖÔÚ¸ø´ó¼ÒÒ»¸ö¶ÔÕÕ±í£¬¿ÉÒÔ¸üºÃµÄÀí½â´íÎóÌáʾÐÅÏ¢£¡
';' not allowed before 'ELSE' ElSEÇ°²»ÔÊÐíÓГ;”
'' clause not allowed in OLE automation section ÔÚOLE×Ô¶¯Çø¶Î²»ÔÊÐí“”×Ó¾ä
'' is not a type identifier ²»ÊÇÀàÐͱêʶ·û
'' not prev ......
¼¼Êõ½»Á÷,DH½²½â. ¼ÇµÃºÜÔç֮ǰÎÒ¾Í˵¹ý,Êý×éºÍ½á¹¹ÌåÔÚÄÚ´æÖÐÆäʵһÑùµÄ,ËûÃǶ¼ÊÇÁ¬Ðø·Ö²¼µÄ.
ÀýÈç: TMyStruct = record
A,B,C:Integer;
end;
T3IntArray = array[0..2]of Integer;
ÕâÁ½¸ö¶¼Õ¼12×Ö½Ú,¶øÇÒTMyStruct.A¾ÍÊÇT3IntArray[0].
¶øÎÒÃÇÖªµÀÔÚ·ÃÎÊÊý×éÖÐij¸öÔªËصÄʱºò,Ö»ÊÇÔÚµ ......