Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

ÔÚWIN32ÖеĴ®¿ÚͨѶ£¨Delphi£©

ÔÚWIN32ÖеĴ®¿ÚͨѶ£¨Delphi£©
ÓÉÔÚWIN32²Ù×÷ϵͳÖнûÖ¹Ó¦ÓóÌÐòÏóDOSÖÐÄÇÑùÖ±½Ó·ÃÎʼÆËã»úÓ²¼þ£¬Òò´Ë£¬ÎÞ·¨ÏóÒÔǰÄÇÑù²ÉÓÃÖж϶Áд´®¿Ú¡£µ«ÊÇÔÚWIN32ÖÐÎÒÃǿɷ¢²ÉÓÃÁ½ÖÖ·½·¨·ÃÎÊ´®¿Ú£º1¡¢Ê¹ÓÃVBÖеÄMSCOMM´®¿Ú¿Ø¼þ£»2¡¢²ÉÓÃAPIº¯Êý£¬±¾ÎÄÖ÷Òª½éÉܲÉÓÃAPIº¯ÊýʵÏÖ´®¿ÚͨѶ¡£
ÓÉÓÚWM_COMMNOTIFYÏûÏ¢Òѱ»È¡Ïû£¬¹Ê±¾ÎÄ×Ô¶¨ÒåÁËWM_COMMNOTIFYÏûÏ¢£¬ÔÚWIN32Öм¸¸ö³£ÓõĴ®¿ÚͨÐÅAPIº¯ÊýÈçÏ£º
CreateFile    ´ò¿ª´®¿Ú
CloseHandle  ¹Ø±Õ¾ä±ú£¬ÓÃÓÚÊÍ·ÅÄÚ´æ
SetComm     ÉèÖûº³åÇø´óС
ReadFile     ¶Á´®¿Ú
WriteFile     Ð´´®¿Ú
SetCommState  ÉèÖÃͨÐŲÎÊý
GetCommState  »ñȡͨÐŲÎÊý
ClearCommError Çå³ý´®¿Ú´íÎó²¢»ñÈ¡¶Á¡¢Ð´»º³åÇøµ±Ç°×Ö½ÚÊý
SetCommMask ÉèÖô®¿ÚÆÁ±Îʼþ
PurgeComm  Ïû³ý´®¿Ú¶Áд»º³åÇøµÄËùÓÐ×Ö·û£¬ÓÃÒÔÖÕÖ¹Ðü¶øÎ´¾öµÄ¶Áд²Ù×÷¡£
PostMessage ·¢ËÍÏûÏ¢
WaitCommEvent µÈ´ý´®¿Úʼþ·¢Éú
ÓÉÓÚ²ÉÓöàÏ̲߳Ù×÷´®¿Ú£¬»¹Óõ½ÒÔÏÂAPIº¯Êý
CreateEvent  ½¨Á¢Í¬²½Ê¼þ
ResetEvent   Í¬²½Ê¼þ¸´Î»
SetEvent     Í¬²½Ê¼þÖÃλ
WaitForSingleObject µÈ´ýͬ²½Ê¼þ
GetOverLappedResult »ñÈ¡²¢ÐвÙ×÷µÄ½á¹û]
GetLastError »ñÈ¡´íÎó´úÂë
ÓÉÓÚWIN32È¡ÏûÁËWM_COMMNOTIFY£¬ËùÒÔ±ØÐë×Ô¼º´´½¨£¬Èç¹û±àд´®¿Ú¿Ø¼þ£¬ÄÇôӦ¸ÃÔÚ´®¿Úʼþ·¢Éúʱ¼´WaitCommEvent·µ»ØTrueʱ»òGetLastError·µ»Ø½á¹ûΪError_IO_Pending£¬ÇÒGetOverLappedResult·µ»ØTrueʱ´¥·¢¶Á´®¿Úʼþ¡£±ÈÈ磺´®¿Ú¿Ø¼þΪTcomm,ÄÇôÔÚ´®¿Úʼþ·¢Éúʱµ÷ÓÃTcomm.RXChar·½·¨£¬Tcomm.RXChar¶¨ÒåÈçÏ£º
Procedure Tcomm.RXChar;
begin
if Assigned(FOnRXChar) then FonRxChar(self);
SetEvent(Post_Event);
End;
DelphiµÄÇ¿´óºÍ¶àÏß³ÌÖ§³Ö£¬Ê¹µÃʵÏÖ´®¿ÚͨÐŷdz£·½±ã¼òµ¥£¬Ê×ÏÈ£¬ÓÃCreateFile´ò¿ª´®¿Ú,Æä´Î£¬Í¨¹ýGetCommState»ñÈ¡´®¿Ú²ÎÊý£¬²¢ÓÃSetCommStateÉèÖô®¿Ú²ÎÊý£¬È»ºó´´½¨Ïß³ÌÓÃÒÔ¼àÊÓ´®¿Ú£¬´Ëºó¾Í¿ÉÒÔ½øÐд®¿ÚͨÐÅÁË£¬×îºóÓÃClosehandle ÊÍ·ÅËùÓÐ×ÊÔ´£¨Çмǣ¬ÒÔÃâËÀ»ú£©¡£
ÔÚÕâÆäÖУ¬Ê¹Óõ½Ò»¸öÖØÒªµÄ½á¹¹DCB£¬Æä³£ÓõÄһЩ¶¨ÒåÈçÏ£º
BaudRate:²¨ÌØÂÊ£¬¿ÉÖ±½ÓÉ


Ïà¹ØÎĵµ£º

±ßÓñßѧDelphi±à³Ì

±¾Êéͨ¹ýµäÐ͵ÄʵÀý£¬ÏµÍ³µØ½éÉÜÁËDelphiµäÐÍ×é¼þµÄ»ù±¾Ê¹Ó÷½·¨ºÍһЩʹÓü¼ÇÉ¡£Ã¿Ò»¸öʵÀý¶¼ÌṩÁ˳ÌÐòµÄÔ´´úÂë¡¢²Ù×÷²½Ö裬²¢ÇÒÔÚÒ»Ð©ÌØÊâµÄʵÀýÖÐ×¢Ã÷ÁË֪ʶµã¡£Á¦Õùʹ¶ÁÕßͨ¹ýÔĶÁʵÀýºó£¬¿ÉÒԽϺõØÕÆÎÕÿһ¸ö֪ʶµã¡£ ±¾Êé·ÖΪÎåÕ£¬ÄÚÈÝÓÉdzÈëÉѭÐò½¥½ø£¬ÊÊÓÃÓÚ³õ¼¶Óû§ºÍԺУʦÉúѧϰ²Î¿¼¡£ ÏÂÔØÔĶÁ±ßÓñßѧD ......

DelphiʹÓÃiniÅäÖÃÎļþÁ¬½ÓMS SQLÊý¾Ý¿â

ºÜÔç×ö¹ýµÄÒ»¸ödelphiÏîÄ¿£¬°ÑÀïÃæÓõ½µÄ¼¼Êõ×ܽáһϣ¬Ö÷ÒªÊÇÕë¶ÔÏóÎÒÕâÑùµÄdelphiÐÂÊÖ£¬¼¼ÊõÉÏ×ö¸ö»ýÀÛ°É£¡
¼ÙÉèÎÒÃǵÄÊý¾Ý¿âÅäÖÃÎļþServerInfo.iniÄÚÈÝÈçÏ£º
[ServerInfo]  
ServerIP=192.168.1.5
SQLDBName=Data 
SQLUserID=sa  
SQLPwd=  
ÎÒÃǶ¨ÒåÒ»¸öÁ¬½ÓÊý¾Ý¿âµÄ¹ý ......

Delphi 2010 µÄChar

½ñÌìÓÃdelphi 2010£¬×öÒ»¸ö¼òµ¥µÄÄÚ´æÓ³ÉäµÄ³ÌÐò£¬ÔÚdelphiÒÔǰ°æ±¾ÉÏÅܵĺúõijÌÐò£¬ÔÚ2010ÉÏ£¬¾ÓÈ»³öÏÖÁ˲»Í¬µÄЧ¹û£¬·¢ËͶ˷¢Ë͵Ä×Ö·û´®£¬½ÓÊÕ¶ËÖ»ÊÕµ½Ò»°ë£¬´ó¸Å³ÌÐòÈçÏ£º
·¢ËͶˣº
var
    str : String;
begin
  CopyMemory(@(PShare^.Data),str,Length(str));  //°ÑÊý¾Ý¿½±´µ½ ......

DelphiÖÐDLL³õʼ»¯ºÍÍ˳ö´¦Àí

DelphiÖÐDLL³õʼ»¯ºÍÍ˳ö´¦Àí
choysan
2010-01-08 8:56:43
<1>ÀûÓÃUnitµÄInitalizationÓëFinalizationÕâÁ½¸öС½Ú
¡¡¡¡¿ÉÒÔÔÚUnitµÄÕâÁ½¸öС½ÚÖа²ÅÅUnitµÄ½øÈëºÍÍ˳ö£¬µ«ÊÇ
ProgramÓëLibrary²¢Ã»ÓÐÕâÁ½¸ö²¿·Ö£¬ËùÒÔÖ»ÄÜдÔÚUnitÖС£
<2>ÀûÓÃExitProc±äÁ¿
¡¡¡¡ÔÚLibraryµÄbegin..end.ÖмäÊÇ¿ÉÒÔд´úÂëµÄ£ ......

Delphi ¹Ø¼ü×ÖÏê½â[ÕûÀíÓÚ "³È×Ó" µÄÌû×Ó]


Delphi ¹Ø¼ü×ÖÏê½â[ÕûÀíÓÚ "³È×Ó" µÄÌû×Ó]
absolute
//ËüʹµÃÄãÄܹ»´´½¨Ò»¸öбäÁ¿, ²¢ÇҸñäÁ¿µÄÆðʼµØÖ·ÓëÁíÒ»¸ö±äÁ¿Ïàͬ.
var
Str: string[32];
StrLen: Byte absolute Str;
//Õâ¸öÉùÃ÷Ö¸¶¨Á˱äÁ¿StrLenÆðʼµØÖ·ÓëStrÏàͬ.
//ÓÉÓÚ×Ö·û´®µÄµÚ0¸öλÖñ£´æÁË×Ö·û´®µÄ³¤¶È, ËùÒÔStrLenµÄÖµ¼´×Ö·û´®³¤¶È.
begin ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ