DELPHIÃæÏò¶ÔÏó²Î¿¼
¡¡¡¡DELPHIÃæÏò¶ÔÏó²Î¿¼
¡¡¡¡³ÂÆæ 2005-07-21
¡¡¡¡Ò»¡¢ÀàºÍ¶ÔÏó
¡¡¡¡ÀàÊǶÔÏóµÄÀàÐÍ£¬ÊÇ´´½¨¶ÔÏóµÄÄ£°å¡£Ò»¸öÀà¿ÉÒÔ´´½¨¶à¸ö¶ÔÏ󣬶øÒ»¸ö¶ÔÏó×ÜÊÇÊôÓÚij¸öÀà¡£Àà¾ßÓÐÄÚ²¿µÄÊôÐÔ£¨×´Ì¬£©ºÍÐÐΪ£¨²Ù×÷£©¡£
¡¡¡¡¶ÔÏóÊÇÀàµÄʵÀý£¬¾ßÓÐÇø±ðÓÚͬÀàÆäËû¶ÔÏóµÄÊôÐÔ¼¯ºÏ¡£
¡¡¡¡¶ÔÏóµÄÉùÃ÷´æ·ÅÓÚ¶ÑÕ»£¬¶ÔÏóµÄÒýÓôæ·ÅÓÚ¶Ñ¡£
¡¡¡¡¶þ¡¢ÀàµÄ·½·¨·ÖÀà
¡¡¡¡1¡¢ ÆÕͨ·½·¨
¡¡¡¡²»¼ÓÈκÎÐÞÊεķ½·¨ÎªÆÕͨ·½·¨¡£ÆÕͨ·½·¨±ØÐëµ÷ÓÃÀàµÄʵÀý½øÐзÃÎÊ¡£¼´±ØÐë
¡¡¡¡½¨ÀàµÄ¶ÔÏ󣬵÷Ó÷½Ê½Îª£º¶ÔÏó.·½·¨£¬ÉùÃ÷·½Ê½Îª£º
¡¡¡¡procedure[function] ·½·¨Ãû(²ÎÊý±í)[:·µ»ØÖµ];
¡¡¡¡2¡¢ ¹¹Ôì·½·¨
¡¡¡¡¹¹Ôì·½·¨ÓÃÓÚ´´½¨ÀàµÄʵÀý£¬µ÷Óú󷵻ØÀàµÄ¾ä±ú¡£¹¹Ôì·½·¨¿ÉÒÔÓжà¸ö°æ±¾¡£ÉùÃ÷·½Ê½ÊÇ£º
¡¡¡¡ constructor ¹¹Ôì·½·¨Ãû(²ÎÊý±í);
¡¡¡¡3¡¢ Îö¹¹·½·¨
¡¡¡¡Îö¹¹·½·¨ÓÃÓÚÏú»ÙÀàµÄʵÀý£¬Ò»°ã²»½¨ÒéÖ±½Óµ÷ÓÃÎö¹¹·½·¨£¬¶ø²ÉÓõ÷ÓöÔÏó.FreeµÄ·½Ê½½øÐжÔÏóÊÍ·Å¡£ÉùÃ÷·½Ê½Îª£º
¡¡¡¡destructor Îö¹¹·½·¨Ãû(²ÎÊý±í);
¡¡¡¡4¡¢ Àà·½·¨
¡¡¡¡Àà·½·¨ÊôÓÚÒ»¸öÀ࣬ÔÚÔËÐÐʱ¼´´æÔÚÓÚÄÚ´æÖС£¿ÉʹÓÃÀà.·½·¨µÄ·½Ê½½øÐе÷Ó㬼´²»ÐèÒª´´½¨ÀàµÄʵÀý¡£ÉùÃ÷·½Ê½ÊÇÔÚÆÕͨ·½·¨Ç°¼Óclass£º
¡¡¡¡class procedure[function] ·½·¨Ãû(²ÎÊý±í)[:·µ»ØÖµ];
¡¡¡¡5¡¢ ÏûÏ¢´¦Àí·½·¨
¡¡¡¡ÏûÏ¢´¦Àí·½·¨ºÍÒ»¸öΨһµÄÏûÏ¢ID½øÐйØÁª£¬ÓÃÓÚÏìÓ¦¶¯Ì¬·ÖÅɵÄÏûÏ¢¡£ÉùÃ÷·½Ê½£º
¡¡¡¡procedure ·½·¨Ãû(ÏûÏ¢±äÔª);message ÏûÏ¢ID;
¡¡¡¡Èý¡¢¶à̬¡¢¼Ì³Ð¡¢ÖØÔØ
¡¡¡¡1¡¢ ¾²Ì¬·½·¨
¡¡¡¡¾²Ì¬·½·¨ÓɶÔÏóµÄÀà¾ö¶¨¡£ÊôÓÚ“ÔçÆÚÁª±à”£¬¼´ÔÚ±àÒë½×¶Î¾Í¾ö¶¨ÁË·½·¨µÄʵÏÖ°æ±¾¡£Ò»¸öÀàµÄʵÀý¿É´´½¨ÎªÆäËûÀàµÄʵÀý£¬µ«Êǵ÷Óõ½Í¬Ãû·½·¨Ê±£¬Ê¹Óõķ½·¨ÊÇÉùÃ÷¸ÃʵÀýµÄÀàµÄ¾²Ì¬·½·¨£¬ÉùÃ÷·½Ê½£º
¡¡¡¡procedure[function] ·½·¨Ãû(²ÎÊý±í)[:·µ»ØÖµ];
¡¡¡¡2¡¢ ÐéÄâ·½·¨
¡¡¡¡ÐéÄâ·½·¨¿ÉʵÏÖ“ºóÆÚÁª±à”£¬¼´ÔÚ³ÌÐòÔËÐÐʱ¿É¶¯Ì¬µ÷Óò»Í¬µÄ·½·¨°æ±¾£¬ÊµÏÖ¶à̬¡£ËùÓÐÀàµÄÐéÄâ·½·¨ÔÚÄÚ´æÖн¨Á¢ÁËÒ»ÕÅVMT£¨ÐéÄâ·½·¨±í£©£¬ÔÚµ÷ÓÃʱ¶¯Ì¬¶¨Î»·½·¨º¯ÊýµÄλÖᣱȶ¯Ì¬·½·¨¶àÕ¼ÓÃÄÚ´æ¿Õ¼ä£¬µ«ÊÇËٶȽϿ졣ÉùÃ÷·½Ê½£º
¡¡¡¡procedure[function] ·½·¨Ãû(²ÎÊý±í)[:·µ»ØÖµ];virtual;
¡¡¡¡3¡¢ ¶¯Ì¬·½·¨
¡¡¡¡ÐéÄâ·½·¨¿ÉʵÏÖ“ºóÆÚÁª±à”£¬¼´ÔÚ³ÌÐòÔËÐÐʱ¿É¶¯Ì¬µ÷Óò»Í¬µÄ·½·¨°æ±¾£¬ÊµÏÖ¶à̬¡£±¾ÀàµÄ¶¯Ì¬·½·¨ÔÚÄÚ´æÖн¨Á¢ÁËÒ»¸öDMT£¨¶¯Ì¬·½·¨±í£©£¬ÔÚµ÷ÓÃʱ¸ù¾Ý¶¯Ì¬·½·¨Î¨Ò»µÄ±àºÅ¶¨Î»·½·¨µØÖ·¡£±ÈÐéÄâ·½·¨ÉÙÕ¼ÓÃÄÚ´æ£
Ïà¹ØÎĵµ£º
Delphi²Ù×÷×¢²á±í²½ÖèÈçÏ£º
-------------------------------------
1£©ÔÚUsesÖÐÌí¼ÓRegistryµ¥Ôª£»
2£©ÉùÃ÷TRegistry¶ÔÏó£»
3£©´´½¨TRegistry¶ÔÏó£»
4£©Ö¸¶¨¸ù¼ü£»
----------------try------------------
5£©´ò¿ªÐèÒª²Ù×÷µÄÖ÷¼ü£»
6£©¶Áд²Ù×÷£»
7£©±£´æ²¢¹Ø±ÕÖ÷¼ü£»
--------------finally----------------
......
Ò» DllµÄÖÆ×÷Ò»°ã²½Öè
¶þ ²ÎÊý´«µÝ
Èý DLLµÄ³õʼ»¯ºÍÍ˳öÇåÀí[Èç¹ûÐèÒª³õʼ»¯ºÍÍ˳öÇåÀí]
ËÄ È«¾Ö±äÁ¿µÄʹÓÃ
Îå µ÷Óþ²Ì¬ÔØÈë
Áù µ÷Óö¯Ì¬ÔØÈë
Æß ÔÚDLL½¨Á¢Ò»¸öTForM
°Ë ÔÚDLLÖн¨Á¢Ò»¸öTMDIChildForM
¾Å ʾÀý£º
Ê® DelphiÖÆ×÷µÄDllÓëÆäËûÓïÑԵĻìºÏ ......
Ò»ÌáÆð»ùÓÚWeb Services¼¼ÊõµÄÓ¦ÓóÌÐò¿ª·¢£¬Ò»°ãÈËÊ×ÏÈÏëµ½µÄ¿ª·¢¹¤¾ßÊÇVs.net£¬Æäʵ×÷Ϊ¿ìËÙÓ¦ÓóÌÐò¿ª·¢¹¤¾ß(RAD)µÄÀÏ´ó£¬Delphi´Ó6.0¾Í¿ªÊ¼Ö§³ÖWeb ServicesµÄ¿ª·¢ºÍÓ¦ÓÃÁË£¬±¾ÎÄͨ¹ýʹÓÃDelphi 7.0µ÷ÓÃÐÂÀË·¢ËͶÌÐŵÄWeb Service½øÐжÌÐÅÓ¦ÓóÌÐò¿ª·¢ÕâһʵÀýÏêϸµÄ½éÉÜÔÚDelphiÖÐÈçºÎ¿ª·¢»ùÓÚWeb ServicesµÄÓ¦ÓÃϵͳ¡ ......
ÉèÓÐÒÔÏÂÈý¸ö±äÁ¿£º
var
s:string;
p:pchar;
a:array[1..20] of char;
ÄÇôÈýÕßÖ®¼äµÄת»»ÈçÏ£º
1¡¢×Ö·û´®µ½PChar
p:=PChar(s);
2¡¢PCharµ½×Ö·û´®
s:=p;
3¡¢PCharµ½×Ö·ûÊý×é
StrCopy(@a,p);
4¡¢×Ö·ûÊý×éµ½PChar
......