Delphi¶àÏß³Ìѧϰ£¨6£©£ºÐźÅÁ¿Semaphore
ÐźÅÁ¿Êǽ¨Á¢ÔÚ»¥³âÁ¿µÄ»ù´¡Ö®ÉÏ£¬Í¬Ê±¼ÓÈëÖØÒªÌØÐÔ£ºÌṩÁË×ÊÔ´¼ÆÊý¹¦ÄÜ£¬Òò´ËÔ¤¶¨ÒåÊýÁ¿µÄÏß³Ìͬʱ¿ÉÒÔ½øÈëͬ²½µÄ´úÂë¿éÖС£
ÐźÅÁ¿ÊÇά»¤0µ½Ö¸¶¨×î´óÖµÖ®¼äµÄ¼ÆÊýÆ÷µÄͬ²½¶ÔÏ󣬵±Ïß³ÌÍê³ÉÒ»´ÎÐźÅÁ¿µÄµÈ´ýʱ£¬¼ÆÊýÆ÷×Ô¼õ1£¬µ±Ïß³ÌÊÍ·ÅÐźÅÁ¿¶ÔÏóʱ£¬¼ÆÊýÆ÷×ÔÔö1¡£
½èÓÃÉÏÃæµÄͼÊé¹ÝÀý×Ó£¬ÐźÅÁ¿ºÃÏñÊǶàÉ輸°Ñ¹ÜÀíÔ¿³×¡£Ã¿´Î¿ÉÒÔÉ趨N°ÑÔ¿³×ͬʱ¹¤×÷£¬ÄǾÍÓÐN¸öÈËÔ±¿ÉÒÔͬʱ°ìÀíÒµÎñ¡£
ÐźÅÁ¿Ê¹ÓõÄÒ»°ã²½Ö裺
1¡¢ÉùÃ÷Ò»¸öÈ«¾ÖµÄÐźÅÁ¿Ãû±ú£¬È磺hSem:THandle;
2¡¢´´½¨ÐźÅÁ¿£ºCreateSemphore(
lpSemaphoreAttributes:PSecurityAttributes;
lInitialCount,lMaximumCount:LongInt;
lpName:PChar):THandle;stdcall;
£¨lpSemaphoreAttributes²ÎÊý£¬Ö¸ÏòTSecurityAttributes¼Ç¼µÄÖ¸Õ룬һ°ã¿ÉÒÔȱʡÌîÈënilÖµ£»
lInitialCount²ÎÊý£¬ÊÇÐźÅÁ¿¶ÔÏóµÄ³õʼ¼ÆÊý£¬ÊÇ0~lMaximumCountÖ®¼äµÄÊý¡£µ±Ëü´óÓÚ0ʱ£¬ÐźÅÁ¿¾Í½øÈëÁËÐźÅ״̬£¬µ±WaiForSingleObjectº¯ÊýÊÍ·ÅÁËÒ»¸öỊ̈߳¬ÐźÅÁ¿¼ÆÊý¾Í¼õ1¡£Ê¹ÓÃReleaseSemphoreº¯Êý¿ÉÒÔÔö¼ÓÐźÅÁ¿¼ÆÊý£»
lMaximumCount²ÎÊý£¬ÊÇÐźÅÁ¿¶ÔÏó¼ÆÊýµÄ×î´óÖµ£»
lpName²ÎÊý£¬Ö¸¶¨ÐźÅÁ¿µÄÃû×Ö¡££©
3¡¢Óõȴýº¯ÊýWaiForSingleObjectе÷Ï̡߳£
4¡¢µ±Ò»¸öÏß³ÌÓÃÍêÒ»¸öÐźţ¬ÊÍ·Å¡£Ê¹ÓÃReleaseSemphore(
Ïà¹ØÎĵµ£º
ʵ¼ÊÉÏÕâ¸öÃû×Ö½Ð[SDL & Delphi]Ò²²»³ÉÎÊÌ⣬ ÒòΪ³ýÁËDelphiËƺõҲûÓÐÄĸöÁ÷ÐеĿª·¢¹¤¾ßÓõÄÊÇPascalÓïÑÔ¡£
SDLÆäʵÎÒҲֻѧÁ˲»µ½Á½ÐÇÆÚ¶øÒÑ¡£¸Õ¿ªÊ¼ÎÒÏëÊÔͼÓÃVC£¬ÒòΪÕâÑù×ÊÁÏ×îÈ«£¬Ò²ºÜºÃÕÒ£¬µ«Ì«¾ÃûÓÃVCÏÖÔÚ¿´CµÄ´úÂëÓеãÀ§ÄÑ£¨->Õâ¸öËã·ûÊǸÉÂðµÄÀ´×Å……£©¡£Æäʵ×÷Ϊһ¸öרҵ²»ÊǼÆËã»úµÄÈË ......
DelphiÌṩµÄ×Ö·û´®º¯ÊýÀïÓÐÒ»¸öPosº¯Êý£¬ËüµÄ¶¨ÒåÊÇ£º
function Pos(Substr: string; S: string): Integer;
ËüµÄ×÷ÓÃÊÇÔÚ×Ö·û´®SÖвéÕÒ×Ö·û´®Substr£¬·µ»ØÖµÊÇSubstrÔÚSÖеÚÒ»´Î³öÏÖµÄλÖã¬Èç¹ûûÓÐÕÒµ½£¬·µ»ØֵΪ0¡£
ʹÓÃposº¯ÊýÀ´²éÕÒ×Ö·ûµÚÒ»´Î³öÏÖµÄλÖÃ
var
str1:string;
i,j:integer;
begin
str1:='dsf465 ......
¹ØÓÚdelphi Assigned
1.¸ù¾Ý Delphi Ö¸Áî²Î¿¼ÊÖ²áÖÐ
˵Ã÷£º
Assigned º¯Ê½ÔÚ²ÎÊý²»Îªnilʱ´«»ØTrue,±íʾָÕëÒѾָµ½Ä³¸öÄÚ´æµØÖ·£¬Õâ¸öÄÚ´æµØÖ·¿ÉÄÜÊÇÒ»¸ö¶ÔÏóµØÊ×µØÖ·£¬Ò²¿ÉÄÜÔÚº¯Êý»ò¹ý³ÌÖУ¬ÉùÃ÷Ò»¸öÖ¸Õë±äÁ¿£¬Ã»Óи³ÖµÎªnil £¬ÎÞÂÒµÄÖ¸Ïòij´¦£¬ÕâÁ½¸öÖÖÇé¿ö£¬Assigned£¨Ö¸Õë±äÁ¿£©¶¼²»Îªnil , º¯Êý·Å»ØTrue£»
¶ø² ......
http://www.91v1.cn/bbs/read.php?tid-1797.html
ÎÒÃÇÌṩµÄÊÇÈ«Ì×,Ä¿Ç°ËûÃÇ·¢µÄ.ÉçÇøÒѼÖÆÍê±Ï.Ò»¸ùë²»ÉÙ.
-------------------------------------------------------------------------------------------------------------------------
¸Ã½Ì³ÌÓÉ91v1ÉçÇøÃâ·ÑÌṩ.¾ßÌåÃâ·ÑÁìÂëÏêÇé¹Û¿´ÖÖ×Ó°ü,
--------------- ......
2010-02-22 17:08:46
Delphi°Ñ¶àÏß³ÌÏà¹ØµÄAPI·â×°ÔÚTThreadÕâ¸öÀàÖУ¬¿ÉÒÔ·½±ãʵÏÖ¶àÏß³ÌÔËÓá£Ê×ÏÈ¿´ÏÂTThreadµÄÉùÃ÷£º
TThread = class
private
FHandle: THandle;
FThreadID: THandle;
FCreateSuspended: Boolean;
FTerminated: Boolean;
FSuspended: Boolean;
FFreeOnTerminate: ......